LẬP TRÌNH VBA ĐỂ LÀM BÁO CÁO ( LÀM SHEET TỔNG HỢP TỪ NHIỀU SHEET)

[Skyblue1910]

Chào các bạn.
Mình muốn làm sheet tổng hợp, lấy dữ liệu từ rất nhiều sheet.
Các bạn có thể giúp mình với không ạ ? mình có gửi file đính kèm các bạn tham khảo nha.
thông tin mình cần lấy là những phần tô màu vàng ở sheet sumary từ các sheet thành phần nha ( Mỗi brand có 1 sheet báo cáo, cũng tầm trên 40 sheet)
File đính kèm mình chỉ demo bảng báo cáo thôi nha.
HELP ME. PLEASE
Cảm ơn các bạn nhiều.
Trường hợp mình có thềm sản phẩm mới, có thêm sheet mới thì sẽ làm như thế nào ạ.

 

[saobekhonglac]

Chào các bạn.
Mình muốn làm sheet tổng hợp, lấy dữ liệu từ rất nhiều sheet.
Các bạn có thể giúp mình với không ạ ? mình có gửi file đính kèm các bạn tham khảo nha.
thông tin mình cần lấy là những phần tô màu vàng ở sheet sumary từ các sheet thành phần nha ( Mỗi brand có 1 sheet báo cáo, cũng tầm trên 40 sheet)
File đính kèm mình chỉ demo bảng báo cáo thôi nha.
HELP ME. PLEASE
Cảm ơn các bạn nhiều.
Trường hợp mình có thềm sản phẩm mới, có thêm sheet mới thì sẽ làm như thế nào ạ.

Dữ liệu có ăn nhậu gì với nhau đâu mà làm, mỗi sheet mỗi khác thì tổng hợp theo nguyên tắc nào

 

[Skyblue1910]

Dữ liệu có ăn nhậu gì với nhau đâu mà làm, mỗi sheet mỗi khác thì tổng hợp theo nguyên tắc nào

SHEET TỔNG HỢP ở bảng 1 là lấy kết quả ở ô C8 của các sheet thành phần theo tên brand đó ạ, sheet thành phần cũng đặt tên theo brand ạ

 

[saobekhonglac]

SHEET TỔNG HỢP ở bảng 1 là lấy kết quả ở ô C8 của các sheet thành phần theo tên brand đó ạ, sheet thành phần cũng đặt tên theo brand ạ

Nếu lấy cố định C8 thì dùng Indirect là được, hoặc không theo thứ tự thì làm sumif.
C11=INDIRECT("'"&$B11&"'!C8")

 

[Skyblue1910]

Nếu lấy cố định C8 thì dùng Indirect là được, hoặc không theo thứ tự thì làm sumif.
C11=INDIRECT("'"&$B11&"'!C8")

À, mình muốn viết code để làm nhanh hơn, tại tháng nào mình cũng làm à. Làm thủ công thì lâu lắm bạn, tại mình làm nhiều bảng trong sheet tổng hợp nữa chứ k phải 1 bảng đó không à
Những bảng dưới là tính tổng theo các sheet thành phần, mình làm tay hay bị sai số lắm. Mình muốn nhờ viết code phần này luôn à

 

[khi ta 20]

Chào các bạn.
Mình muốn làm sheet tổng hợp, lấy dữ liệu từ rất nhiều sheet.
Các bạn có thể giúp mình với không ạ ? mình có gửi file đính kèm các bạn tham khảo nha.
thông tin mình cần lấy là những phần tô màu vàng ở sheet sumary từ các sheet thành phần nha ( Mỗi brand có 1 sheet báo cáo, cũng tầm trên 40 sheet)
File đính kèm mình chỉ demo bảng báo cáo thôi nha.
HELP ME. PLEASE
Cảm ơn các bạn nhiều.
Trường hợp mình có thềm sản phẩm mới, có thêm sheet mới thì sẽ làm như thế nào ạ.

Bạn hổng cho biết tổng hợp của sheet nào ,tại vùng nào .Làm khó nhau quá

 

[Thong Hoang Tien 250691]

SHEET TỔNG HỢP ở bảng 1 là lấy kết quả ở ô C8 của các sheet thành phần theo tên brand đó ạ, sheet thành phần cũng đặt tên theo brand ạ

File demo gì mà đến gần 4MB ?
Bạn thử chạy code này xem đúng ý bạn không ? nếu đúng thì bạn tự hoàn thiện nó nhé.

Sub test1()
Dim i, j As Integer
Dim wb As Workbook
Set wb = ThisWorkbook
On Error Resume Next
For i = 10 To 61
    shName = wb.Sheets(1).Cells(i, 2)
For j = 3 To 20
    wb.Sheets(1).Cells(i, j) = wb.Sheets(shName).Cells(8, j)
Next j
Next i

End Sub

 

[Skyblue1910]

Bạn hổng cho biết tổng hợp của sheet nào ,tại vùng nào .Làm khó nhau quá

mình lấy giá trị tại ô C8, E8, G8... của tất cả các sheet thành phần tại bảng số 1 của tất cả các sheet thành phần (kinder joy, tic tac, ricola....)
Bảng số 2 của sheet tổng hợp là tổng của các giá trị trong bảng số 3 của tất cả sheet thành phần theo dòng ( tên tiêu đề từng dòng).

Bài đã được tự động gộp: 18/10/18

File demo gì mà đến gần 4MB ?
Bạn thử chạy code này xem đúng ý bạn không ? nếu đúng thì bạn tự hoàn thiện nó nhé.

Sub test1()
Dim i, j As Integer
Dim wb As Workbook
Set wb = ThisWorkbook
On Error Resume Next
For i = 10 To 61
    shName = wb.Sheets(1).Cells(i, 2)
For j = 3 To 20
    wb.Sheets(1).Cells(i, j) = wb.Sheets(shName).Cells(8, j)
Next j
Next i

End Sub

Dạ đúng rồi anh, nhưng em không biết viết code ạ .Nếu có thể a có thể viết dùm em đc không ạ. Cảm ơn anh nhiều ạ.
Với cái bảng thứ 2 trong sheet summary là tính tổng tất cả giá trị tại bảng thứ 3 của các sheet thành phần theo tiêu đề dòng và cột ạ. A giúp em cái này được không ạ