Bunun için kayıt esnasında en son kayıtlı satırın 1 altını seç dedirtmeniz gerekiyor.
Örneğin kayıtlarınız A sütununda diyelim.
Range("A1").select 'A1 hücresini seç
Do While not isempty (Activecell) 'Aktif hücre boş değilse yap
Activecell.offset(1,0).select 'Boş değilse 1 alt hücreyi seç
Loop 'Boş hücreyi bulana kadar döngüye devam et
Bu komut A sütununda ilk boş hücreyi bulur. Eğer kayıtlarınız arasında boş satır yok ise, en son kaydın altındaki ilk boş satıra gider. Bu komuttan sonra kayıt yaptırdığınız kodları kullanabilirsiniz.
Veya, örnek küçük bir dosya eklerseniz üzerinde halletmeye çalışırız.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.