Sütunlu Listbox.

[senol1979]

Merhabalar. Forumdaki araştırmalar ve yardımlar ile aşağıdaki kodları oluşturmayı başarmıştım. (Bilgilerini paylaşan herkeze teşekkürler.) Şimdi bir değişiklik yapmak istiyorum ama bir türlü beceremedim. Amacım üç ayrı listboxa aldığım verilerin listbox1 e üç sutun halinde gelmesi. Yıldız ile başlayan alanları listbox1 için düzenlemeyi beceremedim. Bildiğim ve bulduğum örnekleri denedim ama sonuç..... Sizlere danışayım dedim.

Kodlarım :

Private Sub UserForm_Initialize()
Dim i, son As Integer
ComboBox2.Clear
ListBox1.Clear
ListBox3.Clear
ListBox4.Clear
Application.ScreenUpdating = False
Workbooks.Open ("\\Data\satis\siparis_Prg\Teklif_VT.xls")
Worksheets("VT").Select
son = WorksheetFunction.CountA(Workbooks("Teklif_VT.xls").Worksheets("VT").Range("J1:J65000")) + 1

For i = 1 To son
If WorksheetFunction.CountIf(Workbooks("Teklif_VT.xls").Worksheets("VT").Range("J1:J" & i), Workbooks("Teklif_VT.xls").Worksheets("VT").Cells(i, 10).Value) = 1 Then
Bul.ComboBox2.AddItem Workbooks("Teklif_VT.xls").Worksheets("VT").Cells(i, 10)
End If
Next i
ListBox1.RowSource = ""
ListBox3.RowSource = ""
ListBox4.RowSource = ""
Workbooks("Teklif_VT.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
-----------------------------------------------------------------
Private Sub ComboBox2_Change()
If ComboBox2.Value = "" Then Exit Sub
ListBox1.Clear
ListBox3.Clear
ListBox4.Clear
Application.ScreenUpdating = False
Sheets("Teklif_Liste").Visible = True
Sheets("Teklif_Liste").Select
Range("E1").Select
Dim sayi As Integer
Dim hucre As Range
sayi = Application.WorksheetFunction.CountA(Worksheets("Teklif_Liste").Range("A1:A65000"))
For Each hucre In Range("E1:E" & sayi)
If ComboBox2.Value = hucre.Value Then
*ListBox1.AddItem (hucre.Offset(0, -4).Value)
*ListBox3.AddItem (hucre.Offset(0, 5).Value)
*ListBox4.AddItem (hucre.Offset(0, 10).Value)

End If
Next
Worksheets("Teklif_Liste").Visible = False
Worksheets("Teklif_Formu").Select
End Sub

Şimdiden teşekkürler.

 

[senol1979]

Bir sonuç?

 

[hamitcan]

ListBox özelliklerinden ColumnCount özelliğine 3 sayısını yazın.

 

[senol1979]

Yaptım ama yinede sonuç alamadım. Listbox.Additem yöntemi ile ilgili bir sıkıntı var sanki. Column değerlerini ekliyorum ama additem den sonra "=" işaretini eklemezsem hata veriyor. Eklersem yine hata veriyor. ????

 

[Orion1]

Yaptım ama yinede sonuç alamadım. Listbox.Additem yöntemi ile ilgili bir sıkıntı var sanki. Column değerlerini ekliyorum ama additem den sonra "=" işaretini eklemezsem hata veriyor. Eklersem yine hata veriyor. ????

add item yöntemi ile en fazla 10 sütun veri alabilirisniz.
vede çok hantaldır add item kodlarınızı rowsource veya dizi yöntemine veri alma yöntemine göre ayarlayın.