Textboxlar boş bırakılsada satır atlamadan kayıt

[cetvel]

User formda ürün alış turtarlarından biri boş bırakıldığında boş bırıkan textbox kadar satır atlıyarak kayıt yapıyor.

Textboxlar boş bırakılsada satır atlamadan kaydı nasıl yapabilirim

yardımlarınızdan olayı şimdiden teşekkür ederim

 

[cems]

Private Sub CommandButton1_Click()
b = Cells(65536, 1).End(xlUp).Row + 1
Cells(b, 1).Select

If Texttutar1 <> "" Then
ActiveCell.Value = Textsıra.Value
ActiveCell.Offset(0, 1).Value = Texttarih
ActiveCell.Offset(0, 2).Value = Textbelgeno.Value
ActiveCell.Offset(0, 3).Value = Combokim.Value
ActiveCell.Offset(0, 4).Value = Texttutar1.Value
ActiveCell.Offset(0, 5).Value = Texttutar2.Value
ActiveCell.Offset(0, 6).Value = Texttutar3.Value

End If
End Sub

Kodlarınızı değiştirip dener misiniz ?