Copy từ form xuống sheet (1 người xem)

[jthanhtung]

Nhờ các anh chị GPE sửa giúp tôi đoạn code này tôi mò tới đây nhưng chưa đúng bí quá nhờ các anh.

copy từ form xuống sheet dùng combobox1 dò tìm ở cột L trong sheet("Data") để gán dữ liệu của 4 textbox xuống 4 cột F,G,H,I

Private Sub CommandButton1_Click()
Dim Rng As Range, i As Long
MyControls = Array(TextBox1, TextBox2, TextBox3, TextBox4)
With Sheets("Data")
Set Rng = .Range("F10:L") & .Range("L65536").End(3).Row
    For i = 1 To 1
            Rng(i).Offset(ComboBox1.ListIndex).Resize(, 4).Value = MyControls
    Next i
End With


End Sub

Tôi cảm ơn nhiều