Sütün açıp sıra no vermek

[unur]

Günaydın Arkadaşlar;
A'dan H'ye kadar veri dolu olan ve dolu satırı değişken olan bir sayfada;

En başa boş bir sütun açıp son dolu satıra kadar sıra numarası verecek bir koda ihtiyacım var.

Yardımcı olabilirseniz sevinirim. Teşekkürler.

 

[zafer]

Merhaba

Aşağıdaki kodu deneyiniz.

Sub say()
    Columns("A:A").Insert
    son = Cells(65000, 2).End(xlUp).Row
    For i = 1 To son
        Cells(i, 1) = i
    Next
    End Sub

 

[unur]

Zafer Bey çok teşekkürler.Emeğinize sağlık.

 

[unur]

Günaydın; Bu bilgilerin 3 satırdan itibaren olduğunu düşünürsek ve dolu satırlara sıra numarası vermek istersek kodda nasıl bir revizyon yapabiliriz.
Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub SIRANO_VER()
    Dim X As Long, No As Long
    
    Columns(1).Insert
    No = 1
    
    For X = 3 To Cells(Rows.Count, 2).End(3).Row
        If Cells(X, 2) <> "" Then
            Cells(X, 1) = No
            No = No + 1
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[unur]

Çok Teşekkürler Korhan bey; Elinize sağlık.

 

[apparatebau]

Elinize sağlık.Faydalı bir çalışma