Satır silme Makrosu hk. (65.000 satır üzeri)

[morfiss]

Merhaba örnek dosyada açıklamaları yaptım.65.000 satırdan daha fazla satırlı dosyalarımda kullanmak üzere satır silme makrosu gerekiyor. F5 boşluk sil fonksiyonu hata veriyor. Forumda arama yaptım ancak makrolar çalışmadı excel kilitlendi dondu yapamadım açıkcası.Yardımlarınızı bekliyorum.

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub veri_sil()
Dim STR As Long
Application.ScreenUpdating = False
STR = Range("C" & Rows.Count).End(xlUp).Row
Range("B6:B" & STR) = "=IF(C6="""",""Z"","""")"
Range("B5:B" & STR).AutoFilter 1, "<>"
Application.DisplayAlerts = False
Range("B6:D" & STR).Delete xlUp
Application.DisplayAlerts = True
Range("B5:B" & STR).AutoFilter
STR = Range("C" & Rows.Count).End(xlUp).Row
Range("B6:B" & STR) = "=IF(OR(C6=9002020,C6=9002021),D6,C6)"
Application.ScreenUpdating = True
End Sub

Not : Kodu çalıştırmadan mutlaka dosyanızın yedeğini alın.

 

[morfiss]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub veri_sil()
Dim STR As Long
Application.ScreenUpdating = False
STR = Range("C" & Rows.Count).End(xlUp).Row
Range("B6:B" & STR) = "=IF(C6="""",""Z"","""")"
Range("B5:B" & STR).AutoFilter 1, "<>"
Application.DisplayAlerts = False
Range("B6:D" & STR).Delete xlUp
Application.DisplayAlerts = True
Range("B5:B" & STR).AutoFilter
STR = Range("C" & Rows.Count).End(xlUp).Row
Range("B6:B" & STR) = "=IF(OR(C6=9002020,C6=9002021),D6,C6)"
Application.ScreenUpdating = True
End Sub

Not : Kodu çalıştırmadan mutlaka dosyanızın yedeğini alın.

Üstad öncelikle yardımın için teşekkürler ama bu kod ne var ne yok sildi. 3 tane 0 yazdı bıraktı.Bi kontrol edebilir misin?

 

[asi_kral]

Üstad öncelikle yardımın için teşekkürler ama bu kod ne var ne yok sildi. 3 tane 0 yazdı bıraktı.Bi kontrol edebilir misin?

Emin misiniz denediğiniz dosyayı ve asıl dosyanızı bir gönderir misiniz_?

 

[morfiss]

Ham dosyayı koydum eke şimdi.Bunun üzerinde deneyebilir misiniz?

 

[morfiss]

Koda bakabilecek var mı arkadaşlar Son gönderdiğim ekte herşeyi siliyor.İlk ekte doğru yapıyor.Hata nerede acaba koddan anlayanlar bakabilir mi ?

 

[Ömer]

Merhaba,

Konu net değil, sadece C sütunundaki boşluklar mı silinecek?

 

[morfiss]

Merhaba,

Konu net değil, sadece C sütunundaki boşluklar mı silinecek?

Üstad C satırı silinirken aynı satırdaki D satırı da silinecek.Yanyana olan 3200000 hesaplar kaymayacak şekilde silinme işlemi olacak yani.Hesaplarr isimli örnekte C5 silinirken D5 te silinecek aynı şekilde C6 ve D6 birlikte silinecek.Sonra C13 ile D13 C14 ile D14 aynı anda silinecek.

 

[Ömer]

C boş ise D ile birlikte satırın tamamı silinecek sanırım.

 

[morfiss]

Evet doğrudur

 

[Ömer]

Evet doğrudur

Bu şekilde deneyin.

Sub F5Sil()
 
    Dim i As Long, a As Long
 
    Application.ScreenUpdating = False
 
    For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -8000
       a = i - 8000
       If a < 2 Then a = 2
       Range("C" & a & ":C" & i).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[morfiss]

Üstad on numarasın harbiden.Yarına yetiştirmem gerekiyor bu dosyaları hızır gibi hallettin.Çok teşekkür ederim.Allah razı olsun.Emeğinize sağlık