Yeni Sayfalari Kapanista Sil

[baydeniro]

Merhaba arkadaşlar. İçindeki sayfaları hep sabit olan bir dosyamız var. Bazı işlemler için çalışma esnasında dosya içine yeni sayfalar açılmaktadır. Dosya açıldığında içinde bulunan sayfalardan başka olan sayfaların dosyanın kapatılması esnasında otomatik silinmesi makro ile mümkün müdür ? Örnek dosya ektedir. Dosyanın kendine ait sayfaları DATA ve RAPOR'dur. İçinde olan Sheet1 dosya açıldıktan sonra açılmış bir sayfadır.

 

[Ferhat Pazarçevirdi]

Aşağıdakileri; Thisworkbook kod sayfasına kopyalayınız.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet
Dim arrSh As Variant
Dim x As Integer, i As Integer
arrSh = Array("DATA", "RAPOR")
For Each sh In ThisWorkbook.Sheets
    For i = 0 To UBound(arrSh)
        If sh.Name = arrSh(i) Then: x = x + 1
    Next i
    If x = 0 Then
       Application.DisplayAlerts = False
       sh.Delete
       Application.DisplayAlerts = True
    End If
    x = 0
Next
ThisWorkbook.Save
End Sub

 

[baydeniro]

Sayın Ferhat Pazarçevirdi ilginiz için çok teşekkür ederim. Ancak DATA ve RAPOR sayfaları dışındaki yeni sayfalar kalıyor.

 

[Ferhat Pazarçevirdi]

Birşeyleri yanlış yapmadığınıza emin misiniz?

Ekteki örnek dosyayı inceleyiniz. Ben de herhangi bir problem yok ..

 

[baydeniro]

Teşekkürler

Sayın Ferhat Pazarçevirdi gerçekten ilginize çok çok teşekkür ederim. Hem cevap yazma lütfunda bulunuyorsunuz hem de bizim gibi acemilerin gereksiz soruları ile uğraşıyorsunuz. Allah sizlere sabır versin.

Ben yine beceremedim. Ama sağlık olsun, daha fazla vakit harcamanıza gönlüm razı olmaz. Çok çok teşekkür ederim.

 

[baydeniro]

Teşekkürler

Sayın Ferhat Pazarçevirdi, kodu başka bir bilgisayarda denedim, çalıştı. Çok çok teşekkür ederim.