Textbox-Tarih formatı

Katılım
3 Eylül 2004
Mesajlar
174
Excel Vers. ve Dili
Excel-2002 Türkçe
Merhabalar;

Textbox ı aşağıdaki gibi formatladım.
Kod:
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "##/##/####")
End Sub
Kod:
29/05/2006 yazan tarih
Shift+Tab yaptığım zaman
/3/8866 bu şekle geliyor

Normal de düzgün çalışıyor fakat Shift+Tab tuşlarına basıp bir üst textbox a çıktığım zaman tarih bozuluyor.
Bunu nasıl düzeltebilirim?[/code]
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "dd.mm.yyyy")
End Sub

Zannedersem Böyle denersenız problem olmayacak dıye dusünuyorum
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "dd.mm.yyyy")
End Sub

Zannedersem Böyle denersenız problem olmayacak dıye dusnuyorum
 
Katılım
3 Eylül 2004
Mesajlar
174
Excel Vers. ve Dili
Excel-2002 Türkçe
Sayın Rakkas cevabınız için teşekkür ederim ama bu formülüde denedim fakat sorunu çözmedi.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba


TextBox7.Value = CDate(TextBox7.Value)
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sn excelman,

TextBox7.Value = Format(CDate(TextBox7.Value), "dd.mm.yyyy")

şeklinde deneyin
 
Katılım
3 Eylül 2004
Mesajlar
174
Excel Vers. ve Dili
Excel-2002 Türkçe
Arkadaşlar verdiğiniz kodları denedim fakat aşağıdaki hatayı verdi.

Kod:
Run-time error "13":
Type mismatch
şeklinde hata veriyor.Acaba benim excel de eksik olan birşeyler mi var?
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Cdate ile hata vermez

Sn.Fructose'nin kini deniyorsanız

Excel tarih formatınız ne ise onu kullanın
dd/mm/yyyy
dd.mm.yyyy gibi
 
Katılım
24 Mayıs 2005
Mesajlar
462
Excel Vers. ve Dili
Excel 2003 Türkçe
Selam, aşağıdaki kodu denermisin.

Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "##/##/####")
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Hata veren dosyanızı ekleyebilirmisiniz inceleyelim.
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sn zafer, sizin önerdiğiniz daha pratik birde format değiştirmek zorunda kalınmaz. :hey:
 
Katılım
24 Mayıs 2005
Mesajlar
462
Excel Vers. ve Dili
Excel 2003 Türkçe
Sayın Excelman, kodunuzu aşağıdaki prosedüre kopyalayın. İşinizi görecek. Kolay gelsin.

Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "##/##/####")
End Sub
 
Katılım
3 Eylül 2004
Mesajlar
174
Excel Vers. ve Dili
Excel-2002 Türkçe
Sayın Ongun teşekkür ederim.
Verdiğiniz kodlarla sorun çözüldü.
İyi Çalışmalar.
 
X

xxrt

Misafir
Sayın Ongun,

Verdiğiniz kod'daki format şeklini ilk görüyorum.Şunu merak ettim ve denedim.

Kodu aynen girdim tarih yazdım mesela 15/03/2006 enter ile alt textboxa geçtim tarihi şu şekilde verdi.
/3/8791

bu nasıl bir şey..Bu tarih formatımı?Yoksa ben yanılıyormuyum.. :?
 
Katılım
24 Mayıs 2005
Mesajlar
462
Excel Vers. ve Dili
Excel 2003 Türkçe
xxrt' Alıntı:
Sayın Ongun,

Verdiğiniz kod'daki format şeklini ilk görüyorum.Şunu merak ettim ve denedim.

Kodu aynen girdim tarih yazdım mesela 15/03/2006 enter ile alt textboxa geçtim tarihi şu şekilde verdi.
/3/8791

bu nasıl bir şey..Bu tarih formatımı?Yoksa ben yanılıyormuyum.. :?
Sayın xxrt, tarihi 15/03/2006 olarak yazarsanız bu hatayı verir. Ancak, 15032006 olarak yazarsanız bu hatayı vermemesi lazım. Saygılarımla
 
X

xxrt

Misafir
Anladım.Genelde 15/03/2006 formatı ile textlere giriliyorda,bunudaöyle düşünmüşüm.
Bilgilendirme için teşekkür ederim.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

excelman' Alıntı:
29/05/2006 yazan tarih
Shift+Tab yaptığım zaman
/3/8866 bu şekle geliyor

Normal de düzgün çalışıyor fakat Shift+Tab tuşlarına basıp bir üst textbox a çıktığım zaman tarih bozuluyor.
Bunu nasıl düzeltebilirim?[/code]
O zaman tarih değilde sayı olarak girilmesi lazım.siz formatta tarih değil sayıları ayırmış oluyorsunuz.

Sn.Excelman 29/05/2006 diye giriyorsa sonuç nasıl doğru oluyor anlamış değilim.

Sayın xxrt'ninde anlatmak istediğide tarih formatının bu sekilde olmamasıdır sanıyorum.
 
Üst