userform kod hatası için yardım

[ormanci_50]

merhaba
yani kayıt tuşuna bastığım da formun da temizlenmesini istiyorum bunu nasıl yapabiliriz.
sizden yardım rica ediyorum..

 

[hamitcan]

Private Sub CommandButton1_Click()
Worksheets("ORDER").Select
Dim Satır As Long
    Satır = Range("C65536").End(3).Row + 1
  If Cells(12, "b") = Empty Then
    Cells(12, "b").Value = TextBox1.Value
     Cells(12, "E").Value = TextBox3.Value
      Cells(12, "F").Value = TextBox4.Value
      Cells(12, "P").Value = TextBox5.Value
      Cells(12, "Q").Value = TextBox6.Value
       Cells(12, "R").Value = TextBox7.Value
       Cells(12, "U").Value = TextBox8.Value
Else
    Satır = Cells(29, "b").End(xlUp).Row + 1
    Cells(Satır, "b").Value = TextBox1.Value
    Cells(Satır, "E").Value = TextBox3.Value
      Cells(Satır, "F").Value = TextBox4.Value
      Cells(Satır, "P").Value = TextBox5.Value
      Cells(Satır, "Q").Value = TextBox6.Value
       Cells(Satır, "R").Value = TextBox7.Value
       Cells(Satır, "U").Value = TextBox8.Value
End If

    FormuTemizle
End Sub
Sub FormuTemizle()
TextBox1 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
End Sub

 

[ormanci_50]

çok sağolun birde text4 yerine combo eklenebilirmi ?
sulu / kuru seceneği olacak