VBAG01: Tuyệt đỉnh VBA - Viết code trong tầm tay

khi chạy từng dòng code, thì sau bước đưa wb2 vào data, khi đến wb3 thì nó thay thế giá trị của wb2 trong data thành wb3 chứ k nối tiếp ở dòng cuối. Có vẻ dongcuoi_wb4 đang bị nhận một giá trị cố định. Các thầy check giúp mình

Sub Gop_DuLieu_02()
'xac dinh pham vi noi cho: WB1
   'Workbooks("book1").Sheet1.Range("A2:C4").Value
'xac dinh noi nhan
   'Workbooks("book4").Sheet2.Range("A2:C4").Value
'dua du lieu vao
   Workbooks("book4").Sheets("Data").Range("A2:C4").Value = _
   Workbooks("book1").Sheets("Sheet1").Range("A2:C4").Value
'dua du lieu tu cac workbook khac
'Xac dinh dong cuoi c?a wb2
   Dim DongCuoi_Wb2 As Long
   DongCuoi_Wb2 = Workbooks("book2").Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
'xac dinh khoang cach so dong du lieu
   'khoang cach = dongcuoi_wb2 - dongdau_w2
   Dim Dongdau_Wb2 As Long
       Dongdau_Wb2 = 2
   Dim KhoangCach_Wb2 As Long
       KhoangCach_Wb2 = DongCuoi_Wb2 - Dongdau_Wb2 + 1
   'Noi nhan: '
       'Tim dong cuoi noi nhan la diem bat dau
       'PHam vi vung nhan = khoang cach
   Dim DongCuoi_wb4 As Long
       DongCuoi_wb4 = Workbooks("book4").Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
       'dua du lieu vao
   Workbooks("book4").Sheets("Data").Range("A" & DongCuoi_wb4 + 1 & ":C" & DongCuoi_wb4 + KhoangCach_Wb2).Value = _
   Workbooks("book2").Sheets("Sheet1").Range("A" & Dongdau_Wb2 & ":C" & DongCuoi_Wb2).Value

   'DUA WB3 VAO WB4
   Dim Dongcuoi_Wb3 As Long
       Dongcuoi_Wb3 = Workbooks("book3").Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
   Dim Dongdau_Wb3 As Long
       Dongdau_Wb3 = 2
   Dim Khoangcach_Wb3 As Long
       Khoangcach_Wb3 = Dongcuoi_Wb3 - Dongdau_Wb3 + 1
       
   Workbooks("book4").Sheets("Data").Range("A" & DongCuoi_wb4 + 1 & ":C" & DongCuoi_wb4 + Khoangcach_Wb3).Value = _
   Workbooks("book3").Sheets("sheet1").Range("A" & Dongdau_Wb3 & ":C" & Dongcuoi_Wb3).Value
   
   
End Sub

em cần làm câu 2 ý 2, xin giải đáp

chào thầy, em làm giống như thầy nhưng tới khúc tạo macro 3 để lọc giá trị trùng lặp thì nó không nằm trong module 1 giống như video của thầy mà lại nằm trong module 2 mới tạo thêm

Hi Thầy!

Em viết code coppy dữ liệu từ 2 wb nhưng bị báo lỗi, cửa sổ Project như trong hình,

Thầy xem giúp em với ạ, em cảm ơn!

Nhờ thầy xem dùm sao em làm giống mà nó báo lỗi ạ

thưa thầy, tại sao trong phần tìm dòng cuối lại không cần ghi sheet nào vậy ạ?

Muốn dùng offset để lấy dữ liệu tương ứng theo ten hàng hoá thì code mẫu ntn ạ

Cho em hỏi: Tại sao không dùng CDate để chuyển đổi kiểu dữ liệu sang dạng Date mà dùng Clng trong trường hợp này ạ???

Em viết thêm theo bài tập chương 10

Làm sao để sau khi hiện msgbox thiếu dữ liệu thì không đóng mở bảng và lưu mà giữ nguyên bảng đang nhập để nhập tiếp và không lưu ạ

Private Sub cmb_luu_Click()
   'Tim dong cuoi trong bang du lieu can luu
   Dim dongcuoi As Long
   dongcuoi = Sheet1.Range("E" & Rows.Count).End(xlUp).Row
   'Luu noi dung tuong ung theo cot
   Sheet1.Range("E" & dongcuoi + 1) = tb_Hoten.Value
   Sheet1.Range("F" & dongcuoi + 1) = tb_ngaysinh.Value
   Sheet1.Range("G" & dongcuoi + 1) = cbb_Bophan.Value
   Sheet1.Range("H" & dongcuoi + 1) = tb_songaycong.Value
   Sheet1.Range("I" & dongcuoi + 1) = tb_mucluongngay.Value
   Sheet1.Range("J" & dongcuoi + 1) = tb_tongtienluong.Value
   
   If tb_Hoten.Value = "" Then
   MsgBox "Vui long nhap ten", vbOKOnly
   ElseIf tb_ngaysinh.Value = "" Then
   MsgBox "Vui long nhap ngay sinh", vbOKOnly
   ElseIf cbb_Bophan.Value = "" Then
   MsgBox "Vui long chon bo phan", vbOKOnly
   ElseIf tb_songaycong.Value = "" Then
   MsgBox "Vui long nhap so ngay cong", vbOKOnly
   ElseIf tb_mucluongngay.Value = "" Then
   MsgBox "Vui long nhap muc luong ngay", vbOKOnly
   Else

   End If

   'Lam moi lai noi dung uf
   Unload Me
   uf_HoTen.Show
   
End Sub

E có đoạn code gộp dữ liệu từ các sheet vào 1 sheet, nó chạy đến đoạn S6 thì bị lỗi Over flow, nhờ thầy xem giúp, đoạn code bị lỗi ở đâu và xử lý thế nào ạ? Biết ơn thầy

Sub Gopdulieu()

   'Dim S1, S2, S3, S4, S5, S6 As Long
   Dim S1 As Double, S2 As Double, S3 As Double, S4 As Double, S5 As Double, S6 As Double
   
   S1 = Sheets("1. Huong").Cells(1, 2) + 3
   S2 = Sheets("2. Hien").Cells(1, 2) + S1
   S3 = Sheets("3. Hue").Cells(1, 2) + S2
   S4 = Sheets("4. Tuyet").Cells(1, 2) + S3
   S5 = Sheets("5. Sang").Cells(1, 2) + S4
   S6 = Sheets("6. Ngan").Cells(1, 2) + S5
   
   Application.ScreenUpdating = False
   
   Sheets("2023").Range("A4:AN" & S6).Clear
  
   ThisWorkbook.Sheets("2023").Range("A4:AN" & S1) = ThisWorkbook.Sheets("1. Huong").Range("A4:AN" & S1).Value
   ThisWorkbook.Sheets("2023").Range("H4:H" & S1) = "1. Huong"

   ThisWorkbook.Sheets("2023").Range("A" & S1 + 1 & ":" & "AN" & S2) = ThisWorkbook.Sheets("2. Hien").Range("A4:AN" & S2 - S1 + 3).Value
   ThisWorkbook.Sheets("2023").Range("H" & S1 + 1 & ":" & "H" & S2) = "2. Hien"
   
   ThisWorkbook.Sheets("2023").Range("A" & S2 + 1 & ":" & "AN" & S3) = ThisWorkbook.Sheets("3. Hue").Range("A4:AN" & S3 - S2 + 3).Value
   ThisWorkbook.Sheets("2023").Range("H" & S2 + 1 & ":" & "H" & S3) = "3. Hue"

   ThisWorkbook.Sheets("2023").Range("A" & S3 + 1 & ":" & "AN" & S4) = ThisWorkbook.Sheets("4. Tuyet").Range("A4:AN" & S4 - S3 + 3).Value
   ThisWorkbook.Sheets("2023").Range("H" & S3 + 1 & ":" & "H" & S4) = "4. Tuyet"

   ThisWorkbook.Sheets("2023").Range("A" & S4 + 1 & ":" & "AN" & S5) = ThisWorkbook.Sheets("5. Sang").Range("A4:AN" & S5 - S4 + 3).Value
   ThisWorkbook.Sheets("2023").Range("H" & S4 + 1 & ":" & "H" & S5) = "5. Sang"

   ThisWorkbook.Sheets("2023").Range("A" & S5 + 1 & ":" & "AN" & S6) = ThisWorkbook.Sheets("6. Ngan").Range("A4:AN" & S6 - S5 + 3).Value
   ThisWorkbook.Sheets("2023").Range("H" & S5 + 1 & ":" & "H" & S6) = "6. Ngan"