commanbuton ile kayıt ve temizleme

[mehmet2285]

aşağıdaki koda ek olarak böyle bir şey eklenebilir mi:
1-kayıt işlemi yapıldıktan sonra texbox ve comboboxların temizlemek için ayrı bir button kulanmadan yapılması .kısacası kayıt yapıldıktan sonra içeriklerin temizlenmesi .şimdiden tşk ettim ..kolay gelsin.




Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("sayfa2").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
If TextBox1.Text <> "" Then

Sheets("sayfa2").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("sayfa2").Range("A:A")) + 1

Sheets("sayfa2").Range("B" & Bos_Satir).Value = TextBox1.Text

Sheets("sayfa2").Range("C" & Bos_Satir).Value = ComboBox1.Text
Sheets("sayfa2").Range("D" & Bos_Satir).Value = ComboBox2.Text
Sheets("sayfa2").Range("E" & Bos_Satir).Value = ComboBox3.Text
Sheets("sayfa2").Range("F" & Bos_Satir).Value = TextBox2.Text
Sheets("sayfa2").Range("G" & Bos_Satir).Value = ComboBox4.Text



Else

MsgBox "İsim Girmeniz gerekiyor"

End If
End Sub

 

[BG]

Merhaba

TextBox1.Text = ""
ComboBox1.Text = ""


şeklinde deneyin.

 

[mehmet2285]

t&#351;k ettim ustad&#305;m i&#351;imi g&#246;r&#252;yor......

 

[BG]

tşk ettim ustadım işimi görüyor......

rica ederim, iyi çalışmalar