Buton ile sıra no verme işlemi

[Emir 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.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

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

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki koda boşlukları kontrol eden sorgu ilave edilmiştir. Son halini kullanınız.

 

[Emir Hüseyin Çoban]

Teşekkürler Sy Korhan Ayhan, tabloma pratiklik kattınız. Tam istediğim gibi çalışıyor.
Zahmetler verdim, iyi çalışmalar.