Xóa các sheet nằm sau một sheet nhất định

[luckyluke2828]

Gửi các bác,
Em nhờ các bác viết giùm em một đoạn code để xóa tất cả các Sheet nằm sau 1 sheet nhất định.
VD file Excel của em gồm các sheet theo thứ tự: Data, Summary, Dealer, Group1, Group 2. Em muốn xóa tất cả các sheet nằm sau Dealer.
Thân

 

[VetMini]

Dealer: làm ở sòng bạc hở. (chắc mấy cái Groups là Croupiers oánh vần lộn)

namSau = 0
For each sh in WorkSheets
IF namSau Then sh.Visible = False
IF sh.Name = "Dealer" Then namSau = 1
Next sh

 

[giaiphap]

Gửi các bác,
Em nhờ các bác viết giùm em một đoạn code để xóa tất cả các Sheet nằm sau 1 sheet nhất định.
VD file Excel của em gồm các sheet theo thứ tự: Data, Summary, Dealer, Group1, Group 2. Em muốn xóa tất cả các sheet nằm sau Dealer.
Thân

Thử cái này (Suy nghĩ trước khi Test).

Sub GPE()
    Dim i As Integer
    Application.DisplayAlerts = False
    For i = ThisWorkbook.Worksheets.Count To ThisWorkbook.Sheets("Sheet2").Index + 1 Step -1
        ThisWorkbook.Sheets(i).Delete
    Next i
    Application.DisplayAlerts = True
End Sub

 

[luckyluke2828]

Dealer: làm ở sòng bạc hở. (chắc mấy cái Groups là Croupiers oánh vần lộn)

namSau = 0
For each sh in WorkSheets
IF namSau Then sh.Visible = False
IF sh.Name = "Dealer" Then namSau = 1
Next sh

Cám ơn bạn nhiều, đây không phải sòng bạc đâu. Dealer là các đại lý đó. Mình làm ở hãng

Bài đã được tự động gộp: 23/3/21

Thử cái này (Suy nghĩ trước khi Test).

Sub GPE()
    Dim i As Integer
    Application.DisplayAlerts = False
    For i = ThisWorkbook.Worksheets.Count To ThisWorkbook.Sheets("Sheet2").Index + 1 Step -1
        ThisWorkbook.Sheets(i).Delete
    Next i
    Application.DisplayAlerts = True
End Sub

Cảm ơn bạn nhiều lắm