Listbox'a veri aktarmak

[mesudiye_052]

Selamlar

Sayfa 1.de A2:G20 arası hücrede veri var
A hücresinde isimler var
ben listbox'a A sutunuda gürsel yazanları aktarmak istiyorum
örnek
A5 ve A10 'da gürsel varsayalım

A5:G5 ve A10:G10 hücrelerini listbox'a aktarım nasıl yaparız



Saygılar;

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Option Compare Text
 
Private Sub UserForm_Initialize()
 
Dim c As Range, sat As Long, ilkadres As Variant, j As Integer
 
With ListBox1
    .ColumnCount = 7
    .ColumnWidths = "50;50;50;50;50;50;50"
    With Range("A:A")
        Set c = .Find("gürsel", LookIn:=xlValues)
        If Not c Is Nothing Then
            ilkadres = c.Address
            Do
                For j = 0 To 6
                    ListBox1.AddItem
                    ListBox1.List(sat, j) = Cells(c.Row, j + 1)
                Next j
                sat = sat + 1
 
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> ilkadres
        End If
    End With
End With
 
End Sub

.

 

[mesudiye_052]

Selamlar;

Sayın Ömer

çok teşekkür ederim