Buton ile sıra no verme işlemi

[Hüseyin Çoban]

Merhaba Arkadaşlar,

Numara ver butonunu tıkladığımda, C4 hücresinden itibaren B sütununda tutar olan hücrelerin sağındaki hücreye sıra no vermeli.

Ancak daha önceden benim elile verdiğim sıra noları atlamalı.
İşlemi içerisinde boşluk olan satırlara kadar yapmalı.

Böyle bir işlem için makro kodlarına ihtiyacım var. Yardım ve fikirlerinizi bekliyorum.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Hüseyin Çoban]

Aşağıdaki kodlar ile sorun çözülmüştür.
İyi çalışmalar.

Option Explicit
 
Sub SIRANO_VER()
    Dim X As Long, No As Long
   
    No = 1
   
    For X = 4 To Range("B65536").End(3).Row
        If Cells(X, "B") <> "" Then
            If Asc(Cells(X, "B")) = 32 Then Exit For
            If Cells(X, "C") = "" Then
                Cells(X, "C") = No
                No = No + 1
            End If
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Kodlar Sn Korhan Ayhan' a aittir.