Hi Gitiho,
Mình đang làm thử bài ví dụ của chương 6.
Tuy nhiên khi chạy code thì báo lỗi sai như sau.
Gitiho giúp mình sai do đâu ạ?
Mình đã sửa lại tên của sheet nhưng vẫn không chạy được code.
Lam sao để đẩy file lên được ạ?
Mình gửi link ạ.
Chào bạn bạn thử nhé
Option Explicit
Sub TimDongCuoi()
'B1:Tim dong cuoi
Dim DongCuoi As Long
DongCuoi = Sheet10.Range("B" & Rows.Count).End(xlUp).Row
Range("K2").Value = DongCuoi
'B2: Dien thong tin tuong ung
'Dien o "K1" vao cot A
Range("A" & DongCuoi + 1).Value = Range("K1").Value
'Dien o "K2" vao cot B
Range("B" & DongCuoi + 1).Value = Range("K2").Value
'Dien o "K3" vao cot C
Range("C" & DongCuoi + 1).Value = Range("K3").Value
'Dien o "K4" vao cot D
Range("D" & DongCuoi + 1).Value = Range("K4").Value
'B3: Thong bao hoan thanh
MsgBox "Updated"
'B4: Xoa thong tin
Range("K").Clear
End Sub