Code VBA tổng hợp dữ liệu nhiều sheet vào một sheet.

[chiendich]

Lỗi do bạn gộp ô và cố định tiêu đề không đúng . Tôi bỏ Merge ra, bạn chỉnh lại cho đẹp nhé. tôi không sửa đến code.

 

[nguyentandat200595]

Lỗi do bạn gộp ô và cố định tiêu đề không đúng . Tôi bỏ Merge ra, bạn chỉnh lại cho đẹp nhé. tôi không sửa đến code.

Nếu vậy thì phải thay đổi biểu mẫu.có cách nào sửa đoạn code lại để phù hợp với biểu mẫu không bạn.Tại đó là biểu mẫu quy định

 

[nguyentandat200595]

Thầy ơi cho e hỏi làm sao tạo được nút cập nhât này vậy thầy.

 

[phulien1902]

Bạn tham khảo:
Hướng dẫn cách gán macro vào nút để chạy

 

[yenpham.qpt]

Thầy ơi cho e hỏi làm sao tạo được nút cập nhât này vậy thầy.

Dear bạn,
Bạn vào Developer -> Insert -> ActiveX Control bạn chọn Command Button nào mà bạn thích, rồi sao đó dán code vào.
Sau này mỗi lần mún run code, bạn bấm vào nút đó là được.

Thanks,

 

[SA_DQ]

. . . . có cách nào sửa đoạn code lại để phù hợp với biểu mẫu không bạn.Tại đó là biểu mẫu quy định

Hiện tại, nếu ta đang ở các trang tính kha1cf 'YHop' mà bấm vô hình mặt cười sẽ bị báo lỗi dòng lệnh này:

    .[b3].CurrentRegion.Offset(1, 1).ClearContents

Nội dung báo lỗi nôm na là ta không thể thay đổi (ở dây là xóa dữ liệu) 1 trong các ô trộn.
Có nghĩa là lỗi gây ra khi file này đã khác với file trước, không có cấu trúc trộn ô;
Mục tiêu của dòng lệnh đó là xóa dữ liệu cũ (do macro chạy lần trước tạo ra;
Như trong file mới sẽ là vùng: từ ô [B5] cho đến ô "T" thuộc dòng cuối cùng có dữ liệu
Nếu không có ô trộn thì dòng lệnh này là ngắn gọn & không bị lổi;
Nếu có ô trộn ta nên thực hiện việc xóa này theo 2 bước:
Thứ nhất: Xác định dòng cuối có dữ liệu:

Dim Rws As Long
With Sheets("THop")
   Rws = .[B3].CurrentRegion.Rows.Count    '
2  .[B3].Resize(Rws, 26).ClearContents
End With

Dòng lệnh có đánh số 2 là bước thứ 2: Xóa dữ liệu lần chạy macro trước đó.
Con số 26 là con số áng chừng & dư so với thực tế; Con số thực ta có thể xác định chính xác chí ít bằng 2 cách

 

[tungshin90]

Dear bạn,
Bạn vào Developer -> Insert -> ActiveX Control bạn chọn Command Button nào mà bạn thích, rồi sao đó dán code vào.
Sau này mỗi lần mún run code, bạn bấm vào nút đó là được.

Cảm ơn,

Bạn chỉ cho mình cách tạo Nút như file mình đính kèm ko
Cám ơn bạn nhiều

 

[hoaithu185]

Thứ nhất, Các thành viên ở các trang tính cần có mã duy nhất; Điều này là cần thiết để không có việc râu ông này cắm vô cằm bà kia, như ông bà nói.
Mã duy nhất này có trong toàn bộ các nhân vật tham gia trong chuyện thuyên chuyển (giống như số danh đính cá nhân vậy)
Lúc đó thì có thay đổi gì (ngoài mã danh định này là vô tư được cập nhật.

Chuyện cập nhật của từng trang tính sẽ là thực thií macro có nội dung không khác nhau mấy.
Mã định danh này hện bạn xài mã định danh cá nhân đi; Riêng các cháu HS chưa có CMND thì bạn tùy chỉnh khác với CMND của cha hay mẹ của chúng đi 1 chút

Mình có thể gợi í bạn mã định danh duy nhất gọn hơn; Nhưng chuyện này bạn cần cho biết danh sách toàn bộ các trang tính trong CSDL mới thực thi được.