listedeki boş satırları bulma

[alpaslankurt]

bir listenin içerisinde ki boş satırları bulmak ve bu bulunanların satır numaralarını diğer sayfada özet olarak görmek istiyorum gerekli kodları yazarmısınız... şuan bulunduğum pc de ofis prog.yok açık yazarsanız sevinirim

 

[Orion1]

Sayfa1 de A4:B4 aralığında boş hücre satır nolarını sayfa2 de a sütununa alt alta yazar.

Sub bos_liste_59()
Dim hcr As Range, sat As Long
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A:A").ClearContents
For Each hcr In Range("A1:B4").SpecialCells(xlCellTypeBlanks)
    sat = sat + 1
    Sheets("Sayfa2").Range("A" & sat).Value = hcr.Row
Next
Application.ScreenUpdating = True
MsgBox "Boş hücre numaraları sayfa 2 ye aktarıldı." & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "SATIR"
End Sub

 

[alpaslankurt]

hocam çok teşekkür ederim.rahatsızlık verdiğim için kusuruma bakmayın..

 

[Erdal]

Merhabalar Evren Bey
A4 ve B4 hücreleri boş iken kod Sayfa 2'ye 4 rakamını yazmıyor.