DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
TextBox3 = Format(Sayfa1!I17, "dd\/mm\/yyyy")
İlginiz için teşekkür ederim.Deneyin...
PHP:TextBox3 = Format(Sayfa1!I17, "dd\/mm\/yyyy")
form üzerindeTextBox, form üzerinde mi, sayfa üzerinde mi?
Kusura bakmayın hocam tam anlayamadım dediğinizi.Öyleyse TextBox' a veri alan proseduru/olayı ekleyin, bir de ona bakalım.
TextBox3 = Format([Sayfa1!I17], "dd\/mm\/yyyy")
malesef hocam yine olmadı.Köşeli parantez eksikmiş...
Kod:TextBox3 = Format([Sayfa1!I17], "dd\/mm\/yyyy")
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