Sửa dùm code nhập liệu (1 người xem)

[lhthai]

Hiện tại mình mượn code trên diễn đàn và tạo Form sau "KIEM KE"
1. Mình muốn nhập 1 lần từ 1 dòng hay 5 dòng hoặc tất cả các dòng trên Form
2. Hiện tại mình dùng hàm Vlookup nhưng cột chi tiết và đơn vị nhảy không đúng kết quả nhờ
các anh GPE sữa dùm luôn nha.

 

[anhdepjai]

zz. bạn cho nhiều texbox quá.Tuy nhiên sửa lại cái lệnh Vlookup là nó sẽ nhảy dữ liệu, dùng cái nàyrivate Sub ComboBox1_AfterUpdate() TextBox2.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("B61500"), 2, 0) TextBox4.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("B61500"), 3, 0) End Sub

 

[diemhuyenanh]

Private Sub ComboBox1_Change()
TextBox2 = Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("DANHMUC"), 2)
TextBox4 = Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("DANHMUC"), 3)
End Sub

 

[lhthai]

zz. bạn cho nhiều texbox quá.Tuy nhiên sửa lại cái lệnh Vlookup là nó sẽ nhảy dữ liệu, dùng cái nàyrivate Sub ComboBox1_AfterUpdate() TextBox2.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("B61500"), 2, 0) TextBox4.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet1.Range("B61500"), 3, 0) End Sub

đã thử nhưng mã số và code vẫn không khớp với nhau khi chọn mã số lần 2

 

[lhthai]

Private Sub ComboBox1_Change()
TextBox2 = Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("DANHMUC"), 2)
TextBox4 = Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("DANHMUC"), 3)
End Sub

đã thử nhưng mã số và code vẫn không khớp với nhau

 

[anhdepjai]

Zzz. Vẫn code đó nhé:

 

[lhthai]

Zzz. Vẫn code đó nhé:

Đã test thấy OK
Còn phần nhập liệu bạn có thể chỉnh lại code cho mình được không
Mình muốn nhập 1 lần 5 dòng hoặc 6 dòng gì đó
còn textbox1 tự nhảy xuống nếu combox mã số có giá trị