textbox tarih formatı

[stres]

textbox saat formatı

Arkadaşlar sağolsun halit3 hocamın yardımları ile kendime bir dosya oluşturma çabasındayım ve %90 ını tamamladım .Şu an itibariyle kendisini aktif olarak göremediğim için genel olarak bütün hocalarıma hitaben yazıyorum.Ecxel sayfasından textbox4 e çektiğim verinin textbox4 te saat formatında görünmesi için TextBox4.Text = Format(ComboBox1.Column(4), "hh:mm") formülünü yazdığımda textbox4 de veri gelmedi.Aşağıdaki formülü bozmadan textbox4 te saat formatını nasıl gösteriririm.



Private Sub ComboBox1_Change()
sayfa = ComboBox1.Value
ListBox1.RowSource = ""
ListBox1.Clear
Satır = Worksheets(sayfa).Cells(65536, 1).End(xlUp).Row
kolon = Worksheets(sayfa).Cells(1, 256).End(xlToLeft).Column
bbb = Worksheets(sayfa).Cells(Satır, kolon).Address
ListBox1.ColumnCount = kolon
Set Sh = Sheets(sayfa)
For a = 1 To kolon
yer = Sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
'MsgBox deg
ListBox1.ColumnWidths = deg
ListBox1.RowSource = sayfa & "!a2:" & bbb
ListBox1.ColumnHeads = True
sat = ComboBox1.ListIndex + 1
For i = 1 To 10
Controls("TextBox" & i).Text = Worksheets("ihaleanabilgileri").Cells(sat, i).Value
TextBox4.Text = Format(ComboBox1.Column(4), "hh:mm")
Label36.Caption = Format(Now, " d mmmm dddd yyyy hh:mm:ss")
Next
End Sub

 

[Orion1]

"dd.mm.yyyy"

 

[stres]

"dd.mm.yyyy"

hocam kusura bakma saat yerine tarih yazmışım yukardaki mesajıda düzelttim
TextBox4.Text = Format(ComboBox1.Column(4), "hh:mm") bu formülü yukardaki formül içinde satır aralarına yazdığımda textbox4 ya boş görünüyor formülü hiç görmüyor yine sayı formatında yazıyor

 

[Orion1]

hocam kusura bakma saat yerine tarih yazmışım yukardaki mesajıda düzelttim
TextBox4.Text = Format(ComboBox1.Column(4), "hh:mm") bu formülü yukardaki formül içinde satır aralarına yazdığımda textbox4 ya boş görünüyor formülü hiç görmüyor yine sayı formatında yazıyor

Comboboxınızda 5 kolon olduğunu kontrol ewdin.
Birde bu kod comboboxtan seçme kodudur.Seçtiğiniz bir satırı 5nci kolonunu verir
Biliyorsunuz ilk kolon 0(sıfırdan başlar.5nci kolonun verileri doğru yerden aldığını kontrol ediniz.Sanırım problem veriyi aldığınız sütundan kaynaklanıyor.Başka bir sütundan veri alıyor 5nci sütun.

 

[stres]

Comboboxınızda 5 kolon olduğunu kontrol ewdin.
Birde bu kod comboboxtan seçme kodudur.Seçtiğiniz bir satırı 5nci kolonunu verir
Biliyorsunuz ilk kolon 0(sıfırdan başlar.5nci kolonun verileri doğru yerden aldığını kontrol ediniz.Sanırım problem veriyi aldığınız sütundan kaynaklanıyor.Başka bir sütundan veri alıyor 5nci sütun.

hocam dediğinizi anladım.benim formumdaki kodlar biraz farklı yine combobox tan veriler alınıyor ve ben bu kodun arasına bunu sıkıştırıyorum ve bu kod bu formüle uygun değil nasıl bir kod yazacağım hakkında da hiç bir bilgim yok malesef:redface: formumdaki kod bu
Private Sub ComboBox1_Change()
sayfa = ComboBox1.Value
ListBox1.RowSource = ""
ListBox1.Clear
Satır = Worksheets(sayfa).Cells(65536, 1).End(xlUp).Row
kolon = Worksheets(sayfa).Cells(1, 256).End(xlToLeft).Column
bbb = Worksheets(sayfa).Cells(Satır, kolon).Address
ListBox1.ColumnCount = kolon
Set Sh = Sheets(sayfa)
For a = 1 To kolon
yer = Sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
'MsgBox deg
ListBox1.ColumnWidths = deg
ListBox1.RowSource = sayfa & "!a2:" & bbb
ListBox1.ColumnHeads = True
sat = ComboBox1.ListIndex + 1
For i = 1 To 10
Controls("TextBox" & i).Text = Worksheets("ihaleanabilgileri").Cells(sat, i).Value
TextBox1.Text = Format(ComboBox1.Column(1), "hh:mm")
Label36.Caption = Format(Now, " d mmmm dddd yyyy hh:mm:ss")
Next
End Sub

 

[Orion1]

hocam dediğinizi anladım.benim formumdaki kodlar biraz farklı yine combobox tan veriler alınıyor ve ben bu kodun arasına bunu sıkıştırıyorum ve bu kod bu formüle uygun değil nasıl bir kod yazacağım hakkında da hiç bir bilgim yok malesef:redface: formumdaki kod bu
Private Sub ComboBox1_Change()
sayfa = ComboBox1.Value
ListBox1.RowSource = ""
ListBox1.Clear
Satır = Worksheets(sayfa).Cells(65536, 1).End(xlUp).Row
kolon = Worksheets(sayfa).Cells(1, 256).End(xlToLeft).Column
bbb = Worksheets(sayfa).Cells(Satır, kolon).Address
ListBox1.ColumnCount = kolon
Set Sh = Sheets(sayfa)
For a = 1 To kolon
yer = Sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
'MsgBox deg
ListBox1.ColumnWidths = deg
ListBox1.RowSource = sayfa & "!a2:" & bbb
ListBox1.ColumnHeads = True
sat = ComboBox1.ListIndex + 1
For i = 1 To 10
Controls("TextBox" & i).Text = Worksheets("ihaleanabilgileri").Cells(sat, i).Value
TextBox1.Text = Format(ComboBox1.Column(1), "hh:mm")
Label36.Caption = Format(Now, " d mmmm dddd yyyy hh:mm:ss")
Next
End Sub

Önceki yazdığınız kodda (4) idi şimdi burada (1)
hangisine inanacağız.
Combobox verileri aldığınız kodu yazınız.

 

[stres]

Önceki yazdığınız kodda (4) idi şimdi burada (1)
hangisine inanacağız.
Combobox verileri aldığınız kodu yazınız.

en iyisi sanırım dosyayı eklemek olacak kusura bakmayın sizde uğraştırdım

 

[Orion1]

İşin comboboxla alakjası yok.
Listboxla ilgili.Siz daha nesneleri tanımamışsınız,nasıl kod yazmayta kalkıyyorsunuz anlamadım.
Ayrıca label23 diye bir nesende yok.Ama siz kodlarınızda kullanmışsınzı.Onuda uf ye ekledim.
Dosyanız ektedir.

Private Sub ListBox1_Click()
sat = ListBox1.ListIndex
For i = 1 To 10
'Controls("TextBox" & i).Text = ListBox1.List(sat, i - 1)
Controls("TextBox" & i).Text = Worksheets("ihaleanabilgileri").Cells(sat + 1, i).Value
Next
Label36.Caption = Format(Now, "dd mmmm dddd yyyy hh:mm:ss")

TextBox4.Text = Format(ListBox1.Column(3), "hh:mm:ss")
End Sub

 

[stres]

İşin comboboxla alakjası yok.
Listboxla ilgili.Siz daha nesneleri tanımamışsınız,nasıl kod yazmayta kalkıyyorsunuz anlamadım.
Ayrıca label23 diye bir nesende yok.Ama siz kodlarınızda kullanmışsınzı.Onuda uf ye ekledim.
Dosyanız ektedir.

Private Sub ListBox1_Click()
sat = ListBox1.ListIndex
For i = 1 To 10
'Controls("TextBox" & i).Text = ListBox1.List(sat, i - 1)
Controls("TextBox" & i).Text = Worksheets("ihaleanabilgileri").Cells(sat + 1, i).Value
Next
Label36.Caption = Format(Now, "dd mmmm dddd yyyy hh:mm:ss")

TextBox4.Text = Format(ListBox1.Column(3), "hh:mm:ss")
End Sub

Teşekkürler hocam .Nesneleri az çok tanıyorum amam bazen dalgınlığa gelebiliyor.Kod yazma konusuna gelince formda ya sizin verdiğiniz kodları kullanıyorum yada yapmak istediğim şeye göre kodlaı denem yanılma yyöntemi ile uygulamaya çalışıyorum .

 

[Orion1]

Teşekkürler hocam .Nesneleri az çok tanıyorum amam bazen dalgınlığa gelebiliyor.Kod yazma konusuna gelince formda ya sizin verdiğiniz kodları kullanıyorum yada yapmak istediğim şeye göre kodlaı denem yanılma yyöntemi ile uygulamaya çalışıyorum .

O zaman Problem yok.Ama demekki iyi takip etmiyorsunuz.
Size kırık not vereceğim.