listboxa diziden veri aktarma

[şehiriçi]

Merhaba Arkadaşlar ,
ekteki ki dosyamda uyar dizisine aktardığım verileri listboxa aktarmak istiyorum . sütunlar gerçek dosyamla uyumludur , desteğinizi bekliyorum teşekkürler

 

[Muzaffer Ali]

Merhaba.

ListBox1.List(i, 0) = uyar(i, 0)

Satırını silin yerine aşağıdaki satırı ekleyin.

ListBox1.AddItem uyar(i, 0)

 

[şehiriçi]

muzaffer Ali teşekkür ederim. listbox1.AddItem yerine koyarak dosya da istediğime ulaştım .
Ancak biliyorsunuz excel de istekler bitmiyor ! Mümkünse yeni ilave ettiğim listbox2 ye de Listbox1 deki tüm araçları (listboxın 0,3 ve 7 .sütunlarındaki benzersiz şekilde)listeleyebilirmi sin?

 

[şehiriçi]

Sayın Muzaffer Ali ve Excel dostları ,
3 nolu mesajımdaki dosyam da listbox2 ye , listbox1 deki araçları benzersiz bir şekilde listelemek istediğimi söylemiştim.
ben benzersiz bir şekilde dictionary nesnesine aktarmayı başardım Fakat listbox2 ye dictionarydeki benzersiz bu plakaları listbox2 ye nasıl aktaracağımı bulamadım. Kısacası imdat diyorum .dosyamın son hali

 

[Muzaffer Ali]

Deneyin.

Private Sub UserForm_Initialize()
    Dim sh2 As Worksheet
    Dim dict As Object
    Dim sonOF2 As Integer, x As Integer, k As Integer, sirasi As Integer, i As Integer
    Dim a, enbuyuk
    Dim say As Integer
    
    Set sh2 = Sheets("sehirici2")
    Set dict = CreateObject("scripting.dictionary")
    
    ListBox1.Clear
    ListBox1.ColumnCount = 9
    ListBox1.ColumnWidths = "70;70;30;70;70;30;70;70;30"
    
    sonOF2 = sh2.Cells(Rows.Count, "OF").End(3).Row
    
        ReDim uyar(0 To sonOF2 - 3, 0 To 8)

        For x = 3 To sonOF2
            uyar(x - 3, 0) = sh2.Cells(x, 409) 'Araçlar
            uyar(x - 3, 1) = sh2.Cells(x, 410) 'Toplam İhlal
            uyar(x - 3, 2) = sh2.Cells(x, 411) 'Toplam Tur Sayısı
        
            uyar(x - 3, 3) = sh2.Cells(x, 412) 'Araçlar
            uyar(x - 3, 4) = sh2.Cells(x, 413) 'Toplam İhlal
            uyar(x - 3, 5) = sh2.Cells(x, 414) 'Toplam Tur Sayısı
        
        
            uyar(x - 3, 6) = sh2.Cells(x, 415) 'Araçlar
            uyar(x - 3, 7) = sh2.Cells(x, 416) 'Toplam İhlal
            uyar(x - 3, 8) = sh2.Cells(x, 417) 'Toplam Tur Sayısı
         Next x
    
        
        For i = 0 To sonOF2 - 3
        If uyar(i, 1) >= sh2.Range("PC1") Then
          ListBox1.AddItem
          ListBox1.List(i, 0) = uyar(i, 0)
          ListBox1.List(i, 1) = Format(uyar(i, 1), "hh:mm:ss")
          ListBox1.List(i, 2) = uyar(i, 2)
            
            If Not dict.exists(uyar(i, 0)) Then
                  dict.Add uyar(i, 0), say
                  ListBox2.AddItem uyar(i, 0)
                  say = say + 1
            End If
        End If
        
        
        
        If uyar(i, 4) >= sh2.Range("PC1") Then
          ListBox1.AddItem
          ListBox1.List(i, 3) = uyar(i, 3)
          ListBox1.List(i, 4) = Format(uyar(i, 4), "hh:mm:ss")
          ListBox1.List(i, 5) = uyar(i, 5)
            
            If Not dict.exists(uyar(i, 3)) Then
                  dict.Add uyar(i, 3), say
                  ListBox2.AddItem uyar(i, 3)
                  say = say + 1
            End If
        
        End If
        
        
        
         If uyar(i, 7) >= sh2.Range("PC1") Then
          ListBox1.AddItem
          ListBox1.List(i, 6) = uyar(i, 6)
          ListBox1.List(i, 7) = Format(uyar(i, 7), "hh:mm:ss")
          ListBox1.List(i, 8) = uyar(i, 8)
          
            If Not dict.exists(uyar(i, 6)) Then
                dict.Add uyar(i, 6), say
                ListBox2.AddItem uyar(i, 6)
                say = say + 1
            End If
        End If
        
        Next i
End Sub

 

[şehiriçi]

Teşekkürler Muzaffer Ali