- Katılım
- 12 Nisan 2012
- Mesajlar
- 533
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
Merhaba.Aşağıdaki kodlarda Listbox3 yerine Listview1 kullandığımızda kodu nasıl düzenleriz.? Yardımcı olursanız sevinirim.
For bak = 0 To ListBox3.ListCount - 1
If ListBox3.List(bak, 1) = ListBox1.List(ListBox1.ListIndex, 0) Then
ve
xrow = IIf(xrow = 0, Sheets("Liste").Cells(Rows.Count, "B").End(3).Row + 1, xrow)
For sut = 1 To 7
Sheets("Liste").Cells(xrow, sut) = ListBox3.List(satir, sut - 1)
Next
For bak = 0 To ListBox3.ListCount - 1
If ListBox3.List(bak, 1) = ListBox1.List(ListBox1.ListIndex, 0) Then
ve
xrow = IIf(xrow = 0, Sheets("Liste").Cells(Rows.Count, "B").End(3).Row + 1, xrow)
For sut = 1 To 7
Sheets("Liste").Cells(xrow, sut) = ListBox3.List(satir, sut - 1)
Next