Code tông hợp nhiều Sheet và một sheet (Loại một sheet không lấy vào)

[hoahuongduong1986]

Dear Anh chị

Em làm Code tổng hợp nội dung nhiều Sheet và một Sheet ạ, theo đoạn code
Dim sh As Worksheet
With Sheets("Tonghop")
.[B3:I5000].Clear
For Each sh In Worksheets

Select Case sh.Name
Case "Tonghop"
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

Bây giờ em muốn không tổng hợp nội dung của một Sheet có tên "Thang 2" thì viết thêm thế nào ạ.

 

[giaiphap]

Dear Anh chị

Em làm Code tổng hợp nội dung nhiều Sheet và một Sheet ạ, theo đoạn code
Dim sh As Worksheet
With Sheets("Tonghop")
.[B3:I5000].Clear
For Each sh In Worksheets

Select Case sh.Name
Case "Tonghop"
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

Bây giờ em muốn không tổng hợp nội dung của một Sheet có tên "Thang 2" thì viết thêm thế nào ạ.

Thêm dòng màu đỏ
Dim sh As Worksheet
With Sheets("Tonghop")
.[B3:I5000].Clear
For Each sh In Worksheets

Select Case sh.Name
Case "Tonghop"
Case "Thang 2"
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

 

[hoahuongduong1986]

Thêm dòng màu đỏ
Dim sh As Worksheet
With Sheets("Tonghop")
.[B3:I5000].Clear
For Each sh In Worksheets

Select Case sh.Name
Case "Tonghop"
Case "Thang 2"
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

Được rồi ạ. Em cảm ơn ạ