ListBox'a Metinden veri almak

[ragnorak]

"14.11.2019 08:00 PROJE AŞAMASINDA|23.11.2019 13:20 ÜRETİME GÖNDERİLDİ|25.11.2019 08:50 KESİM YAPILIYOR|25.11.2019 10:30 KESİM BİTTİ|25.11.2019 10:30 KENARBANDI YAPILIYOR|25.11.2019 13:30 KENARBANDI BİTTİ|26.11.2019 08:10 CNC İŞLEMİNDE|28.11.2019 16:00 URETIM MONTAJI YAPILIYOR|29.11.2019 11:30 TESLİM EDİLDİ" şeklinde bir metni Listbox'a Tarih, Saat ve metin kısmı ayrılmış olarak almak istiyorum. Tarih, Saat ve Metin arasında 3'er karakterlik bir boşluk var. Listbox'ta diğer satıra geçmesini istediğim kısım "|" işareti ile ayırdım.

 a = Split(textbox1.Value, "|")
    For tt = 0 To UBound(a)
    
    b = Split(a(tt), "   ")
    For j = 0 To UBound(b)
    
    With ListBox1
    .ColumnCount = 3
    .ColumnWidths = "55;150;200"
    .AddItem
    .LIST(tt, j ) = b(j)
    End With
    
    Next
    Next

Kendim bu şekilde oluşturdum ama listenin altında boş satırlar kalıyor!

 

[EmrExcel16]

Merhaba aşağıdaki gibi deneyiniz.

Private Sub CommandButton1_Click()
a = Split(TextBox1.Value, "|")
    For tt = 0 To UBound(a)  
        b = Split(a(tt), "   ")
        ListBox1.AddItem
        For j = 0 To UBound(b)
            With ListBox1
                .ColumnCount = 4
                .ColumnWidths = "55;35;250;200"
                .List(tt, j) = b(j)
            End With  
        Next
    Next
End Sub