Otomatİk Numaralandirmak?

[udentr2002]

merhaba arkadaşlar aşağıdaki fonksiyon yardımı ile a stünuna numara verdiriyorum

=EĞER(B6="";"";BAĞ_DEĞ_DOLU_SAY($B$3:B6))

yani b stünuna veri girilince a stünunu otomatik olarak a3 hücresinden başlayıp yeniden numaralandırıyor,
yukarıdaki formülü kodlarla nasıl yazabilirim ilgilnen arkadaşlarıma teşekkür ederim

 

[metot]

örnek dosya eklermisiniz

 

[ECYavuz]

Aşağıdakini deneyiniz..

For sira = 1 To WorksheetFunction.CountA(Range("b3:b65536"))
'a sütununa b sütunundaki dolu hücreler kadar 1,2,3 diye değer atıyoruz
Range("a" & sira + 2) = sira
Next

 

[udentr2002]

Hocam çok teşekkür ederim sağ olun