Tổng hợp dữ liệu của 2 sheet thành 01 sheet (1 người xem)

[phuyen89]

Em có 2 sheet, em muốn tổng hợp nó thành 01 sheet
Sheet DLKT1 copy sang Sheet PSCN. Sau đó copy dữ liệu sheet DLNH1 để dán sau dữ liệu của DLKT trong Sheet PSCN.

Nhưng làm sao khi DLKT hoặc DLNH nó thay đổi thi Dữ liệu mà mình đã dán vào Sheet PSCN cũng thay đổi theo.
Em có mô ta trong File chi tiết. Mong các bạn, anh chị giúp cho.

Do dữ liệu của em là từ công thức chạy ra, chứ không phải là gõ vào, nên em không biết cách nào để lấy cho nó chính xác.

 

[Nhím xù lông F1]

Theo mình nghĩ cách theo dõi của bạn hơi phức tạp. Tại sao không theo dõi theo từng khách hàng, còn nếu bạn muốn theo dõi tất cả khách hàng chi tiết theo dạng ngày tháng như vậy thì nên thêm 1 cột mã khách hàng. Đặt mỗi khách hàng theo từng cấp mã riêng và chỉ cần dùng hàm VLOOKUP là vẫn đáp ứng được yêu cầu của bạn

 

[phuyen89]

Theo mình nghĩ cách theo dõi của bạn hơi phức tạp. Tại sao không theo dõi theo từng khách hàng, còn nếu bạn muốn theo dõi tất cả khách hàng chi tiết theo dạng ngày tháng như vậy thì nên thêm 1 cột mã khách hàng. Đặt mỗi khách hàng theo từng cấp mã riêng và chỉ cần dùng hàm VLOOKUP là vẫn đáp ứng được yêu cầu của bạn

Vì nơi mình làm nó đã theo một cái Form từ truớc đến này. Lâu nay vẫn dùng copy paste nên mình mới dùng cách này, nhưng như thế này cũng nhanh hơn copy, paste, nên mong mọi người giúp cho đỡ lần sau khỏi vất vả copy dán.

 

[Quang_Hải]

Ban copy code này và đưa vào sheet PSCN nghen

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheets("DLKT1")
Set sh2 = Sheets("DLNH1")
[a10:g5000].ClearContents
With sh1.Range(sh1.[b6], sh1.[h65536].End(3))
    .AutoFilter 2, "<>"
    .SpecialCells(12).Copy
[a10].PasteSpecial 3
    .AutoFilter
AutoFilterMode = False
End With
With sh2.Range(sh2.[a7], sh2.[a65536].End(3).Offset(, 6))
    .AutoFilter 2, "<>#N/A"
    .SpecialCells(12).Copy
    [a65536].End(3).Offset(1).PasteSpecial 3
    .AutoFilter
AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub

 

[phuyen89]

Chân thành cảm ơn. Đúng là con đường học VBA còn dài quá.Hy vọng sau 20 năm nữa sẽ bằng anh bây giờ
Ah mà hôm trước anh làm cho mình cái này:

http://www.giaiphapexcel.com/forum/...t-địa-chỉ-của-vùng-có-sẵn&p=406606#post406606

Nhưng khi số Sheet nó nhiều thì chạy trên E2003 thì bị lỗi còn trên E2007 thì không sao cả. Vậy nguyên nhân là từ đâu/

 

[Quang_Hải]

Chân thành cảm ơn. Đúng là con đường học VBA còn dài quá.Hy vọng sau 20 năm nữa sẽ bằng anh bây giờ
Ah mà hôm trước anh làm cho mình cái này:

Nhưng khi số Sheet nó nhiều thì chạy trên E2003 thì bị lỗi còn trên E2007 thì không sao cả. Vậy nguyên nhân là từ đâu/

Bật mí cho bạn và mọi người biết nha: mình chỉ mới tự học VBA trên diễn đàn này khoảng 3 tháng thôi, nhưng do chịu khó cày ngày cày đêm nên cũng tiến bộ được mỗi ngày.
Còn cái vụ tại sao lỗi trên 2003 thì mình có đọc trên diễn đàn hình như là 2003 chỉ có thể có khoảng hơn 250 sheet cho 1 file.

 

[phuyen89]

Bật mí cho bạn và mọi người biết nha: mình chỉ mới tự học VBA trên diễn đàn này khoảng 3 tháng thôi, nhưng do chịu khó cày ngày cày đêm nên cũng tiến bộ được mỗi ngày.
Còn cái vụ tại sao lỗi trên 2003 thì mình có đọc trên diễn đàn hình như là 2003 chỉ có thể có khoảng hơn 250 sheet cho 1 file.

Nhưng 1 file mình có thể tạo cho nó cả ngàn sheet thông qua phép thử for..next. Nhưng copy từ sheet này qua sheet nọ thì khoảng 250 sheet thôi sao.

 

[Quang_Hải]

Nhưng 1 file mình có thể tạo cho nó cả ngàn sheet thông qua phép thử for..next. Nhưng copy từ sheet này qua sheet nọ thì khoảng 250 sheet thôi sao.

Chịu thua, mình không có ý nghĩ phải tạo nhiều sheet như thế nên cũng chưa tìm hiểu kỹ vấn đề này.

 

[toanthanhcong]

Bật mí cho bạn và mọi người biết nha: mình chỉ mới tự học VBA trên diễn đàn này khoảng 3 tháng thôi, nhưng do chịu khó cày ngày cày đêm nên cũng tiến bộ được mỗi ngày.
Còn cái vụ tại sao lỗi trên 2003 thì mình có đọc trên diễn đàn hình như là 2003 chỉ có thể có khoảng hơn 250 sheet cho 1 file.

Em chào anh Hải./.
Khâm phục bác QuangHai thật không biết bac nói vậy để an ủi các bạn đang tìm hiểu VBA không, chứ mà bác học VBA trong 3 tháng mà được như vậy thì IQ của bác quá pro.