Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Lộ trình học tập
Khám phá đỉnh cao tri thức cùng Gitiho qua hành trình học tập được thiết kế tỉ mỉ và toàn diện. Với kho tàng lộ trình đa dạng, chuyên sâu trên mọi lĩnh vực, chúng tôi sẽ đồng hành cùng bạn khai phá tiềm năng, chinh phục thách thức và khẳng định giá trị bản thân. Mỗi hành trình đều được nghiên cứu công phu, tạo nên bước đệm vững chắc để bạn tự tin bứt phá và tỏa sáng trên con đường phát triển sự nghiệp."
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
em đang viết code như thế này cho bải thêm mới workbook nhưng tại sao bài em
thầy ơi. em đang viết code như thế này cho bải thêm mới workbook nhưng tại sao bài em lại bị lỗi ạ. thầy giải thích giúp em với ạ
Sub locDuLieu()
' Gan du lieu
SHtam.Range("A:A").Value = THHD.Range("E:E").Value
' LocTrung Macro
SHtam.Range("$A:$A").RemoveDuplicates Columns:=1, Header:=xlNo
'Dong cuoi
Dim DongCuoi As Long, i As Long, DCHDTH As Long
DongCuoi = SHtam.Range("A" & Rows.Count).End(xlUp).Row
DCHDTH = THHD.Range("E" & Rows.Count).End(xlUp).Row
For i = 2 To DongCuoi
THHD.Range("$B$1:$I" & DCHDTH).AutoFilter Field:=4, Criteria1:= _
SHtam.Cells(i, 1).Value
'copy
THHD.Range("$B$1:$I" & DCHDTH).Copy
'them moi workbook
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\hiendam\Desktop\Tên Khách Hàng\" & SHtam.Cells(i, 1).Value _
, FileFormat:=56
ActiveWorkbook.ActiveSheet.Range("A5").PasteSpecial Paste:=xlPasteValues
Next i
End Sub
8 câu trả lời
189 lượt xem
vỗ tay
Chào bạn bạn thử để tên đường dẫn không dấu và thử lại xem
vỗ tay
Dạ được rồi nhưng mà em làm lệnh Paste thì lại bị lỗi ạ
vỗ tay
Chào bạn ở đây bạn đang muốn làm gì với code này nhỉ?
vỗ tay
Bạn chú ý các đối tượng workbook bạn đang làm việc là ActiveWorkbook => rất dễ nhầm lẫn các workbook với nhau.
Trong khóa học mình có hướng dẫn là nên gán biến cho các đối tượng workbook để khi làm việc không bị nhầm lẫn.
- Copy từ workbook nào
- Paste sang workbook nào
Cần rõ ràng các đối tượng này.
vỗ tay
Thầy Ơi!
Cho em hỏi file của em viết bị lỗi phần N/A -> Cả những vũng không có Data vẫn update vào file gộp dữ liệu?
Sub Gop_Du_Lieu_Tu_2WorkBook()
'Dua du lieu vao:
Workbooks("Gop Du Lieu Tu nhieu Workbook").Sheets("Data").Range("a2:c4").Value = _
Workbooks("book1").Sheets("sheet1").Range("a2:c4").Value
'Gop Du lieu tu 2 workbooks
'1.Xac dinh dong cuoi cua workbooks 6
Dim DongCuoi_Wb2 As Long
DongCuoi_Wb2 = Workbooks("Book2").Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
'2.Xac dinh khoang cach cua workbook so 6
Dim DongDau_Wb2 As Long
DongDau_Wb2 = 2
Dim KhoangCach_Wb2 As Long
KhoangCach_Wb2 = 1 + DongCuoi_Wb2 - DongDau_Wb2
'3. noi nhan
'Tim dong cuoi cua noi nhan la diem bat dau
Dim DongCuoi_Wb4 As Long
DongCuoi_Wb4 = Workbooks("Gop Du Lieu Tu nhieu Workbook").Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
'4. dua du lieu cua 2 workbooks vao 1 sheet
Workbooks("Gop Du Lieu Tu nhieu Workbook").Sheets("Data").Range("A" & DongCuoi_Wb4 + 1 & ":c" & DongCuoi_Wb4 + 1 & KhoangCach_Wb2).Value = _
Workbooks("Book2").Sheets("sheet1").Range("A" & DongDau_Wb2 & ":c" & DongCuoi_Wb2).Value
End Sub
vỗ tay
Chào bạn bạn xem phần này nhé
Workbooks("Gop Du Lieu Tu nhieu Workbook").Sheets("Data").Range("A" & DongCuoi_Wb4 + 1 & ":c" & DongCuoi_Wb4 + 1 & KhoangCach_Wb2).Value = _
Workbooks("Book2").Sheets("sheet1").Range("A" & DongDau_Wb2 & ":c" & DongCuoi_Wb2).Value
xem vị trí nơi cho có bằng nơi nhận không nhé.
vỗ tay
Thầy gợi ý thêm được k ạ?
vỗ tay
Chào bạn bạn so sánh nơi cho với nơi nhận xem khoảng cách có bằng nhau không nhé hoặc xem code mẫu
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông