Dolu hücreden sonraki satırların, format, formül ve borderların silinmesi

[ogoktas]

merhabalar,
benim kullanmış olduğum 300 sheetten fazla bir excel dosaysında dolu hücreden sonraki hücrelerde var olan formül, format, border gibi bilgileri silerek dosyanın boyutunu küçültmeye çalışıyorum. ekli dosayada dosyamın benzeri olan 4 sheet bulunuyor shhet sayısı arrtıkça ekteki hata mesajını veriyor. bu sorunu nasıl hallede bilirim.

yardımınız için teşekkürler.

kullandığım kod ;

Sub bossatirlarisilme()

Dim i As Integer

For i = 1 To Worksheets.Count
Worksheets(i).Select
satir = Range("a65536").End(xlUp).Row
Rows(satir + 1 & ":" & 65536).Delete

Next i

End Sub

 

[Ferhat Pazarçevirdi]

Kodu; şu şekilde değiştirip deneyiniz :

Sub bossatirlarisilme()
    Dim i As Long
    Dim satir As Long
    Dim sh As Worksheet
    
    With Application
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    
    For Each sh In ThisWorkbook.Worksheets
        satir = sh.Range("a65536").End(xlUp).Row
        Rows(satir + 1 & ":" & 65536).Delete
    Next
    
    With Application
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

 

[ogoktas]

merhaba, aynı hata mesajını sistem yine veriyor. başka öneriniz varmı acaba?
teşekkürler.

 

[Ferhat Pazarçevirdi]

Gönderdiğiniz dosyadaki sheet sayısını kopyalayarak, 512 adede çıkardım. Size gönderdiğim kodu çalıştırdım ve 3 sn'nin altında işlem tamamlandı. Hiçbir hata da vermedi ...

Aslında aldığınız hata mesajı gayet açık ... Bilgisayar, o anki mevcut boş bellekle, bu işin üstesinden gelemiyor.

Şunu deneyin...

Ekranınızda sadece Excel programı açık kalsın. Diğer tüm programları kapatın. Manuel olarak, en son satıra kadar seçim yapıp, satırları silmeyi deneyin. Aynı hata mesajını bu yöntemle de alıyorsanız, makinayı veya kullandığınız dosya yapısını değiştirme zamanınız gelmiş demektir ...

 

[ogoktas]

çok teşekkürler. iyi çalışmalar.