Texbox a yazılan tarihin data olarak aktarılamaması

[erdur]

aşağda yazdığım kodda bir hata var
TexBox 12 ye yazdığım tarih data sayfasına kaydedilemiyor
yardımlarınız için şimdiden teşekkür ederim

Private Sub CommandButton1_Click()
If TextBox3.Text <> "" Then
If TextBox8.Text <> "" Then

Son_Dolu_Satir = Sheets("Data").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1



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

Sheets("Data").Range("A" & Bos_Satir).Value = TextBox8.Text

Sheets("Data").Range("B" & Bos_Satir).Value = ComboBox1.Text

Sheets("Data").Range("C" & Bos_Satir).Value = TextBox3.Text

Sheets("Data").Range("D" & Bos_Satir).Value = TextBox10.Text

Sheets("Data").Range("F" & Bos_Satir).Value = TextBox12.Value."dd/mm/yyyy")

Unload UserForm1

Else

MsgBox "İsim Girmeniz gerekiyor"

End If

Else

MsgBox " Girmeniz gerekiyor"

End If

End Sub

 

[Korhan Ayhan]

Selamlar,

Yazım hatasından kaynaklanıyor. Aşağıdaki şekilde düzeltirseniz sorun düzelecektir.

Hatalı yazım;

Sheets("Data").Range("F" & Bos_Satir).Value = TextBox12.Value."dd/mm/yyyy")

Doğru yazım;

Sheets("Data").Range("F" & Bos_Satir).Value = Format(TextBox12.Value , "dd/mm/yyyy")

 

[erdur]

Çok teşekkür ederim
Problem hal oldu....