ListBox sütununda tarih Formatı

[Feylosof]

Merhaba
"ListBox tarih formatı" konusu gerek forumumuzda gerekse farklı platformlarda epeyce fazla işlenmiş. ComboBox3 Change yoluyla süzme işlemi yapınca listbox1 de tarih sütunu "gg.aa.yyyy" formatında olsun istiyorum. Süzme kodunu da bu siteden aldım ama hangi hocamıza ait olduğunu hatırlamıyorum. Bu haliyle istediğimi yapmıyor konuyla alakalı tarih formatı ayarlarını yapan örnek tüm çözümleri eklemeyi denedim ama bir türlü muvaffak olamadım.
Yardımınıza ihtiyacım var. Şimdiden teşekkürler.

 

[kemal turan]

Merhaba,
Dosyanızda isim ara textboxunuzda "exit" ve initialize olayında düzenlemeler yaptım, diğerlerini uyarlarsınız.

 

[Feylosof]

Sayın @kemal turan yardımlarınız için çok teşekkür ederim. İşlerimin çok yoğun olması sebebiyle foruma bakamadım şimdide dosyayı kendime uyarlamaya çalışıyorum. Form ilk açılınca listbox dolu gelmeli combobox ile süzme işlemi bunun üzerinden olabilir mi acaba?

 

[kemal turan]

Form ilk açılınca listbox dolu gelmeli

İnitialize olayına ekleyiniz.

ListBox1.RowSource = "İZİN!B2:H10000"

 

[Feylosof]

Tamam değerli hocam. Elinize emeğinize sağlık.

 

[Feylosof]

Hocam

    UserForm1.ListBox1.Clear

Bu satırda hata verdi

 

[kemal turan]

merhaba
Öncelikle hoca olduğumu düşünmüyorum.
Sizlerle beraber öğrenmeye öğrendiklerimi paylaşmaya çalışıyorum.
ListBox1.RowSource = Empty ekleyiniz.

Private Sub ComboBox2_Change()
On Error Resume Next
Set S1 = Sheets("İZİN")
Dim a As Long, i As Long
ListBox1.RowSource = Empty
ListBox1.Clear

    ReDim dizial(1 To 7, 1 To 1)
    If ComboBox2.Text = "" Then Exit Sub
 
    For i = 2 To S1.Cells(Rows.Count, 1).End(3).Row
        If UCase(Replace(Replace(S1.Cells(i, "D"), "ı", "I"), "i", "İ")) Like _
        "*" & UCase(Replace(Replace(ComboBox2.Text, "ı", "I"), "i", "İ")) & "*" Then
            a = a + 1
            ReDim Preserve dizial(1 To 7, 1 To a)
           
           
            dizial(1, a) = Cells(i, "B")
             dizial(2, a) = Cells(i, "C")
            dizial(3, a) = Cells(i, "D")
            dizial(4, a) = Cells(i, "E")
            dizial(5, a) = Cells(i, "F")
            dizial(6, a) = Format(Cells(i, "G"), "DD.MM.YYYY")
            dizial(7, a) = Cells(i, "H")
           
        End If
    Next i
        ListBox1.Column = dizial
    Erase dizial
    a = Empty
    i = Empty
End Sub

 

[kemal turan]

Textbox aramalarını change olayına bağlarsanız daha iyi olur.

Private Sub TextBox4_Change()
Set S1 = Sheets("İZİN")
Dim a As Long, i As Long
    ReDim dizial(1 To 7, 1 To 1)
    If TextBox4.Text = "" Then Exit Sub
    ListBox1.RowSource = Empty
    UserForm1.ListBox1.Clear
    For i = 2 To S1.Cells(Rows.Count, 1).End(3).Row
        If UCase(Replace(Replace(S1.Cells(i, "E"), "ı", "I"), "i", "İ")) Like _
        "*" & UCase(Replace(Replace(TextBox4.Text, "ı", "I"), "i", "İ")) & "*" Then
            a = a + 1
            ReDim Preserve dizial(1 To 7, 1 To a)
            
            
            dizial(1, a) = Cells(i, "B")
             dizial(2, a) = Cells(i, "C")
            dizial(3, a) = Cells(i, "D")
            dizial(4, a) = Cells(i, "E")
            dizial(5, a) = Cells(i, "F")
            dizial(6, a) = Format(Cells(i, "G"), "DD.MM.YYYY")
            dizial(7, a) = Cells(i, "H")
            
        End If
    Next i
        ListBox1.Column = dizial
    Erase dizial
    a = Empty
    i = Empty
End Sub