Listwiev'e veri alırken ilk 2 satırı dikkate almasın

[programer]

Arkadaşlar herkese iyi akşamlar. Listwiev'e sayfadan veri alırken ilk 2 satırı dikkate almamasını istiyorum yani verileri 3 satırdan başlayrak almak istiyorum. Bunu forumda araştırdım ama bir sonuca ulaşamadım ekteki dosyada örnek var.

 

[Zeki Gürsoy]

Merhaba,

Döngüyü aşağıdaki gibi değiştirin...

For i = 3 To Cells(65536, "A").End(xlUp).Row
s = s + 1
ListView1.ListItems.Add , , Cells(i, "A").Value
ListView1.ListItems(s).SubItems(1) = Cells(i, "B").Value
ListView1.ListItems(s).SubItems(2) = Cells(i, "C").Value
ListView1.ListItems(s).SubItems(3) = Cells(i, "D").Value
Next i

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Private Sub UserForm_Initialize()
Dim list(), i As Long
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
With ListView1.ColumnHeaders
.Add , , "S.N", 25
.Add , , "Adı", 80, lvwColumnCenter
.Add , , "Soyadı", 80, lvwColumnCenter
.Add , , "Rütbe", 45, lvwColumnCenter
End With
If Sheets("USERS").Cells(65536, "B").End(xlUp).Row < 3 Then Exit Sub
list = Sheets("USERS").Range("A3:D" & Sheets("USERS").Cells(65536, "A").End(xlUp).Row).Value
For i = 1 To UBound(list, 1)
ListView1.ListItems.Add , , list(i, 1)
ListView1.ListItems(i).SubItems(1) = list(i, 2)
ListView1.ListItems(i).SubItems(2) = list(i, 3)
ListView1.ListItems(i).SubItems(3) = list(i, 4)
Next i

End Sub

 

[programer]

Sayın zeki bey ve evren bey yardımlarınız için çok teşekkür ederim.

 

[Orion1]

Sayın zeki bey ve evren bey yardımlarınız için çok teşekkür ederim.

Rica ederim.
Not:Ayrıca İmzan çok hoşuma gitti.