Sayfaları sildirme

[taseraydin]

"GİRİŞ" sayfası dışında mevcut açılmış olan bütün mokro ile sayfaların silinmesi için nasıl bir kod yazmam gerek

 

[Emir Hüseyin Çoban]

Konuyu biraz daha açar mısınız?
Ör. çalışmanız da kaç tane sayfa var.

Sub sayfasil()
Application.DisplayAlerts = False
Worksheets("[COLOR="Red"]Sayfa1[/COLOR]").Delete
Worksheets("[COLOR="Red"]Sayfa2[/COLOR]").Delete
End Sub

Sanırım bu kodlar işinizi görür, sayfa1 ve 2 yerine silmek istediğiniz sayfa isimlerini yazınız.

 

[Ömer]

Merhaba,

Alternatif olsun.

Sub SayfaSil()
Dim sayfa As Worksheet
Application.DisplayAlerts = False
    For Each sayfa In Worksheets
        If sayfa.Name <> "Giriş" Then
            sayfa.Delete
        End If
    Next sayfa
Application.DisplayAlerts = True
End Sub

.

 

[taseraydin]

Teşekür

İlginize teşekürler

Çok fadalı oldu

Emeğinize elinize sağlık