listbox kullanarak aşağıdaki ekranı tasarladım me.listbox1.additem komutuyla istediğim bilgileri satır satır yazdırdım listboxa.
Private Sub ComboBox2_Change()
Dim a, b, i, rw As Integer
For rw = 4 To ActiveSheet.UsedRange.Rows.Count
If Cells(rw, 4).Value = ComboBox1.Value And Cells(rw, 6).Value = ComboBox2.Value Then
Me.ListBox1.AddItem Cells(rw, 1).Value & " " _
& Cells(rw, 2).Value & " " _
& Cells(rw, 4).Value & " " _
& Cells(rw, 7).Value & " " _
& Cells(rw, 8).Value & " "
End If
Next
End Sub
Amacım bu satırlara tıkladığımda satırı aldığım asıl excel sayfasınaki satır numarasına ulaşmam gerek. Sadece bu satıra girdiğim cells(rw,2) değerini okusam yeterli herşey ikinci sütundaki verilerde gizli ama bir kere listboxa yazdırınca sütun bilgisi felan kalmıyor tabii.
Private Sub ComboBox2_Change()
Dim a, b, i, rw As Integer
For rw = 4 To ActiveSheet.UsedRange.Rows.Count
If Cells(rw, 4).Value = ComboBox1.Value And Cells(rw, 6).Value = ComboBox2.Value Then
Me.ListBox1.AddItem Cells(rw, 1).Value & " " _
& Cells(rw, 2).Value & " " _
& Cells(rw, 4).Value & " " _
& Cells(rw, 7).Value & " " _
& Cells(rw, 8).Value & " "
End If
Next
End Sub
Amacım bu satırlara tıkladığımda satırı aldığım asıl excel sayfasınaki satır numarasına ulaşmam gerek. Sadece bu satıra girdiğim cells(rw,2) değerini okusam yeterli herşey ikinci sütundaki verilerde gizli ama bir kere listboxa yazdırınca sütun bilgisi felan kalmıyor tabii.