textbox tarih formatı

[hayri tekin]

Merhaba,alttaki koda tarih formatını uygulayamıyorum..(textbox3)


Private Sub CommandButton1_Click()
Sheets("PERSONEL").Select
Z = [A65536].End(3).Row + 1
Cells(Z, 1) = TextBox1.Text
Cells(Z, 2) = TextBox2.Text
Cells(Z, 3) = TextBox3 = CDate(TextBox3.Text) & "gg.aa.yy"
Cells(Z, 4) = TextBox4.Text * 1
Cells(Z, 5) = TextBox5.Text
Cells(Z, 6) = TextBox6.Text
End Sub

 

[Ferhat Pazarçevirdi]

Şu şekilde deneyiniz.

Private Sub CommandButton1_Click()
Sheets("PERSONEL").Select
Z = [A65536].End(3).Row + 1
Cells(Z, 1) = TextBox1.Text
Cells(Z, 2) = TextBox2.Text
[COLOR=red]With Cells(Z, 3)
    .Value = TextBox3
    .NumberFormat = "dd.mm.yy"
End With[/COLOR]
Cells(Z, 4) = TextBox4.Text * 1
Cells(Z, 5) = TextBox5.Text
Cells(Z, 6) = TextBox6.Text
End Sub

 

[hayri tekin]

İlginize teşekkür ediyorum hocam ama excelin tanımadığı bir format bu.Ne yapılabilir acaba ?

 

[Ferhat Pazarçevirdi]

TextBox3'te tam olarak ne yazıyor ki ?

 

[hayri tekin]

tarih yazıyor.Yazım şekli 10/1/2008,10.01.2008 şeklinde yazılabilir..

 

[Ferhat Pazarçevirdi]

Ben bir noktayı atladım tabi ..

Şu şekilde deneyiniz.

Private Sub CommandButton1_Click()
Sheets("PERSONEL").Select
Z = [A65536].End(3).Row + 1
Cells(Z, 1) = TextBox1.Text
Cells(Z, 2) = TextBox2.Text
[COLOR=red]With Cells(Z, 3)
    If IsDate(TextBox3) Then
        .Value = CDate(TextBox3)
        .NumberFormat = "dd.mm.yy"
    Else
        .Value = TextBox3
    End If
End With[/COLOR]
End If
Cells(Z, 4) = TextBox4.Text * 1
Cells(Z, 5) = TextBox5.Text
Cells(Z, 6) = TextBox6.Text
End Sub

 

[hayri tekin]

Ferhat hocam ikinci " end if " hata verdi.

 

[Ferhat Pazarçevirdi]

Siliniz o "End If" i .. Öyle deneyiniz. Fazladan kalmış orda

 

[hayri tekin]

Hocam çok teşekkür ediyorum,elinize sağlık..
İyi geceler,