Sıra numarası verme

[ümit bektas]

Merhaba, excelde satır doluysa sıralı şekilde sıra no versin boş satıra gelince sıra no baştan başlasın.

 

[Mdemir63]

Selamlar

A1 Hücresine kopyalayın aşağı doğru çekin

=EĞER(B1="";"";ALTTOPLAM(3;$B$1:B1))

B1 Hücresine birşeyler yazdığınızda sıra no verir

 

[ümit bektas]

Selamlar

A1 Hücresine kopyalayın aşağı doğru çekin

=EĞER(B1="";"";ALTTOPLAM(3;$B$1:B1))

B1 Hücresine birşeyler yazdığınızda sıra no verir

çözüm doğru fakat boş satırda tekrar 1 den başlayarak sıra no versin

 

[ümit bektas]

çözüm doğru fak
at boş satırda tekrar 1 den başlayarak sıra no versin

örnek

 

[ümit bektas]

Lütfen bilen arkadaş varsa yardımcı olsun.

 

[Mdemir63]

Selamlar

Veysel Emre Hocamın kodlarıdır
Bir modül içine ekleyerek
kullanabilirsiniz

Sub test()
    [A:A].ClearContents
    [A2] = 1
    With Range("A2:A" & Cells(Rows.Count, "B").End(xlUp).Row)
        .FormulaR1C1 = "=R[-1]C+1"
        .Offset(, 1).SpecialCells(xlCellTypeBlanks).EntireRow.ClearContents
        .Value = .Value
    End With
End Sub

 

[ümit bektas]

Selamlar

Veysel Emre Hocamın kodlarıdır
Bir modül içine ekleyerek
kullanabilirsiniz

Sub test()
    [A:A].ClearContents
    [A2] = 1
    With Range("A2:A" & Cells(Rows.Count, "B").End(xlUp).Row)
        .FormulaR1C1 = "=R[-1]C+1"
        .Offset(, 1).SpecialCells(xlCellTypeBlanks).EntireRow.ClearContents
        .Value = .Value
    End With
End Sub

çok teşekkür ederim

 

[Mdemir63]

Rica ederim
iyi çalışmalar

 

[Korhan Ayhan]

Alternatif;

=IF(B2<>"";ISNUMBER(A1)+1;"")