textbox ile tarih kaydetme bugün ()

[ayemenici]

arkadaşlar user formdaki textbax ile aşağıdaki kod sayesinde exell sayfasına tarih atıyorum ancak exell sayfasında bu tarihe bağlı formüller bulunmakta ve formüller tarihi algılamıyor.
tarih hücresine cift tıklayıp girip-çıkınca düzeliyor tahminim metin gibi algılıyon ne yapmam lazım ki tarihi tarih olarak algılasın.




TextBox1 = Format(Now, "dd.mm.yyyy")

 

[nsertoglu]

Dosya örneğinizi koyarsanız problemi anlamak ve çözmek kolaylaşacaktır. Bir de Excel versiyonunuz hangisidir? Bu bilgi de önemli.

 

[Ayhan Ercan]

arkadaşlar user formdaki textbax ile aşağıdaki kod sayesinde exell sayfasına tarih atıyorum...
TextBox1 = Format(Now, "dd.mm.yyyy")

Bahsettiğiniz kod ile dediğinizi yapmak mümkün değil...
Bu kod ile sayfaya tarih atıyor olamazsınız. Kod ile Textbox1 e yazdığınız değerin formatını belirlemiş oluyorsunuz...

 

[fedeal]

textbox'dan sayfaya tarih atıyorsanız ve tarih olarak algılanmıyorsa

örnegin sayfaya attıgınız kod:
sheets("data").range("a5").value= textbox1.text
ise
sheets("data").range("a5").value= datevalue(textbox1.text)

kırmızı kodu ekleyin

textboxa bugünün tarihini almak içinse

Private Sub UserForm_Initialize()
TextBox1 = Format(Date)
End Sub

kullanabilirsiniz.

 

[ayemenici]

feday rkadaşım teşekkür ederim sorunumu çözdün

 

[fedeal]

feday rkadaşım teşekkür ederim sorunumu çözdün

Ricaederim iyi çalışmalar.