dtpicker hatası

[win_kjh]

ekteki dosyada userformdaki kaydet butonuna basınca dtpicker hatası veriyor
yardımcı olabilirmisiniz?

 

[Orion1]

Aşağıdaki kırmızı satırı siliniz.

Private Sub CommandButton1_Click()
Sheets("AYRAN").Select
MsgBox "Veriler Kaydedildi"
If Range("A6") = "" Then
Range("A6").Select
MsgBox "Veriler Kaydedildi"
ActiveCell = 1
ActiveCell.Offset(0, 1).Value = DTPicker1.Value
ActiveCell.Offset(0, 2).Value = TextBox1.Value
ActiveCell.Offset(0, 6).Value = TextBox2.Value
Else
[a65536].End(xlUp).Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1).Value = DTPicker1.Value
ActiveCell.Offset(0, 2).Value = TextBox1.Value
ActiveCell.Offset(0, 6).Value = TextBox2.Value
End If
[B][COLOR="Red"]'DTPicker1 = ""[/COLOR][/B]
TextBox1 = ""
TextBox2 = ""
End Sub

 

[win_kjh]

teşekkür ederim Evren Bey