Otomatik Sıra No Verme

[Sarigol_937]

Mrb.arkadaşlar forumda açılan bu sıra numaraslı ile ilgili başlıkları inceledim ama benim için farklı bir sitilde lazım şöyleki A1 bir yazcak, A2'yi atlıycak, A3'e 2 yazcak A4'ü atlıycak, A5 e 3 yazcak A6 yı atlıycak bu şekilde 1000'e ulaşıncaya kadar devam edip sıra numarı otomatik verdiren kod yapma imkanı varmıdır.işyerimdeki listelerde çok kullanışlı olcak benim için

 

[Sarigol_937]

arkadaşlar kodu şuan kullanmam lazım yardımcı olabilirmisiniz işim için önemli

 

[Sarigol_937]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("b2:b65536")) Is Nothing Then Exit Sub
For i = 2 To Range("b65536").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub


Bu kodu uyarlamak mümkünmüdür??? Yapması gerekn işlem : birer satır atlatarak A1 hücresine b1 doluysa 1'diyor, A2 hücresine direk boş geçmesini A3hücresine B3 doluysa 2 , A4 hücresini direk atlamalı yani birer satır atalayarak sıra numarası verecek şekilde dizayn edilebilirmi?

 

[excellcan]

Sanırım bu şekilde yapabilirsiniz.

For i = 1 To 1000 Step 2
a = a + 1
If Cells(i,"B")<>"" Then
Cells(i, 1) = a
Else
Cells(i,"A") = ""
End If

Next

 

[Sarigol_937]

excellcan kardeş kod için tşk ler ancak kodu yazınca bir boşluk vererek sıra no veriyor ancak b de veri varmı yokmu kontrol etmiyor veri varsa sıra no yazmalı yoksa yazmamalı

 

[excellcan]

excellcan kardeş kod için tşk ler ancak kodu yazınca bir boşluk vererek sıra no veriyor ancak b de veri varmı yokmu kontrol etmiyor veri varsa sıra no yazmalı yoksa yazmamalı

4 Nolu mesajı yeniden düzenledim dener misiniz.

 

[Sarigol_937]

çook tşk ler sağolun istediğimi yaptım.