textboxta sıra numarası verdirme ve listbox ta yardım

[SİBEL70]

Arkadaşlar
ekteki dosyada userform üzerindeki textbox1 her yeni veri girişinde sıra numarasını otomatikman bir arttırsın bu textboxa veri girişi yapılamasın ve veriyi girdiğimde listboxta aynı isim yoksa ilave edeyim diye uğraşıyorum.. Benzer çalışmaları inceledim ancak sanırım kafam durdu bir türlü içinden çıkamadım.. Yardımcı olursanız memnun olurum..

Saygılar..

 

[bykursat]

sayfanın e1 hücresine =BÜYÜK(A:A;1) formulu yazarak en büyük sira noyu bulabilir
sonra vba kısmında UserForm_Initialize kısmında TextBox1.Value = Range("e1") + 1 kodunu girerek sira nonun birer artmasına çözüm bulabilirsin
ayrıca TextBox1.Value = Range("buyuk") + 1 bu kodu kaydet düğmesinede eklemen lazım

ama aynı isimden iki tane olmasın dersen döngü yapıp kontrol ettirmen gerek

 

[SİBEL70]

bykursat,

yardımıza teşekkürler.. formüller textboxa veri aldırmak için işe yaradı.. ancak kaydet düğmesine eklenecek formülü yazdığımda hata veriyor.. TextBox1.Value = Range("buyuk") + 1
neden olabilir acaba