Dosyada aktif görünmeyen sayfaları silme

[tamer42]

Merhaba,
Makro içeren dosyanın adını değiştirdikten sonra ; ekli görselde görüleceği üzere VBA penceresinde sayfa adı olmayan sayfalar oluştu,

Bu sayfalar çalışma kitabında da görülmüyor, bu sayfaları nasıl yok edebilirim. Burada kirlilik oluşturmatalar.

Sayfa adı olmadığı için aşağıdaki gibi bir kod' da yazamadım.

desteğiniz için şimdiden teşekkürler,
iyi çalışmalar.

Sub vba_delete_sheet()
     Sheets("Data").Delete
 End Sub

 

[hamitcan]

İsmini bildiğiniz sayfa isimlerini pas geçip diğerlerini silebilirsiniz.

Sub SayfaSil()
    For Each sht In Worksheets
        If sht.Name = "Sayfa1" Then GoTo 10
        If sht.Name = "Sayfa2" Then GoTo 10
        Application.DisplayAlerts = False
        sht.Delete
        Application.DisplayAlerts = True
10
    Next
    MsgBox "İstenmeyen Sayfalar Silindi"
End Sub

 

[Korhan Ayhan]

Sanırım dosyanız bozulmaya başlamış.. En kısa sürede içindeki verileri boş temiz bir excel dosyasına taşımanızı tavsiye ederim..

 

[tamer42]

Sanırım dosyanız bozulmaya başlamış.. En kısa sürede içindeki verileri boş temiz bir excel dosyasına taşımanızı tavsiye ederim..

teşekkür ederim Korhan Hocam