Sửa code để cho kết quả như mong muốn tại Sheet 1

[minhcong.tckt]

Em gửi file đính kèm, mong các huynh tỷ giúp đỡ để em hoàn thiện form nhập liệu

Nhập liệu tại form của sheet 2
Kết quả tại Sheet 1

 

[nmhung49]

Bạn sửa đoạn code của bạn lại như vầy là được

Sheet1.Cells(NextRow1 , 4) = TextTKCo.Text

Thành

Sheet1.Cells(NextRow1 + 1, 4) = TextTKCo.Text

 

[ptm0412]

Code sửa:

NextRow = Application.WorksheetFunction.Max(Sheet1.Range("[COLOR=#ff0000]D[/COLOR]65536").End(xlUp).Row + 1, 3)
Sheet1.Cells(NextRow, 1) = TextName.Text
Sheet1.Cells(NextRow, 2) = TextDienGiai.Text
Sheet1.Cells(NextRow, 3) = TKNo.Text
[COLOR=#ff0000]' NextRow1 = Application.WorksheetFunction.Max(Sheet1.Range("A65536").End(xlUp).Row + 1, 4) bỏ dòng này[/COLOR]
Sheet1.Cells([COLOR=#ff0000]NextRow + 1[/COLOR], 4) = TextTKCo.Text