Listbox sütunlara ayrı alanlardan veri görüntüleme

[feryat]

Dim bak As Range
For Each bak In Range("AB1:AB" & WorksheetFunction.CountA(Range("AB1:Ab65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select

For k = 1 To ListBox1.ListCount
ListBox1.AddItem
ListBox1.Column(0, k) = (ActiveCell.Offset(0, -1).Value)
ListBox1.Column(1, k) = (ActiveCell.Offset(0, 1).Value)
ListBox1.Column(2, k) = (ActiveCell.Offset(0, 4).Value)
ListBox1.Column(3, k) = (ActiveCell.Offset(0, 84).Value)
Next k
'yukarıdaki kod çalışmıyor. bu verileri tek bir listboxta farklı sütunlarda görüntüleyemiyorum


'aşağıdaki kodlar çalışıyor. ayrı ayrı listboxta veri görüntüleyebiliyorum.
ListBox2.AddItem (ActiveCell.Offset(0, -1).Value)
ListBox3.AddItem (ActiveCell.Offset(0, 1).Value)
ListBox4.AddItem (ActiveCell.Offset(0, 4).Value)
ListBox5.AddItem (ActiveCell.Offset(0, 84).Value)

End If
Next bak

 

[Orion1]

Userformun initialize olayına aşağıdaki kodu yazınız.
Bu durumda ilk yazdığınız kodlama bloğu çalışcaktır.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
End Sub

 

[feryat]

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
End Sub

zaten yazılı.

ListBox1.Column(0, k) = (ActiveCell.Offset(0, -1).Value)
ListBox1.Column(1, k) = (ActiveCell.Offset(0, 1).Value)
ListBox1.Column(2, k) = (ActiveCell.Offset(0, 4).Value)
ListBox1.Column(3, k) = (ActiveCell.Offset(0, 84).Value)

kodunda k yerine 0-1-2 gibi sayılar yazdığımda kod yine çalışıyor ama k gibi bir değişken atadığımda çalışmıyor.

 

[Orion1]

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
End Sub

zaten yazılı.

ListBox1.Column(0, k) = (ActiveCell.Offset(0, -1).Value)
ListBox1.Column(1, k) = (ActiveCell.Offset(0, 1).Value)
ListBox1.Column(2, k) = (ActiveCell.Offset(0, 4).Value)
ListBox1.Column(3, k) = (ActiveCell.Offset(0, 84).Value)

kodunda k yerine 0-1-2 gibi sayılar yazdığımda kod yine çalışıyor ama k gibi bir değişken atadığımda çalışmıyor.

aşağıdaki gibi deneyiniz.

ListBox1.Column(0, k-1) = (ActiveCell.Offset(0, -1).Value)

 

[feryat]

ListBox1.Column(0, k-1) = (ActiveCell.Offset(0, -1).Value)

İlginize teşekkür ediyorum ancak malesef işe yaramadı.

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Dim bak As Range,sat as long
        For Each bak In Range("AB1:AB" & WorksheetFunction.CountA(Range("AB1:Ab65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
            bak.Select
    
    ListBox1.AddItem
            ListBox1.Column(0, sat) = (ActiveCell.Offset(0, -1).Value)
            ListBox1.Column(1, sat) = (ActiveCell.Offset(0, 1).Value)
            ListBox1.Column(2, sat) = (ActiveCell.Offset(0, 4).Value)
            ListBox1.Column(3, sat) = (ActiveCell.Offset(0, 84).Value)

   sat=sat+1
end if
next bak

 

[feryat]

Dim bak As Range,sat as long
For Each bak In Range("AB1:AB" & WorksheetFunction.CountA(Range("AB1:Ab65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select

ListBox1.AddItem
ListBox1.Column(0, sat) = (ActiveCell.Offset(0, -1).Value)
ListBox1.Column(1, sat) = (ActiveCell.Offset(0, 1).Value)
ListBox1.Column(2, sat) = (ActiveCell.Offset(0, 4).Value)
ListBox1.Column(3, sat) = (ActiveCell.Offset(0, 84).Value)

sat=sat+1
end if
next bak

Kod çalışıyor. Çok teşekkür ederim.