-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Soru Userform Tarih Formatı
- Konbuyu başlatan ekremmk
- Başlangıç tarihi
-
- Etiketler
- tarih format userform userform tarih format
- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,397
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
Deneyin...
PHP:
TextBox3 = Format(Sayfa1!I17, "dd\/mm\/yyyy")- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,397
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
TextBox, form üzerinde mi, sayfa üzerinde mi?
form üzerinde
- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,397
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
Öyleyse TextBox' a veri alan proseduru/olayı ekleyin, bir de ona bakalım.
Kusura bakmayın hocam tam anlayamadım dediğinizi.
- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,397
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
Köşeli parantez eksikmiş...
Kod:
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.