Làm thế nào chọn Sheet điền dữ liệu bằng ComboBox với VBA?

[jensen_phan]

Chào mọi người. Mình có tạo 1 Userform để nhập dữ liệu. Trên User form mình có tạo 1 ComboBox là Sản phẩm để lựa chọn sheet cần nhập liệu vào.
Hướng làm của mình là
Phần code của ComboBox mình sẽ chọn rồi trong list rồi gán số tương ứng với tên sản phẩm được chọn
Sản phẩm này sẽ được gán thành 1 số "i".
Số "i" này mình dùng để chọn sheet mà mình muốn điền vào.
Code 2 đoạn này như sau ạ:
Doạn gán số:

Dim i As String
If cbProducts = Sheet5.Range("F2") Then
i = "2"
ElseIf cbProducts = Sheet5.Range("F3") Then
i = "3"
ElseIf cbProducts = Sheet5.Range("F4") Then
i = "4"
ElseIf cbProducts = Sheet5.Range("F5") Then
i = "7"
ElseIf cbProducts = Sheet5.Range("F6") Then
i = "6"
End If

Đoạn chọn sheet và điền dữ liệu:
Dim dong_cuoi As Long
dong_cuoi = Sheet(i).Range("A100000").End(xlUp).Row + 1
With Sheet(i)
.Range("A" & dong_cuoi) = txtDay.Text
.Range("B" & dong_cuoi) = txtBatch.Text
.Range("C" & dong_cuoi) = txtWeight.Text
.Range("D" & dong_cuoi) = txtTime.Text
.Range("E" & dong_cuoi) = txtNote.Text
.Range("F" & dong_cuoi) = cbStaff.Text
End With
End If

Hiện tại code không chạyđược vì bug ở đoạn Sheet(i).

Mọi người cho em hỏi em sai gì và làm như thế nào để chọn được sheet để nhập liêu vào ạ.

 

[huuthang_bd]

File của bạn có các sheet tên 2, 3, 4, 5, 6 không? Không có thì lỗi là đúng rồi.