Code dữ liệu từ nhiều Sheet và một Sheet kèm theo lấy tên của sheet

[Phương Phương mito]

Dear Anh Chị và các bạn
Em có đoạn Code Copy dữ liệu nhiều Sheet và một Sheet như sau. Các sheet có tên là Tháng 1, Tháng 2....

Sub Copy_TongHop()

Application.ScreenUpdating = True
Dim sh As Worksheet
With Sheets("Tonghop")
.[B3:I5000].Clear
For Each sh In Worksheets

Select Case sh.Name
Case "Tonghop"
Case "Bieudo"
Case Else
sh.Range(sh.[B11], sh.[B2500].End(3)).Resize(, 8).Copy
Sheets("Tonghop").[B65536].End(3)(2).PasteSpecial 3
End Select
Next
End With

Application.ScreenUpdating = False
End Sub

Giờ em muốn thêm điều kiện thêm một cột Tháng tức nó lấy được tên các Sheet là Tháng 1, tháng 2 khi Copy dữ liệu thì làm thế nào ạ

 

[VetMini]

Tham lam

 

[Phương Phương mito]

Da

Dear Anh Chị và các bạn
Em có đoạn Code Copy dữ liệu nhiều Sheet và một Sheet như sau. Các sheet có tên là Tháng 1, Tháng 2....

Sub Copy_TongHop()

Application.ScreenUpdating = True
Dim sh As Worksheet
With Sheets("Tonghop")
.[B3:I5000].Clear
For Each sh In Worksheets

Select Case sh.Name
Case "Tonghop"
Case "Bieudo"
Case Else
sh.Range(sh.[B11], sh.[B2500].End(3)).Resize(, 8).Copy
Sheets("Tonghop").[B65536].End(3)(2).PasteSpecial 3
End Select
Next
End With

Application.ScreenUpdating = False
End Sub

Giờ em muốn thêm điều kiện thêm một cột Tháng tức nó lấy được tên các Sheet là Tháng 1, tháng 2 khi Copy dữ liệu thì làm thế nào ạ


View attachment 241880
[/QUOTE
Dạ vâng ạ,
Em có hỏi mà lúc đó mạng lỗi em tưởng nó không lên ạ. Xong em lại hỏi lại. Lần sau em sẽ cẩn thận hơn ạ.