Boş hücreyi atlatma.

[TRuNsouL]

Merhaba arkadaşlar ,
Set t5 = Sheets("Takip")
sonsatir = t5.Range("A65536").End(xlUp).Row + 1
t5.Range("A65536").End(3)(2, 1) = sonsatir - 1
t5.Range("B65536").End(3)(2, 1) = sicilno.Value
t5.Range("C65536").End(3)(2, 1) = adsoyad.Value
t5.Range("D65536").End(3)(2, 1) = dosyano.Value
t5.Range("F65536").End(3)(2, 1) = ComboBox4.Value
Böyle bir kodum var. Userformdan hücrelere veri girişi yaptırıyorum fakat sorun şu, üst satırda bir boşluk olursa veri boş olan satıra ekleniyor.
Ben bunun üstesinden nasıl gelirim ?
Amacım verilerin her zaman en alt satıra eklenmesi. Üstteki satırda boş hücre olsa bile.
Teşekkürler.

 

[EmrExcel16]

Merhaba , bu şekilde deneyiniz..

Set t5 = Sheets("Takip")
sonsatir = t5.Range("A65536").End(xlUp).Row + 1
t5.Cells(sonsatir, "A") = sonsatir - 1
t5.Cells(sonsatir, "B") = sicilno.Value
t5.Cells(sonsatir, "C") = adsoyad.Value
t5.Cells(sonsatir, "D") = dosyano.Value
t5.Cells(sonsatir, "F") = ComboBox4.Value

 

[TRuNsouL]

Çok sağolun hocam,

sonsatir = t5.Range("A65536").End(xlUp).Row + 1
t5.Range("A65536").End(3)(2, 1) = sonsatir - 1
t5.Range("A65536").End(3)(1, 2) = sicilno.Value
t5.Range("A65536").End(3)(1, 3) = adsoyad.Value
t5.Range("A65536").End(3)(1, 4) = dosyano.Value
t5.Range("A65536").End(3)(1, 6) = ComboBox4.Value

Bende böyle yapmıştım. Bu yaptığım sağlıklı mı diye soracaktım konunun altına ki siz cevaplamışsınız. Teşekkürler.

 

[EmrExcel16]

Rica ederim , iyi çalışmalar.