User Form Veri girişi Yardım

[anlgray]

Herkese günaydın. Aşağıdaki gibi bir kod oluşturdum. Yapmak istediğim Textbox1 e veri girip CommandButton3 e bastığımda sırasıyla girilen değerleri hücrelere atmak. Hiç bir veri girilmezse uyarı verip işlem yapmaması. Aşağıdaki kod veri girildiğinde sırasıyla atıyor girilmezse uyarı veriyor ancak veri girilmediğinde de bir satır ağaıya boş bir şekilde kayıyor. Bunu nasıl engelleyebilirim. Yani textbox1 eğer boş ise uyarı ver ve hiç bir işlem yapma!Yardımlarınızı bekliyorum. Şimdiden teşekkürler



Private Sub CommandButton3_Click()
If Me.TextBox1.Value = "" Then
MsgBox "Lütfen Ad Soyad bilgilerini giriniz", vbExclamation, "Dikkat"
Me.TextBox1.SetFocus
End If
Range("A1").Offset(Range("A1").CurrentRegion.Rows.Count, 0).Value = TextBox1
TextBox1 = Empty
End Sub

 

[anlgray]

End If' den önce Exit Sub yazarak sorunu çözdüm.

 

[forumjan]

uniye hazırlanırken hocalardan birisi TAKILDIGINIZ KONUYU TUTUP Bİ ARKADASINIZA SORUN ,ARKADASINIZ BİLMESE BİLE ONA ANLATIRKEN BİR ÇOĞUNU KENDİNİZ ÇÖZERSİNİZ demişti....Ters anlasılmasın,kendi soruna kendin cevap verince bunu bir kez daha dogruladın,bu da bi exel döngüsü )sorunu halletmene sevindim,iyi günler...

 

[anlgray]

Kesinlikle doğru bir tespit..Size de iyi günler