Tách sheet và Save File theo điều kiện

[ngoctuyen1995]

Thân chào cả nhà GPEX.!
Em có bài toán này mà chưa biết giải quyết ra sao, mong cả nhà giúp đỡ ạ

Em có 02 File:
File Danh Sach và File Data_Total (gần 100 sheet)
Ấn vào nút Run:
sẽ tự động Tách Sheet theo điều kiện Code Sold To (Cột B) File Danh Sach Map với điều kiện Range("C15") theo từng sheet ở File Data_Total, nếu thỏa điều kiện thì sẽ save File theo tên của cột Region (Nếu cùng chung 1 Region thì sẽ nằm Chung 1 File)

Em có làm File Demo Kết Quả và đính kèm ạ
Rất mong sợ giúp đỡ cua cả nhà, em chân thành cảm ơn ạ.

 

[xxxsongwww]

Thử code này nhé.

Sub xoasheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If InStr(sh.Name, "thanh toán") Then
           sh.Delete
        End If
   Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Em cảm ơn anh nhiều nha