TextBox1 Tarih Format

[nadirornek]

A1 hücre formatı aaaa yyyy dir
A2 hücresine TextBox1 ile tarih girildiğinde A1 hücre formatı gibi olması gerekmektedir.
TextBox1 formatı nasıl olmalıdır.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
[a2] = Format(TextBox1, "mmmm yyyy")
End Sub

 

[nadirornek]

Butonla oldu.
Butona eklemeden Textbox'a yazınca format değişebilirmi.
Teşekkürler.

 

[Orion1]

Butonla oldu.
Butona eklemeden Textbox'a yazınca format değişebilirmi.
Teşekkürler.

Textboxın exit olayına

range("A2").value=cdate(textbox1.text)
range("A2").numberformat="mmmm yyyy"

 

[nadirornek]

Evren Bey kodu aşağıdaki gibi uyguladım

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("A2").NumberFormat = "mmmm yyyy"
Range("A2").Value = CDate(TextBox1.Text)
End Sub

Teşekkür ederim.

 

[Orion1]

Evren Bey kodu aşağıdaki gibi uyguladım

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("A2").NumberFormat = "mmmm yyyy"
Range("A2").Value = CDate(TextBox1.Text)
End Sub

Teşekkür ederim.

rica ederim.
İyi çalışmalar.