Boş sayfalar

[rapstar_kagan_96]

Arkadaşlar merhaba.
Diğer s orularıma yanıt gelmeden hemen bir soru daha geldi aklım. Aslında bu soru değil,sadece aklıma takılan bir merak konusu.
Yüzlerce excel dosyam var. Bu dosyaların da çoğu 5'er sahifeden oluşuyor ve yine bu 5'er sayfanın çoğu boş.Sadece 1 ya da 2 sayfası dolu,kalan sayfalar boş. İçinde hiçbir şey olmayan,tamamen boş olan sayfaları bir buton yardımıyla bütün dosyalarda birden silebilir miyim?

 

[leumruk]

Merhaba,
Dosyayı excel dosyalarınızın bulunduğu klasörün içine kopyalayın ve deneyin.

Sub Sayfa_Sil()
Application.ScreenUpdating = False
dosya = Dir(ThisWorkbook.Path & "\*.xls*")
Do While dosya <> ""
If dosya <> "Sayfa_Sil.xlsm" Then
Application.Workbooks.Open ThisWorkbook.Path & "\" & dosya
Application.DisplayAlerts = False
syf = Workbooks(dosya).Worksheets.Count
For x = syf To 1 Step -1
Set Bul = Workbooks(dosya).Sheets(x).Cells.Find("*", lookat:=xlWhole, LookIn:=xlValues)
If Bul Is Nothing Then
If Workbooks(dosya).Worksheets.Count > 1 Then
Workbooks(dosya).Sheets(x).Delete
End If
End If
Next
Application.DisplayAlerts = True
Workbooks(dosya).Close True
Application.ScreenUpdating = True
End If
dosya = Dir
Loop
MsgBox "İşlem tamamlandı.", vbInformation, "l e u m r u k"
End Sub

 

[rapstar_kagan_96]

Arkadaşım merhaba. İlginize ve emeğinize teşekkür ediyorum.Kodları yarın deneyip sonuçtan haber veririm.Tekrar teşekkür ederim.. (NOT : Forumdaki diğer sorularıma da bir ele atabilirseniz sevinirim)
Bir ek not daha : Dosya içerisindeki userform ne işe yarıyor anlayamadım.

 

[leumruk]

Arkadaşım merhaba. İlginize ve emeğinize teşekkür ediyorum.Kodları yarın deneyip sonuçtan haber veririm.Tekrar teşekkür ederim.. (NOT : Forumdaki diğer sorularıma da bir ele atabilirseniz sevinirim)
Bir ek not daha : Dosya içerisindeki userform ne işe yarıyor anlayamadım.

Dosya içerisindeki userform hiçbir işe yaramıyor. İster silin, isterseniz görüntü olarak bırakın.

 

[rapstar_kagan_96]

<ok.<teşekkürler..Diğer sorularıma yardımlarınızı bekliyorum

 

[snx111]

Bence kesinlikle Denemeyin bile . Kodlardan değilde... Bir hatada tamamamen bütün dosyalarınız. saçmalayabilir..... dikkat