İki sütunlu Listboxa iki kaynak

[abinden]

Öncelikle saygılar.

Problem şu: İki sütunlu bir listbox'umvar ve Sütünlardan ikincisine A1:A100 arası veriler girilirken ilkine ise bu hücrelerde kullanılan karakter sayısının atanmasını nasıl yapabilirim?

 

[abinden]

Eklemeyi unuttum. A1:A100 kaynak olarakbelirtilecek AddItem çok yavaş çalışıyor ve kaynakbelirterek yapılabilecek bir durumvarsa öğrenmekisterim

 

[Ferhat Pazarçevirdi]

Listbox'ı doldurma kodu şu şekilde olabilir. Bu prosedürü, ister bir Commandbuttona bağlayın isterseniz UserFormun herhangi bir olayında çağırın.

Sub ListBox_Doldur()
    Dim arrVeri(1 To 2, 1 To 100)
    Dim i As Integer
    
    For i = 1 To 100
        arrVeri(1, i) = Len(Cells(i, 1))
        arrVeri(2, i) = Cells(i, 1)
    Next i
    
    With ListBox1
        .ColumnCount = 2
        .Column = arrVeri
    End With
    
    Erase arrVeri
End Sub