listview.. yardımcı olurmusunuz

[by_IsTaNBuL]

ekteki dosyada listviewden sayfaya veri aktardığımızda 4.satırdan başlamasını bi türlü beceremedim. yardıcı olursanız çok sevinicem
şimdiden teşekkürler

 

[by_IsTaNBuL]

revize

listview de ilk satırdaki veri sayfaya 4. satıra aktarılacak ve 4. satırdan devam edecek.

 

[Orion1]

Dim sn
sn = Sheets("DATA3").[a60000].End(3).Row + 1
[B][COLOR="Red"]If sn < 4 Then sn = 4[/COLOR][/B]

ekteki dosyada listviewden sayfaya veri aktardığımızda 4.satırdan başlamasını bi türlü beceremedim. yardıcı olursanız çok sevinicem
şimdiden teşekkürler

 

[by_IsTaNBuL]

çok teşekkür ederim fakat

listviewdede 4.satıra yazıyor. listviewde 1.satıra , sayfada 4.satıra yazması gerekiyor

 

[Orion1]

listviewdede 4.satıra yazıyor. listviewde 1.satıra , sayfada 4.satıra yazması gerekiyor

Onu size bırakmıştım.
Pekala.alttaki kodları uygun yerdeki ile değiştiriniz.

For i = 4 To Sheets("DATA3").Cells(60000, 1).End(3).Row
ListView1.ListItems.Add , , Sheets("DATA3").Cells(i, 1).Value
ListView1.ListItems(i - 3).SubItems(1) = Sheets("DATA3").Cells(i, 2).Value
ListView1.ListItems(i - 3).SubItems(2) = Sheets("DATA3").Cells(i, 3).Value
ListView1.ListItems(i - 3).SubItems(3) = Sheets("DATA3").Cells(i, 4).Value
ListView1.ListItems(i - 3).SubItems(4) = Sheets("DATA3").Cells(i, 5).Value
ListView1.ListItems(i - 3).SubItems(5) = Sheets("DATA3").Cells(i, 6).Value
ListView1.ListItems(i - 3).SubItems(6) = Sheets("DATA3").Cells(i, 7).Value
ListView1.ListItems(i - 3).SubItems(7) = Sheets("DATA3").Cells(i, 8).Value
ListView1.ListItems(i - 3).SubItems(8) = Sheets("DATA3").Cells(i, 9).Value
ListView1.ListItems(i - 3).SubItems(9) = Sheets("DATA3").Cells(i, 10).Value
ListView1.ListItems(i - 3).SubItems(10) = Sheets("DATA3").Cells(i, 11).Value
Next i

 

[by_IsTaNBuL]

elinize sağlık

teşekkür ederim