Textbox tarih ve tutar formatı

[drlacter]

Selam arkadaşlar

Örnek dosyada göndermiş oldugum userform'da yer alan tutar kısmının formatını 35,000.00 gibi,tarih formatının ise 01/01/1900 gibi olması için nasıl bir kod yazmam gerektiği konusunda yardım ederseniz çok sevinirim..

ben 35000 yazdıgımda o otomatik olarak istediğim formatta,01011900 yazdıgımdada gün/ay/yıl olarak yazmasını istiyorum.

forumda araştırdım ancak ben sorunumu çözecek bir kod yazamadım.

 

[İhsan Tank]

merhaba
userform'unuza şu kodları ekledim

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "##,##.00")
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "dd""/""mm""/""yyyy")
End Sub

eki inceleyin
kodlar alıntıdır.

 

[drlacter]

çok teşekkür ederim ismail bey yardımınız için..

 

[İhsan Tank]

çok teşekkür ederim ismail bey yardımınız için..

rica ederim ihsan ben kolay gelsin

 

[drlacter]

bi önceki mailimde ismini yanlış hitab etmişim özür dilerim ihsan bey..

tarih kodunda bir hata var gibi görünüyor?

 

[İhsan Tank]

bi önceki mailimde ismini yanlış hitab etmişim özür dilerim ihsan bey..

tarih kodunda bir hata var gibi görünüyor?

merhaba
tarih'teki kodu

TextBox2 = Format(TextBox2, "dd.mm.yyyy")

bununla değiştiriniz
dosyanız ektedir.

 

[drlacter]

ihsan bey tarihde halen hata alıyorum..

tutar kısmını yazıyorum tab tuşu ile tarih e gelip tarihi yazıyorum tekrar tab tuşuna bastıgımda hata veriyor

 

[İhsan Tank]

nasıl bir hata alıyorsunuz anlamadım dosya bende normal çalışıyor
örneğin şöyle bir giriş yapınız 31/5 yazıp bir deneyin

 

[drlacter]

sizi meşgul ediyorum özür dilerim öncelikle

tarih kısmına 31052010 yazdigimda hata alıyorum.

31/05/2010 yazdıgımda 31.05.2010 olarak gırıyor.

benım ıstedıgım textbox da veri yok iken "--/--/----" gibi görünmesini sağlıyorum..veri girerkende boşluklara sırasıyla gün ay yıl formatında girmek..mesela 31 yazdıgımda slash işaretini kendi atlayıp 05 yazıcam sonra yine aynı şekilde slash ı kendı atlıcak yılı yazıcam gibi..umarım anlatabilmişimdir.

 

[İhsan Tank]

son istediğiniz hakkında bir fikrim yok zaten farkederseniz makro kodları sadece alıntı olduğunu yazmışım.
kolay gelsin

 

[baydeniro]

Sayın halit3 paylaşım için çok teşekkürler. Textbox için 2 koşulu birden sağlamak nasıl mümkün olabilir. Tarih için hem format belirleme hem de belli bir tarihten önce olması (veya sonra olması) nasıl sağlanır ?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd"".""mm"".""yyyy")
TextBox1 <= Value(TextBox1, "41000")
End Sub