Cập nhật dữ liệu qua lại giữa sheet Tổng và sheet Tra cứu (1 người xem)

[Let'GâuGâu]

Bạn coi thử file mình làm xem. File này mình viết dựa trên code vba của bạn HYen17.

Nhưng mà code hơi dài dòng nên nếu thêm dữ liệu thì nó tốn thời gian load

bạn xem nếu được giúp mình là trong Sub3 mình chỉ có thể upload thông tin nếu thay đổi ở cột B, nếu thông tin thay đổi ở cột F thì thông tin ko update được

Thanks

tôi nhìn cái form mà nó xuất ra, chẳng khoái tí nào!!!
viết rồi, tôi lại lo là bạn đổi nữa
bi giờ bạn đã chắc chắn
1-xuất ra có 3 sheet này?
2- nội dung trên mỗi sheet cũng chắc sẻ không thay đổi?
3- tại sao phải xếp nó trên 2 cột (ý tôi là cái tiêu đề, vd sub1 là cột A và E?, xếp trên một A thôi được ko?)
4- tôi thấy bạn đã bỏ cái sheet cập nhật ngược trở lại, nếu cập ngược lại thì cập nhật cả 3 sheet"sub" này?
==============
còn về giải phải thì bạn chỉ cần viết một sub thôi, kê3t quả trả vào 3 cái mảng
mảng 1==>sub1
mảng 2==>sub2
mảng 3==>sub3
chứ ko cần phải viết mỗi sheet một cái
===========
về câu hỏi của bạn, lấy giá trị b1 của sheet sub1
bạn viết
sheets("sub1").range("B1")==>thì nó hiếu bạn đang nói đến cái range đó chứ ko phải giá trị trong đó, bạn phải sửa lại như vậy

sheets("sub1").range("B1").value hoặc
sheets("sub1").[b1]

 

[dtaphuong]

tôi nhìn cái form mà nó xuất ra, chẳng khoái tí nào!!!
viết rồi, tôi lại lo là bạn đổi nữa
bi giờ bạn đã chắc chắn
1-xuất ra có 3 sheet này?
2- nội dung trên mỗi sheet cũng chắc sẻ không thay đổi?
3- tại sao phải xếp nó trên 2 cột (ý tôi là cái tiêu đề, vd sub1 là cột A và E?, xếp trên một A thôi được ko?)
4- tôi thấy bạn đã bỏ cái sheet cập nhật ngược trở lại, nếu cập ngược lại thì cập nhật cả 3 sheet"sub" này?
==============
còn về giải phải thì bạn chỉ cần viết một sub thôi, kê3t quả trả vào 3 cái mảng
mảng 1==>sub1
mảng 2==>sub2
mảng 3==>sub3
chứ ko cần phải viết mỗi sheet một cái
===========
về câu hỏi của bạn, lấy giá trị b1 của sheet sub1
bạn viết
sheets("sub1").range("B1")==>thì nó hiếu bạn đang nói đến cái range đó chứ ko phải giá trị trong đó, bạn phải sửa lại như vậy

sheets("sub1").range("B1").value hoặc
sheets("sub1").[b1]

1,2 số lượng sheets và nội dụng là sẽ thay đổi nha bạn vì dữ liệu nhiều quá nên mình chỉ lấy ví dụ thôi (Số lượng cột là 150 cột rồi)
3 mình chia làm 2 cho dễ nhìn thôi, chứ không có gì, vì sau này mình sợ thêm nhiều dòng vô đó nữa mà không chia làm 2 bên thì khó nhìn
4 Về cập nhật thì mình chỉ để ở Sub3 thôi vì mình chỉ làm theo code của bạn nên đặt ở Sheet nào thì sheet đó được cập nhật, chứ mình không biết là có thể tạo code để nhấn vào thì những sheet nào có cập nhật thông tin sẽ đổ hết về Total

Về trình bày thì đúng là xấu thiệt, nhưng mà từ từ học chắc cũng chỉnh sửa được. Hiện tại thì vậy chắc là đủ xài đối với mình.

sheets("sub1").range("B1").value hoặc sheets("sub1").[b1]. Tại dòng
k = Application.Match(Sheets("Sub1").Range("B1").Value, SoHD, 0) đã điều chỉnh như bạn chỉ nhưng nó vẫn không chịu, mình phải copy lại số hợp đồng bỏ vào B1 của Sub2 thì nó mới cập nhật. Mình không biết là mình làm thiếu cái gì mà nó ko nhận

 

[dtaphuong]

Nhờ mọi người giúp mình sửa code để khi nhấn nút cập nhật thông tin thì thông tin ở Sub3 sẽ được cập nhật vào Total