textbox ta tarih formatı sorunu

[Tankut SAZLI]

Arkadaşlar userformad kullandığım bir textbox var.burayı __/__/____
şeklinde formatlayabildim.ancak benim istediğim farklı bir durum.Örneğin textbox a 03072006 yazdığımda bunu 03/07/2006 yada 03.07.2006 şeklinde göstermesi.Bu bir,ikincisi buraya girilen tarih bilgisini KAYIT butonuna bastığımda ör C sütununda bir hücreye gödermek istiyorum.ancak hücreye baktığımda saçma sapan bir sayı var.Bu sorunu nasıl aşabilirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu textboxa kopyalayın.

[vb:1:13b0e4e154]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "00"".""00"".""0000")
End Sub
[/vb:1:13b0e4e154]

Textboxtaki veriyi hücreye tarih olarak aktarmak içinde aşağıdaki gibi kodlayın. Tarihi aktardığınız hücreyide tarih olarak biçiminlendirmeyi unutmayın.

[vb:1:13b0e4e154][a1] = CLng(CDate(TextBox1))
[/vb:1:13b0e4e154]

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Private Sub TextBox1_Change()
[A1] = TextBox1
TextBox1 = Format(TextBox1, "00"".""00"".""0000")
End Sub

 

[Tankut SAZLI]

Sayın Levent bey dediklerinizi yaptım ancak

Private Sub kaydet_Click()
Sheets("" & musteriad).Select
If musteriad = "" Then
MsgBox "Lütfen Müşteri İsmi Giriniz"
musteriad.SetFocus
Exit Sub
End If
son = Sheets("" & musteriad).[E65536].End(3).Row - 1
sat = WorksheetFunction.CountA(Sheets("" & musteriad).Range("C6:C" & son)) + 3
If son = sat - 1 Then
MsgBox "DİKKAT! Müşteri Kartı Dolmuştur"
Exit Sub
End If
ActiveSheet.Unprotect
Sheets("" & musteriad).Cells(sat, "C") = CLng(CDate(tarih))
Sheets("" & musteriad).Cells(sat, "D") = urunad
Sheets("" & musteriad).Cells(sat, "E") = adet
Sheets("" & musteriad).Cells(sat, "F") = urunbedel
Sheets("" & musteriad).Cells(sat, "H") = odeme
?????Sheets("" & musteriad).Range("C7:I" & son).Sort key1:=Sheets("" & musteriad).[C7]
urunad = "" ' KAYIT İŞLEMİNDEN SONRA FORMU TEMİZLER
urunbedel = ""
adet = ""
odeme = ""
urunad.SetFocus
End Sub

soru işareti ile ilgili yerde soru n çıktığı için kayıt almadı.Daha önce bu sorun yoktu.Sorun sayfanı C sütunun tarih formatı olabilirmi.sayfayı macro ile tablo oluşturarak hazırlıyorum ve C7 (dahil) sütunu tarih formatını oluşturma kodu nedir?

 

[Levent Menteşoğlu]

İşlem yapmayan satırı aşağıdaki ile değiştirin.

[vb:1:4d2aef052f]Sheets("" & musteriad).Range("C7:I" & son).Sort key1:=clng(Sheets("" & musteriad).[C7])[/vb:1:4d2aef052f]

Sütunun tamamını tarih formatına çevirmek içinde aşağıdaki gibi bir kod kullanılabilir.

[vb:1:4d2aef052f][c:c].NumberFormat = "mm/dd/yyyy"[/vb:1:4d2aef052f]

 

[Tankut SAZLI]

tarih sorunu tamam ancak sorunlu satırı çözemedim.

 

[Tankut SAZLI]

Özür dilerim sorunu hala çözebilmiş değilim.Üstelik şimdi bir de E ve F sütunları sayı biçimli değil,listboxta tüm liste gözükmüyor,Kayıta c8 den başlıyor ve yeni kayıt girildiğinde kart doldu uyarısı veriyor.Yuarıdaki dosya yenilendi.

 

[Tankut SAZLI]

Burada bir sorun daha çıktı.tarih textbox ına 24.06.2006 yazıldığında hücreye 06.24.2006 olarak atıyor.