Boş Hücrelerin Numaralandırılması

[cdemir59]

B2 hücresinden başlayarak bütün "B" sütununda boş hücrelerim B3,B10,B20 gibi.Sadece bu boş hücreleri A sütununda numaralandırırsak, 1,2,3,4,5 diye gider.Yani dolu hücreleri atlayacak .Bu nasıl yapılabilinir? Aslında formülle de çözebilsem işimi görür fakat o kadar araştırmama rağmen, boş hücreleri numaralandıracak formül bulamadım. O yüzden makro ile belki çözülebilir diye düşündüm.

 

[Orion1]

Buyurun.

Sub boshucreno59()
Dim sonsat As Long, i As Long, eno As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
eno = 1
Range("A:A").ClearContents
For i = 1 To sonsat
    If Cells(i, "B").Value = "" Then
        Cells(i, "A").Value = eno
        eno = eno + 1
    End If
Next i
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[cdemir59]

Çok teşekkürler yardımınız için, beni büyük bir problemden kurtardınız.

 

[Orion1]

Çok teşekkürler yardımınız için, beni büyük bir problemden kurtardınız.

Rica ederim.
İyi çalışmalar.