Kopyalama hatası

[ismail157]

İyi günler ekte yer alan dosyada müşteri ekle butonuna basarak açılan userformu doldurduğumda ilk olarak boş olan 2.satırdan başlayarak doldurmasını sonra dolu olan satırı geçip 3. satıra böyle böyle ilerlesin istiyorum bilgi ekledikçe.
Fakat söyle bir sorun var 1. satıra başlıkları yazıyorum ama eğer 2. satır boş olursa hata veriyor ne zamanki 2. satıra manuel bilgiler gireyim ondan sonra 3. satırdan itibaren sorunsuz çalışıyor.
Yardımcı olursanız sevinirim. Çok fena kafayı taktım buna

 

[Muzaffer Ali]

Sheets("Veri").Range("a1").End(xlDown).Offset(1, 0) = cb1

Satırını ve içinde Offset geçen satırları aşağıdaki gibi yapın

Dim Say As Long
Say = Sheets("Veri").Range("a" & cells.rows.count).End(xlDown).Row + 1 'Belirtilen sayfada A sutünunda boş ilk satırın satır numarasını öğreniyoruz
Sheets("Veri").Range("a" & Say).Value = cb1 'Satır numarasını öğrendiğimiz hücreye kaydımızı yapıyoruz

Kolay gelslin.