seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhaba.Aşağıda yazılı kodu listview1 için nasıl değiştirebiliriz.?Listview'deki verileri Liste sayfasına kaydetmek istiyorum. yalnızca koyu renkli alanı düzenleyemedim. Sheets("Liste").Cells(xrow, sut) = ListView1.ListItems(satir).ListSubItems(sut -1) şeklinde yazdım ama olmadı.
For satir = 1 To ListView1.ListItems.Count
For sut = 1 To 7
Sheets("Liste").Cells(xrow, sut) = ListBox3.list(satir, sut - 1)
next
next
For satir = 1 To ListView1.ListItems.Count
For sut = 1 To 7
Sheets("Liste").Cells(xrow, sut) = ListBox3.list(satir, sut - 1)
next
next
Son düzenleme: