Boş satırları silme kodunu hızlandırma

**#1)** **pislick0** » 27 Haz 2022 23:26

Merhaba, aşağıdaki kodu hücre boş ise o satırı silsin diye kullanıyorum ama biraz yavaş çalışıyor

Bunun daha hızlı versiyonu var mıdır

Sub deneme()
Application.ScreenUpdating = False
For i = 30000 To 1 Step -1
If Cells(i, 1).Value = "" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub

**#2)** **Ömer BARAN** » 27 Haz 2022 23:28

BOŞ dediğiniz hücreler gerçekten BOŞ mudur yoksa örneğin sonucu "" (BOŞ) olan formüller mi vardır?

**#3)** **pislick0** » 27 Haz 2022 23:31

Ömer BARAN yazdı:BOŞ dediğiniz hücreler gerçekten BOŞ mudur yoksa örneğin sonucu "" (BOŞ) olan formüller mi vardır?

Gerçekten boş, hiçbir veri yok

**#4)** **Ömer BARAN** » 27 Haz 2022 23:35

Şu kodu kullanabilirsiniz.

Kod: Tümünü seç: Sub A_BOSSA_SATIRI_SIL() Application.ScreenUpdating = 0: Application.Calculation = xlCalculationManual varmi = Range("A1:A30000").SpecialCells(xlCellTypeBlanks).Count If Range("A1:A30000").SpecialCells(xlCellTypeBlanks).Count > 0 Then _ Range("A1:A30000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Application.ScreenUpdating = 1: Application.Calculation = xlCalculationAutomatic MsgBox "İşlem tamamlandı..", VbInfomation, "ExcelDestek.Com forumuna da beklerim." End Sub

**#5)** **Ömer BARAN** » 27 Haz 2022 23:36

varmi = ....
şeklindeki satıra gerek yok, silebilirsiniz.

**#6)** **pislick0** » 27 Haz 2022 23:36

Ömer BARAN yazdı:Şu kodu kullanabilirsiniz.

Kod: Tümünü seç
Sub A_BOSSA_SATIRI_SIL() Application.ScreenUpdating = 0: Application.Calculation = xlCalculationManual varmi = Range("A1:A30000").SpecialCells(xlCellTypeBlanks).Count If Range("A1:A30000").SpecialCells(xlCellTypeBlanks).Count > 0 Then _ Range("A1:A30000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Application.ScreenUpdating = 1: Application.Calculation = xlCalculationAutomatic MsgBox "İşlem tamamlandı..", VbInfomation, "ExcelDestek.Com forumuna da beklerim." End Sub

çok teşekkür ederim hızlı yanıtınız için

[Yardım] Boş satırları silme kodunu hızlandırma