Textbox tarih formatı

[haso_excel]

Txt_odemortvade.Value = WorksheetFunction.Sum(Range("o:o")) / WorksheetFunction.Sum(Range("n:n")) + WorksheetFunction.Min(Range("m:m"))
Txt_odemevade= FormatDateTime(Txt_odemevade, vbShortDate)
Txt_odemevade = Format(Txt_odemevade, "dd/mm/yyyy")

Excel çalışma sayfasına bir user form üzerinden veri aktarıyorum daha sonrada O kolonu ve N kolonundaki veriler üzerinden bir hesaplama yapıyorum. O kolonu sayı, N kolonuda sayı, M kolonu tarih. Yukarıdaki kod dada göreceğiniz üzere Txt_odemevade textboxına ilgili hesaplamayı getirmeye çalışıyorum, fakat format olarak ilgili tarih formatını getiremedim. YArdımcı olur musunuz lütfen?

 

[fedeal]

şöyle bir çözüm bulsak, işlemi yapıp herhangibi bir hücreye yazsa sonra yanıtı o hücreden textboxa çagırsak

Range("p1") = (WorksheetFunction.Sum(Range("o: o")) / WorksheetFunction.Sum(Range("n:n"))) + WorksheetFunction.Min(Range("m:m"))
Txt_odemortvade.Text = Sheets("giris").Range("p1").Value

giris sayfasının p1 hücresini kullandım siz degiştirin işinizi görür umarım.

 

[haso_excel]

Private Sub Txt_odemortvade_Change()
Txt_odemortvade.Value = Range("Q2")
'Txt_odemortvade = FormatDateTime(Txt_odemortvade, vbShortDate)
'Txt_odemortvade = CDate(Txt_odemortvade)
Txt_odemortvade = Format(Txt_odemortvade, "dd/mm/yyyy")
End Sub

Private Sub UserForm_Initialize()
Txt_odemortvade.Value = Range("Q2").Value
Txt_odemortvade = FormatDateTime(Txt_odemortvade, vbShortDate).Value =

yukarıdaki gibi bir kodlamam var fakat, Q2 hücresinde 10/02/2009 yazmasına rağmen,user formadaki txt_odemortvade textboxına 02/10/2009 geliyor nerde hata yapıyorum acaba

 

[fedeal]

Txt_odemortvade=format(Txt_odemortvade,"dd.mm.yyyy")

 

[haso_excel]

Txt_odemortvade = Format(Txt_odemortvade, "dd/mm/yyyy")

ne farkı var? olmadı üstadım

 

[fedeal]

Txt_odemortvade = FormatDateTime(Txt_odemortvade, vbShortDate).Value
bu kod bende hata verdi ne yaptıgını anlamak için yazmıştım. bu günün tarihini almak istiyorsanız textboxa
Txt_odemortvade=format(date) kullanabilrsiniz.
kodların aynısını yazıyorum bende tarih formatı düzgün geliyor.

 

[haso_excel]

O kod aktif değil üstadım.

 

[fedeal]

şimdi oldu zannedersem
valueyi textle degiştirin
Txt_odemortvade.text = Range("Q2")

 

[haso_excel]

Teşekkürler işlem tamam