kısa tarih

[sisozen]

arkadaşlar.. aşağıdaki kodun sonunda yazılmış olan tarih formatını kısa tarih olarak aktarmak istiyorum..
dd.mm yazıncada örneğin 08.08 yazıncada 08.01 olarak aktarıyor..

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'tarih ile ilgili tarih istendiği gibi olmayınca fon kırmızı


If Not IsDate(TextBox4.Value) Then
TextBox4.BackColor = &HFF&
MsgBox "TARİH UYGUN DEĞİL"
Cancel = True

Else
TextBox4.BackColor = &H80000005

End If
TextBox4.Value = Format(TextBox4.Value, "dd.mm.yyyy")

End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
    [A1] = CDate(TextBox4)
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsDate(TextBox4.Value) Then
        With TextBox4
        .BackColor = vbRed
        .ForeColor = vbWhite
        .Font.Bold = True
        End With
    MsgBox "TARİH UYGUN DEĞİL !"
    Cancel = True
    Else
        With TextBox4
        .BackColor = vbWhite
        .ForeColor = vbBlack
        .Font.Bold = False
        End With
    End If
    TextBox4 = Format(TextBox4, "dd.mm")
End Sub

 

[sisozen]

Private Sub CommandButton1_Click()
[A1] = CDate(TextBox4)
End Sub

bu komutu kaydet butonun içine yazdım yine benim yukarıda verdiğim örneğin sonucunu verdi. yani 28.07 yazıyorum 28.01 olarak aktarıyor..

yukarıda ki komutu hiç yazmadığımda da aynı sonucu veriyor...

 

[sisozen]

Bu Konuda Bİlgİsİ Olan ArkadaŞlar Yardimci Olursa Sevİnİrİm..saygilar..

 

[Recep İpek]

Aşağıdaki şekilde deneyebilirmisiniz.

Private Sub CommandButton1_Click()
[A1] = CDate(Format(TextBox4, "dd.mm"))
End Sub

Örnek dosya,

 

[sisozen]

Sn. Rİpek
Kisa Tarİhİ Yalniz A1 Yaziyor Formumda İlgİlİ Yerlerde Nasil Uygularim...

 

[sisozen]

GÖnderdİm...

 

[Recep İpek]

Kaydet kodlarınızı aşağıdaki şekilde değiştiriniz.

F kolonuna kayıt yapılması için verdiğimiz kodları kendinize göre uyarlamanız gerekiyor.

Private Sub CommandButton1_Click()
No = Cells(9981, 1).End(3).Row + 1
Sheets("anasayfa").Range("a" & No).Select
ActiveCell = ComboBox1.Value
ActiveCell.Offset(0, 2) = TextBox1.Value
ActiveCell.Offset(0, 3) = TextBox2.Value
ActiveCell.Offset(0, 4) = TextBox3.Value
ActiveCell.Offset(0, 5) = [color=red]CDate(Format(TextBox4, "dd.mm"))[/color]
ActiveCell.Offset(0, 6) = TextBox5.Value
ActiveCell.Offset(0, 20) = TextBox6.Value
'[A1] = CDate(Format(TextBox4, "dd.mm"))
End Sub

 

[sisozen]

harika.. çok teşekkür ederim.. ellerinize sağlık...