TextBox'a veri girilmişse işlemi yürüt

[omeryılmaz]

Arkadaşalar içinden çıkamadığım yeni konu yardımcı olursanız sevinirim.Saygılar....

If TextBox720.Text = Veri girilmişse işlemi yürüt yoksa atla
gibi bir şey

If TextBox720.Text = True Then' (Veri girlmişse işlemi gerçekleştir.)
sonsat = [b65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = CDate(TextBox2)
Cells(sonsat, 3) = Liste1
Cells(sonsat, 4) = ComboBox1
Cells(sonsat, 5) = TextBox714
Cells(sonsat, 6) = CDate(TextBox715)
Cells(sonsat, 7) = TextBox762
Cells(sonsat, 8) = CDate(TextBox716)
Cells(sonsat, 9) = TextBox720
Cells(sonsat, 10) = TextBox721
Cells(sonsat, 11) = TextBox722
End If
'...........................................
If TextBox723.Text = True Then' (Veri girlmişse işlemi gerçekleştir.)
sonsat = [b65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = CDate(TextBox2)
Cells(sonsat, 3) = Liste1
Cells(sonsat, 4) = ComboBox1
Cells(sonsat, 5) = TextBox714
Cells(sonsat, 6) = CDate(TextBox715)
Cells(sonsat, 7) = TextBox762
Cells(sonsat, 8) = CDate(TextBox716)
Cells(sonsat, 9) = TextBox723
Cells(sonsat, 10) = TextBox724
Cells(sonsat, 11) = TextBox725
End If
'................................................

 

[omeryılmaz]

Cevabı buldum yinede herkez şükranlarımı sunuyorum
If Len(TextBox720) > 0 Then
sonsat = [b65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = CDate(TextBox2)
Cells(sonsat, 3) = Liste1
Cells(sonsat, 4) = ComboBox1
Cells(sonsat, 5) = TextBox714
Cells(sonsat, 6) = CDate(TextBox715)
Cells(sonsat, 7) = TextBox762
Cells(sonsat, 8) = CDate(TextBox716)
Cells(sonsat, 9) = TextBox720
Cells(sonsat, 10) = TextBox721
Cells(sonsat, 11) = TextBox722
End If

 

[kelkitli]

Selamlar,
If TextBox720 <> "" Then
.............................
Else
Exit Sub
End If
End Sub