şarta bağlı satır silme

[Gold_Savt]

Merhabalar;
B sütunu için 9. satırdan başlayıp 500. satırda bitme şartına bağlı olmak üzere (B9:B500) "herhangi bir değer girilmemişse" bu aralıktaki tüm satırları silme makrosu yapma imkanımız var mıdır?

 

[YUSUF44]

Makroyla isterseniz:

Sub sil()
For i = 500 To 9 Step -1
    If Cells(i, "B") = "" Then
        Rows(i).Delete
    End If
Next
End Sub

Makrosuz isterseniz:
B9:B500 aralığını seçin
F5 tuşuna basın
Açılan menüde Özel'i seçin
Açılan menüde Boşlukları seçin ve Tamam deyin
Seçili olan boş hücrelerden birine sağ tıklayın ve Sil'i seçin
Açılan menüde Tüm satır'ı seçip işlemi tamamlayın.

 

[Gold_Savt]

Teşekkür ederim, elinize sağlık hocam.