A78:a5000 A sutunu boşsa Boş satırları sil

[mrt]

Selamlar;

A78:A5000 arası boş satırları silmek için ekli kodu kullanıyorum.

Bu aralıkta dolu hücre varsa hata vermiyor kod çalışıyor.

[a78:a5000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete


Fakat Bu aralıkta dolu hücre yoksa kod hata veriyor.

Bu kodu veya aşağıdaki kodu nasıl revize etmeliyim ?

Şimdiden teşekkürler.


Sub A_bossa_sil()
Application.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 1 Step -1
If Cells(i, 1) = "" Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub Düğme1_Tıklat()
On Error Resume Next
[a1:a20].SpecialCells(4).Rows.Delete
End Sub

 

[veyselemre]

Sub dene()
    On Error Resume Next
    [a78:a5000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
    On Error GoTo 0
End Sub

 

[mrt]

Çok teşekkür ederim.
Allah (cc) Razı olsun.