Listbox hl.

[ocamsul]

Listbox hk.

Arkadaşlar ListBox da sadece istenen hücrelerin listelenmesi konusunda örneğe ihtiyacım var yardım edermisiniz?

Örneğin: sadece F2 ile F7 arasını listeleme,
sadece F2 F7, H2 H7, J2 J7 aralıklarını listeleme

 

[Orion1]

Merhaba.
Aşağıdaki kodları Userform'un initialize olayına yazıp denermisiniz.

Private Sub UserForm_Initialize()
Dim i As Byte
ListBox1.ColumnCount = 3
For i = 2 To 7
    ListBox1.AddItem
    ListBox1.Column(0, i - 2) = Cells(i, "J").Value
    ListBox1.Column(1, i - 2) = Cells(i, "H").Value
    ListBox1.Column(2, i - 2) = Cells(i, "J").Value
Next
End Sub

 

[ocamsul]

Sn: Sezar yardımınız için çok teşekkür ederim. sorunum çözüldü. Ancak bu sefer Error 70 uyarısı sıkıntım var userform içerisindeki kodlarım aşağıda bu duruma nasıl bir çare bulurum arkadaşlar.

Private Sub ComboBox1_Change()
If UserForm6.ComboBox1.Text = "06BP910" Then
ListBox1.RowSource = "Sheet1!C$2$2:I$2"
End If
If UserForm6.ComboBox1.Text = "74AY400" Then
ListBox1.RowSource = "Sheet1!C$3$3:I$3"
End If
If UserForm6.ComboBox1.Text = "06YR834" Then
ListBox1.RowSource = "Sheet1!C$4$4:I$4"
End If
If UserForm6.ComboBox1.Text = "TÜMÜ" Then
Call goster
End If
End Sub

Private Sub UserForm_Initialize()
Dim lCounter As Long
For lCounter = 1 To 0
ListBox1.AddItem lCounter
Next lCounter
HookWheel Me, Me.Width, Me.Height, 3

ComboBox1.AddItem "06BP910"
ComboBox1.AddItem "74AY400"
ComboBox1.AddItem "06YR834"
ComboBox1.AddItem "TÜMÜ"
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "75;155;0"
End Sub

Sub goster()
Dim i As Byte
UserForm6.ListBox1.ColumnCount = 4
For i = 2 To 7
UserForm6.ListBox1.AddItem
UserForm6.ListBox1.Column(0, i - 2) = Cells(i, "C").Value
UserForm6.ListBox1.Column(1, i - 2) = Cells(i, "D").Value
UserForm6.ListBox1.Column(3, i - 2) = Cells(i, "I").Value
Next
End Sub

 

[Orion1]

ListBox'tan kaynaklanıyor olabilir.
Listbox'a Verileri Additem metodu ile aldıysanız ,Verileri RowSource metodu ile almayınız.Yine Additem metodu ile alınız.
Yani verileri hangi metodla aldıysanız.O metodla devam ediniz derim ben.
O şekilde denermisiniz?

 

[ocamsul]

arkadaşlara aşağıdaki satırı B2 B10, C2 C10 ve D2 D10 hücreleri arasını nasıl listelerim.

ListBox1.RowSource = "Sheet5!...................."