otomatik sıra numarası vermedeki sorun

[Serbulent_1512]

a sütunundaki değer 1'den büyük ise b sütununa sıra numarası verecek.

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 kodla a sütunu dolu olunca b sutununa otomatik numara veriyor. ama ben 1'den büyük ise numara vermesini istiyorum.

 

[apocalyt]

Sn serbülent bu yazdığınız kod b sutunu dolu olunca a sutunununa otamatik numara verir..

 

[Serbulent_1512]

Sn serbülent bu yazdığınız kod b sutunu dolu olunca a sutunununa otamatik numara verir..

pardon dediğiniz doğru b sütunu dolu olunca doğru...

ama ben b sütunu 1 den büyükse numara versin istiyorum...

 

[apocalyt]

if cells(i,2).value="" yerine if cells(i,2)<=1 yaziniz.

 

[Serbulent_1512]

if cells(i,2).value="" yerine if cells(i,2)<=1 yaziniz.

bir örnekle yapabilirmisiniz..