Userform Saat Formatı Hatası

[Şahin.mrkc]

Merhabalar

Hazırlamış olduğum programda izin kayıt ekranında saat format hatası alıyorum. Hücreden textboksa saat aktarımı yapamıyorum. Yardımcı olursanız sevinirim.

Saygılarımla

 

[Şahin.mrkc]

Merhaba bana yardımcı olacak kimse yokmu. Aynı konuyu 3. kez açıyorum kimse yardım etmiyor. Cevap veren bile yok. :kafa:

 

[askm]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton3_Click()
Sheets("İZİN DATA").Select
If Sayfa8.Range("A2").Value < 1 Then MsgBox "Kayıt yok": Exit Sub
Dim bul As Range

For Each bul In Sayfa8.Range("A2:A" & Range("A65536").End(3).Row)
'If CStr(bul) = Empty Then Call başaal
If CStr(bul) = CStr(ComboBox4) Then
ComboBox1 = bul.Offset(0, 1) ' ADI SOYADI
TextBox1 = bul.Offset(0, 2)  ' TC KİMLİK
TextBox2 = bul.Offset(0, 3)  ' GÖREV YERİ
TextBox3 = bul.Offset(0, 4)  ' SGK SİCİL NO
ComboBox2 = bul.Offset(0, 5) ' İSTENEN İZİN
ComboBox3 = bul.Offset(0, 6) ' İZİN TÜRÜ
TextBox4 = bul.Offset(0, 7)  ' İZİN AÇIKLAMA
TextBox5 = bul.Offset(0, 8)  ' İZİN BAŞLAMA TARİH
TextBox6 = Format(bul.Offset(0, 9), "hh:mm") ' İZİN BAŞLAMA SAAT
TextBox7 = bul.Offset(0, 11) ' İZİN BİTİŞ TARİH
TextBox8 = Format(bul.Offset(0, 12), "hh:mm") ' İZİN BİTİŞ SAAT
TextBox9 = bul.Offset(0, 14) ' GÖREVE BAŞLAMA TARİH
TextBox10 = Format(bul.Offset(0, 15), "hh:mm") ' GÖREVE BAŞLAMA SAAT
TextBox11 = bul.Offset(0, 17) ' GÜN
TextBox12 = Format(bul.Offset(0, 18), "hh:mm") ' SAAT
TextBox13 = bul.Offset(0, 19) ' ULAŞILABİLECEK TEL.


'TextBox5 = Format(TextBox5, "dd"".""mm"".""yyyy")
'TextBox6 = Time(TextBox6, "hh:mm")
'TextBox7 = Format(TextBox7, "dd"".""mm"".""yyyy")
'TextBox8 = Time(TextBox8, "hh:mm")
'TextBox9 = Format(TextBox9, "dd"".""mm"".""yyyy")
'TextBox10 = Time(TextBox10, "hh:mm")

Exit For
End If
Next bul
End Sub

 

[Şahin.mrkc]

İsmini anlayamadım ama Allah Senden Razı olsun. 1 haftadır kimseden yardım alamamıştım.

Bu sorun ile ilgili çok araştırdım fakat senin bu yöntemini hiç bir yerde görmedim. Eminim ki beni bu konudaki cahilliğimden kaynaklanıyor. Tekrar teşekkür ederim.

 

[askm]

İsim değil nick name. Belli kelimelerin kısaltması. Askm. Rica ederim. Kolay gelsin.

 

[AkarUgurlu]

Hocam merhaba
benim sorunum ise TextBox ta tarih formatı. hücrdede 08.02.2017 gibi olan tarih TextBox ta 02.08.2017 olarak görünüyor.
Bölge ayarlarına falan baktım ama çözüm bulamadım. yardımcı olursanız çok sevinirim.

 

[askm]

Format ile çözüm olmadı ise örnek dosyanızı eklerseniz yardımcı olmaya çalışayım.