sırano

[prodigy]

forumda gezerken (tablodaki kayıtlara otomatik sıra numarası verme)başlığı altında sayın cost control un hazırlamış olduğu Kayıtlara sıra no verme ile ilgili 3 çeşit örneği inceledim ( ellerine sağlık).

bu 3 örneğe ilaveden A sutununa B sutunundaki dolu hücrelere bağlı olarak ( arada boş satırlar var) her boş satırdan sonra ilk dolu hücreye tekrar 1 den başlayarak sırano nasıl verebiliriz.(ekteki örnek gibi)

 

[Korhan Ayhan]

Selamlar,

Örnek dosyadaki kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub SIRA_NO_1()
    Dim Sıra_No As Long
    [A2:A65536] = ""
    For X = 2 To [B65536].End(3).Row
    If Cells(X, 2) = "" Then Sıra_No = 0
    If Cells(X, 2) <> "" Then
    Sıra_No = Sıra_No + 1
    Cells(X, 1) = Sıra_No
    End If
    Next
    [A1].Select
End Sub

 

[algil]

Merhaba

Umarım istediğin olmuştur.

 

[algil]

farklı bir çözümdü. Galiba biraz geç kalmışım.