VB kde adres ve telefon rehberi listelemesi

[sarıyıldız]

Excel' de bir adres ve telefon rehberi tutmak için. "kaydet" butonuna bağlı bir makro oluşturuyoruz. Bu makro ile diğer sayfaya bütün verilerin aktarılması gerekiyor. Ancak son eklenen veri listenin sonuna nasıl eklenebilir burada takılıyoruz.
Acaba, VB de kod satırları üzerinde satır numaralarını tutan ve her seferinde artırarak kontrol yapanbir program kodu mu olmalı (ki bence daha kolay bir yolu olmalı) yoksa daha basit bir yöntemi var mı? Yardımlarınız için şimdiden teşekkürler...

 

[ExcelF1]

A sütununda verileriniz olduğunu varsayarak, KAYDET butonu kodlarında, verileri aktaran kısmının hemen üstündeki satıra;

[A65536].end(xlup).offset(1,0).select 'A sütununda en son dolu hücrenin 1 altını seç.
Activecell.value = textbox... 'Aktif hücreye textboxtaki değeri aktar
Activecell.offset(1,0) = textbox... 'Aktif hücrenin 1 sağındaki hücreye textboxtaki değeri aktar gibi...

NOT = Örnek dosya eklemiş olsaydınız, daha net cevaplar alabilirdiniz.