• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Boş sayfalar

Katılım
12 Temmuz 2010
Mesajlar
86
Excel Vers. ve Dili
Excel 2003 / Türkçe
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?
 
Merhaba,
Dosyayı excel dosyalarınızın bulunduğu klasörün içine kopyalayın ve deneyin.
Kod:
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
 

Ekli dosyalar

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.
 
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.:)
 
Bence kesinlikle Denemeyin bile . Kodlardan değilde... Bir hatada tamamamen bütün dosyalarınız. saçmalayabilir..... dikkat
 
Geri
Üst