Soru Userform Tarih Formatı

[ekremmk]

İyi akşamlar.
Sayfa1!I17 hücresinden userform TextBox3 e çekilen tarihin formatı ay/gün/yıl olarak geliyor. Ben gün/ay/yıl olmasını istiyorum. Yardım edebilir misiniz?

 

[Zeki Gürsoy]

Deneyin...

TextBox3 = Format(Sayfa1!I17, "dd\/mm\/yyyy")

 

[ekremmk]

Deneyin...

TextBox3 = Format(Sayfa1!I17, "dd\/mm\/yyyy")

İlginiz için teşekkür ederim.
Ancak hata veriyor.

 

[Zeki Gürsoy]

TextBox, form üzerinde mi, sayfa üzerinde mi?

 

[ekremmk]

TextBox, form üzerinde mi, sayfa üzerinde mi?

form üzerinde

 

[Zeki Gürsoy]

Öyleyse TextBox' a veri alan proseduru/olayı ekleyin, bir de ona bakalım.

 

[ekremmk]

Öyleyse TextBox' a veri alan proseduru/olayı ekleyin, bir de ona bakalım.

Kusura bakmayın hocam tam anlayamadım dediğinizi.

 

[Zeki Gürsoy]

Köşeli parantez eksikmiş...

TextBox3 = Format([Sayfa1!I17], "dd\/mm\/yyyy")

 

[ekremmk]

Köşeli parantez eksikmiş...

TextBox3 = Format([Sayfa1!I17], "dd\/mm\/yyyy")

malesef hocam yine olmadı.


Private Sub TextBox1_Change()

Dim sh As Worksheet
Dim SonSatir As Long
Dim SiraNo As Range
Dim Satir As Long

Set sh = Sheets("GÖRÜŞMELER")
SonSatir = sh.Cells(Rows.Count, "A").End(3).Row
Set SiraNo = sh.Range("A5:A" & SonSatir)
If SiraNo.Find(TextBox1.Text, lookat:=xlWhole) Is Nothing Then Exit Sub
Satir = SiraNo.Find(TextBox1.Text, lookat:=xlWhole).Row

TextBox3.Value = sh.Cells(Satir, "B").Value
ComboBox1.Value = sh.Cells(Satir, "G").Value
ComboBox2.Value = sh.Cells(Satir, "H").Value
ComboBox3.Value = sh.Cells(Satir, "J").Value
TextBox2.Value = sh.Cells(Satir, "C").Value
TextBox4.Value = sh.Cells(Satir, "L").Value
TextBox5.Value = sh.Cells(Satir, "M").Value
TextBox6.Value = sh.Cells(Satir, "N").Value
TextBox7.Value = sh.Cells(Satir, "O").Value
TextBox8.Value = sh.Cells(Satir, "P").Value
TextBox9.Value = sh.Cells(Satir, "Q").Value

TextBox3.Value = Format(sh.Cells(Satir, "B").Value, "dd.mm.yyyy")

End Sub

bu kod işe yaramıştı ama bu userform'a yorumlayamadım.