textbox'ta saat olarak görmek

[byenerji]

arkadaşlar merhaba,
forumda bazı arkadaşların yapmış oldukları çalışmalara bakarak kendime bir program yapmak istiyorum fakat bir yerde takıldım, text box'a saat olarak yazıyorum, başka bir userform üzerindenki yine text' box ile yazmış olduğum değeri çok garip bir sayı dizisi olarak görüyorum. bu konuda bilgisi olan arkadaşlar yardımcı olabilirmi.

başlıca 2 sorunum var.
1-saatler textbox ta farklı görünüyor saat olarak görünmesini istiyorum
2-userform da en son kayıt etmiş olduğun tarihi göremiyorum.

 

[byenerji]

hiç kimse neden yardım etmiyor. ?

 

[Korhan Ayhan]

Merhaba,

Yanıt alabilmeniz için sorunuzu okuyan bizleri iyi yönlendirmeniz gerekiyor.

Ben dosyanızı açtım fakat hangi nesneye saat giriyorsunuz arayıp durdum. Artı bu saatleri hangi nesnede farklı formatta görüyorsunuz bunları detaylı yazmalısınız.

 

[byenerji]

korhan bey merhaba,
user form acıldığı sayfada
1.sayfası tarih, bu sayfaya tarih giriyorum (userform2)
diğer sayfalar 1-2-3-4-5-6 bu sayfalara'da saat olarak veri giriyorum. (örnek olarak 00:30 )
bu girilen değer excel üzerine yapıştırıyorum. (excelde 00:30 diye görünüyor)
6.sayfadaki butonlar ile userform ları açıyorum.(userform1-3-4) acmış olduğum user form üzerinde excelde saat olarak görülen değerler, sayı olarak geliyor. ben saat olarak gelmesini istiyorum (örnek olarak 00:30)
2. bir sorunumda en son kayıtlı tarihi 6. sayfadan ulaştığım userformlardan göremiyorum.

 

[Korhan Ayhan]

Merhaba,

Excel sayfasındaki saat formatında görünen değerleri form üzerindeki nesnelere formatlayarak aktarırsanız saat biçiminde görebilirsiniz.

Örnek;

TextBox1 = Format(Range("A1"), "hh:mm")

2. sorunuz içinde yine detay belirtmemişsiniz. Bu tarz sorularınızda LÜTFEN nesne adlarını belirtin.

Örnek;

UserForm3 üzerindeki ComboBox1 nesnesine form açılırken son hücredeki tarihi aktarmak istiyorsanız aşağıdaki satırı formun "İnitialize" olayına yazmanı yeterli olacaktır.

ComboBox1 = Cells(Rows.Count, 2).End(3)

 

[byenerji]

saat formatı hakkında

korhan bey merhaba,
aşağıdaki kot excelle saat formatında yapıştırma işlemi yaparmı, yapamaz ise nasıl bir kot değişikliği yapmalıyım.

Private Sub CommandButton1_Click()
Dim ts
ts = Range("B" & Rows.Count).End(xlUp).Row
If ts < 5 Then
Range("A5").Select
Else
Range("A" & ts + 1).Select
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
acik = "İşlem tamam"
buton = vbOKOnly + vbInformation + vbDefaultButton1
bas = Kayıt = "İşlemi"
MsgBox acik, buton, bas

TextBox1.Text = ""


Private Sub TextBox1_Change()
If TextBox1.Value = "" Then Exit Sub
Select Case Len(TextBox1.Value)
Case Is = 2
TextBox1.Value = TextBox1.Value & ":"
Case Is >= 5
TextBox1.Value = Mid(TextBox1.Value, 1, 5)
End Select
End Sub

 

[byenerji]

korhan bey 2. sorum ise
aşağıdaki kotlarda nasıl bir değişiklik yaparsam formattı saat olarak görebilirim.

Private Sub ListBox1_Click()
On Error Resume Next
Sheets("START-STOP").Select
Dim X As Integer
X = Sheets("START-STOP").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
ComboBox1.Value = ListBox1
ComboBox1 = Sheets("START-STOP").Cells(X, 2)
Dim bak As Range
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select

TextBox1.Value = ActiveCell.Offset(0, -1).Value
ComboBox3.Value = ActiveCell.Offset(0, 1).Value
TextBox1801.Value = ActiveCell.Offset(0, 2).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
TextBox5.Value = ActiveCell.Offset(0, 5).Value

 

[Korhan Ayhan]

Merhaba,

Önceki mesajımda belirttiğim gibi veriyi ilgili alana aktarırken biçimlendirmeniz yeterli olacaktır.

Bu satırı;

ActiveCell.Offset(0, 1).Value = TextBox1.Text

Bu satırla değiştirin.

ActiveCell.Offset(0, 1).Value = Format(TextBox1, "hh:mm")

2. sorunuz içinde aynı mantığı kullanabilirsiniz.

 

[byenerji]

KORHAN bey, tarih hakkında

korhan hocam dediğiniz işlemleri yaptım, olmuyor bir türlü, dosyayı ekledim, kontrol edebilirmisiniz.

teşekkürler.

 

[byenerji]

korhan hocam dosyaya bakabildinizmi acaba.

 

[Korhan Ayhan]

Merhaba,

Size ipuçlarını veriyorum ama hiç gayret göstermiyorsunuz. Bir veriyi istediğiniz biçimde görmek için formatlamalısınız.

ListBox1_Click olayını aşağıdaki gibi değiştirin.

Private Sub ListBox1_Click()
    On Error Resume Next
    Sheets("START-STOP").Select
    Dim X As Integer
    X = Sheets("START-STOP").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
    ComboBox1.Value = ListBox1
    ComboBox1 = Sheets("START-STOP").Cells(X, 2)
    Dim bak As Range
 
    For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
            bak.Select
            TextBox1.Value = ActiveCell.Offset(0, -1).Value
[COLOR=red]           ComboBox3.Value = Format(ActiveCell.Offset(0, 1).Value, "hh:mm:ss")[/COLOR]
[COLOR=red]           TextBox1801.Value = Format(ActiveCell.Offset(0, 2).Value, "hh:mm:ss")[/COLOR]
[COLOR=red]           TextBox3.Value = Format(ActiveCell.Offset(0, 3).Value, "hh:mm:ss")[/COLOR]
[COLOR=red]           TextBox4.Value = Format(ActiveCell.Offset(0, 4).Value, "hh:mm:ss")[/COLOR]
            TextBox5.Value = ActiveCell.Offset(0, 5).Value
            TextBox6.Value = ActiveCell.Offset(0, 6).Value
            TextBox7.Value = ActiveCell.Offset(0, 7).Value
            TextBox8.Value = ActiveCell.Offset(0, 8).Value
            TextBox9.Value = ActiveCell.Offset(0, 9).Value
            TextBox10.Value = ActiveCell.Offset(0, 10).Value
            CommandButton5.Enabled = True
            CommandButton94.Enabled = True
            CommandButton62.Enabled = True
            CommandButton1.Enabled = False
        Exit Sub
        End If
    Next bak
 
    CommandButton5.Enabled = True
    CommandButton94.Enabled = True
    CommandButton62.Enabled = True
    CommandButton1.Enabled = False
    ComboBox2.SetFocus
End Sub

 

[byenerji]

korhan hocam yardımlarınız için çok teşekkür ederim.