B sütunu dolu olduğunda a sütunana otomatik sıra no vermesi

[millis]

Arkadaşlar belkide çok basit olan ve formda ara bulursun diyeceğiniz bir soru sormak istiyorum. Uğraştım, formda da aradım ama bir türlü bunula ilgili çözümü bulamadım. User formda kod numarasını girdiğimde müşterinin adını veriyor ve daha sonra kayıt et butonuna bastığımda sayfaya kod no ve müşteri numarasını yazıyor ama bir türlü b sütunada dolu olan hücrelerin yanındaki sütuna ( a Sütununa ) otomatik sıra numarası verdiremiyorum. Örnek dosyada ektedir. Yardımcı olacak arkadaşlara şimdider teşekkürlerimi ve saygılarımı sunuyorum.

 

[yucel baygul]

ekteki dosyayı inceleyin

 

[Necdet]

A5 :

=IF(b5<>"";COUNTA($B$5:B5);"")
=EĞER(b5<>"";BAĞ_DEĞ_DOLU_SAY($B$5:B5);"")

 

[millis]

İstediğim bu değil

ekteki dosyayı inceleyin

Birincisi ; Artan sıra numarası verecek ( 1,2,3,4 ....... gibi )
İkincisi ; Bu sıralama macroda olacak UserFormda ki Kaydet Butonuna tıklandığında otomatik olarak sıra numarasını verecek.
Ama yinede ilgilendiğin için teşekkür ederim.

 

[millis]

Dosyayı tekrar gönderiyorum.

Anlatmak istediğim farklı ( aslında basit ) tekrar incelerseniz sevinirim. İlgilenen arkadaşlara teşekkür eder, saygılarımı sunarım.

 

[Necdet]

Soru Excele Yeni Başlayanlar bölümünde sorulunca başka türlü düşünmek olası değil. Keşke makrolar bölümünde sorsaydınız 2 kişi boşu boşuna uğraşmamış olurdu.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Makro1()
[A5] = "=IF(RC[1]<>"""",1,"""")"
[A6] = "=IF(RC[1]<>"""",1+R[-1]C,"""")"
[A6].AutoFill Destination:=Range("A6:A100")
End Sub