verileri listviewe alma

[Hacı Bayram ÖZKAN]

eekteki örneğimde siteden aldığım kodlarla bir türlü verileri listviewe alamadım buna bakarmısınız? teşekkürler.

 

[mancubus]

bir deneyelim.
(kodlar alıntıdır.)

Private Sub UserForm_Initialize()

    Dim a(), r&, c&, rs&, cs&
    
    a() = Worksheets("KODLAR").Range("A1").CurrentRegion
    rs = UBound(a, 1)
    cs = UBound(a, 2)
    
    With ListView1
        .View = lvwReport
        .Gridlines = True
        .HideColumnHeaders = False
        .FullRowSelect = True
        .ColumnHeaders.Add , , "SIRA NO", 50
        .ColumnHeaders.Add , , "BİRİM", 120
        .ColumnHeaders.Add , , "KOD", 80, lvwColumnCenter
        .ColumnHeaders.Add , , "ESKİ KOD", 50, lvwColumnCenter
        For r = 2 To rs
            With .ListItems.Add(, , a(r, 1))
                For c = 2 To cs
                    .SubItems(c - 1) = a(r, c)
                Next
            End With
        Next
  End With

End Sub

 

[Hacı Bayram ÖZKAN]

teşekkürler sayın mancubus

 

[mancubus]

rica ederim.

 

[Hacı Bayram ÖZKAN]

Sayın hocam sorgulama için TextBox10 veri yazıyorum, buluyor ancak ikinci veri arama için yani TextBox10'nu silince verilerin hepsi Listviewe gelmiyor, nasıl yapılır.

 

[mancubus]

kodlar form'un initialize olayında idi ben de aynı şekilde devam ettim.

formu kapatıp yeniden açmak veya ayrı bir butona bu kodları aktarmak çözüm olabilir.

form'un diğer kodlarına hiç bakmadım açıkçası...

 

[Hacı Bayram ÖZKAN]

Teşekkürler. Dua ile kalın.

 

[mancubus]

bilmukabele