Code lấy tên của Sheet khi copy dữ liệu

[Phương Phương mito]

Dear Anh Chị
Em có File và Code kèm theo copy dữ liệu liên tiếp Từ nhiều sheet vào một sheet. Làm sao để nó lấy tên Sheet là Thang1, Thang2....khi copy dữ liệu tương ứng của tháng ạ.

 

[BuiQuangThuan]

Sao không gom mấy yêu cầu vào làm 1 mà cứ chia nhỏ ra hỏi thế bạn

 

[Phương Phương mito]

Sao không gom mấy yêu cầu vào làm 1 mà cứ chia nhỏ ra hỏi thế bạn

Dạ tại trước em hỏi chưa rõ rang và chưa đưa File lên. Lần này em đưa lên rõ ràng hơn cho mọi người dễ hiểu và trợ giúp ạ. Em sẽ rút kinh nghiệm ạ

 

[giaiphap]

Dear Anh Chị
Em có File và Code kèm theo copy dữ liệu liên tiếp Từ nhiều sheet vào một sheet. Làm sao để nó lấy tên Sheet là Thang1, Thang2....khi copy dữ liệu tương ứng của tháng ạ.

Sửa code lại thế này.

Sub Copy_TongHop()
Application.ScreenUpdating = False
Dim sh As Worksheet
   With Sheets("Tonghop")
      .[B3:S9000].Clear
      .[A:A].Clear
      For Each sh In Worksheets      
        Select Case sh.Name
        Case "Tonghop", "Bieudo"
        Case Else
            sh.Range(sh.[A2], sh.[A2500].End(3)).Resize(, 11).Copy
            .[B65536].End(3)(2).PasteSpecial 3
            .Range("A2:" & .[B65536].End(3).Address(0, 0)).SpecialCells(xlCellTypeBlanks) = sh.Name
        End Select
      Next
   End With    
Application.ScreenUpdating = True
End Sub

 

[Phương Phương mito]

Sửa code lại thế này.

Sub Copy_TongHop()
Application.ScreenUpdating = False
Dim sh As Worksheet
   With Sheets("Tonghop")
      .[B3:S9000].Clear
      .[A:A].Clear
      For Each sh In Worksheets     
        Select Case sh.Name
        Case "Tonghop", "Bieudo"
        Case Else
            sh.Range(sh.[A2], sh.[A2500].End(3)).Resize(, 11).Copy
            .[B65536].End(3)(2).PasteSpecial 3
            .Range("A2:" & .[B65536].End(3).Address(0, 0)).SpecialCells(xlCellTypeBlanks) = sh.Name
        End Select
      Next
   End With   
Application.ScreenUpdating = True
End Sub

Code chạy tốt anh ạ ! Em cảm ơn anh nhiều ạ !