Tarih neden benım ıstedıgım gıbı gelmıyor yardım lutfen

[drlacter]

arkadaşlar bütün gün forumu taradım heryere baktım ama şu tarih olayını düzeltemedim..

sorunum formda yer alan tarih kısmına tarihi gg.aa.yyyy yazdıgım halde hücreye aktardıgında aa.gg.yyyy olarak çeviriyor..burda şu dıkkatımı cektı mesela 13.04.2010 yazdıgımda dogru verıyo..ama 11.04.2010 yazdıgımda degıstırıyor...buda şu demek oluyor eger gün olarak buraya 01-12 girersen ben bunu ay olarak alırım ve bu şekılde hucrene aktarırım..

yardım lütfen..

 

[Necdet]

Merhaba,

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2.Value, "dd.mm.yyyy")
End Sub

Private Sub CommandButton1_Click() da

.....
.....
ActiveCell.Offset(0, 1) = Format(TextBox2.Text, "dd.mm.yyyy")
....
....

olarak dener misiniz?

Tarih girişini aşağıdaki gibi yapabilirsiniz.

1,4,10
1.4.10
1/4/10
1-4-10
1/4-10
1-4/10
hepsi sonuçta 01.04.2010 olacaktır.

Not : Private Sub TextBox2_Change() e de gerek kalmadı.

 

[drlacter]

hocam süpersin çok teşekkürler..

bir sorum daha olacak Necdet hocam size

textbox boş iken " --/--/---- " olması için nasıl bir kod yazmam gerekiyor..exit olayında değilde boş iken böyle görünmesini istiyorum

 

[Necdet]

Merhaba,

UserForm_Initialize ve CommandButton1_Click

TextBox2.Value = "../../...."

Kullanabilirsiniz.

 

[drlacter]

hocam eksik anlattım sanırım kusura bakmayın

istediğim şey .. olan kısımlara sayıları gırdıkten sonra slashları atlaması..yani sabit kalmasını istiyorum slashların

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki konuyu incelermisiniz.

http://www.excel.web.tr/showthread.php?t=5833