otomatik numara

[fotokopici]

Merhaba arkadaşlar.
excelde bir tablo yaptım sayfanın her hangi bir yerine otomatik olarak 1.den başlayıp her yeni form doldurdugumda yeni numara verecek yani 1,2,3,4,5 diye numara yazmasını istiyorum formu doldurduktan sonra kayıt edecek ve yeni bir form doldurmaya başladıgımda kendisi otomatik numara vermesini istiyorum bunun için makromu yazılması gerekiyor teşekkürler

 

[Murat OSMA]

Kayıt kodlarına aşağıdaki kodu yazınız;

Dim i as integer
for i = 2 to range("b65536").end(3).row 
cells(i,"a") = i - 1
next i
i = empty

A sütununda, B sütunundaki dolu olan satır sayısı kadar, 2. satırdan itibaren numara verir...

 

[mutluedenercan]

Hocam , bu koddaki ikiyi 9 yapıp, uyguladım,

sayıyo ama birden başlamayıp 8 den başlıyo saymaya,

neden bulamadım