TextBox 15:00 Formatı hk.

[ocamsul]

Arkadaşlar merhabalar bir buton sayesinde ListBox dan seçilen satırı TextBoxlara alıyorum, ancak TextBoxlarımdan birinin formatının 15:00 gibi olması gerekli bu konuda bir örnek verirmisiniz?

 

[Seyit Tiken]

Bu şekilde bir deneyin.

Private Sub TextBox1_AfterUpdate()
TextBox1.Text = Format(TextBox1, "00"":""00")
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibide deneyebilirsiniz.

textbox1=format(listbox1.column(..),"hh:mm")

 

[ocamsul]

SN: leventm ve Seyit Tiken iki cevap da olmadı sorun nerede anlamadım sadece buton ile textboxlara alınan verinin 00:00 şeklinde saat olarak görünmesini istiyorum zira hücredeki değerde 00:00 olarak görünüyor.

verilen kodları kullandığımda TexBox daki sayı 0.514 2. textbox daki de 0.875 olarak görünüyor.

 

[Tankut SAZLI]

Tam anlamadım,ama texboxta saat mi istiyorsunuz:

Private Sub UserForm_Activate()
On Error Resume Next
    Do
        DoEvents
        Timenow = Format(Now, "hh:mm")
        TextBox1 = Timenow
        Loop
End Sub

 

[ocamsul]

TextBoxlara verileri bu kodlarla alıyorum arkadaşlar ;

Private Sub CommandButton8_Click()
Sheets("Sheet6").Activate
Dim ser As Range
For Each ser In Range("a2:k" & WorksheetFunction.CountA(Range("a2:k65000")) + 4)
ser.Select
If UserForm1.ListBox1.Value = ser Then
UserForm1.TextBox13.Value = ActiveCell.Offset(0, 1).Value
UserForm1.TextBox14.Value = ActiveCell.Offset(0, 2).Value
UserForm1.TextBox15.Value = ActiveCell.Offset(0, 3).Value
UserForm1.TextBox16.Value = ActiveCell.Offset(0, 4).Value
UserForm1.TextBox17.Value = ActiveCell.Offset(0, 5).Value
UserForm1.TextBox18.Value = ActiveCell.Offset(0, 6).Value
UserForm1.TextBox19.Value = ActiveCell.Offset(0, 7).Value
UserForm1.TextBox20.Value = ActiveCell.Offset(0, 8).Value
UserForm1.TextBox21.Value = ActiveCell.Offset(0, 9).Value 'saat1
UserForm1.TextBox22.Value = ActiveCell.Offset(0, 10).Value 'saat2

Exit Sub
End If
Next ser
MsgBox "kayıt bulunamadı...", vbInformation

End Sub

 

[ahmett46]

TextBox içindeki sayıya kod içinde +1 nasıl ekleyebilirim