Listwiew'de seçimi yazdırma

[Altay3555]

Selamlar,
Listwiew2 de yaptığım seçimleri yazdırırken A sütununu asla yazdıramıyorum.

 

[halit3]

İlgili bölümü aşağıdaki ile değiştirin.

sat = 3
For s = 1 To ListView2.ListItems.Count
If ListView2.ListItems(s).Checked Then
Range("A2") = Label1: Range("B2") = Label2: Range("C2") = Label3: Range("D2") = Label9: Range("E2") = Labe8
S1.Cells(sat, "A") = ListView2.ListItems(s).Text
S1.Cells(sat, "b") = ListView2.ListItems(s).SubItems(1)
S1.Cells(sat, "c") = ListView2.ListItems(s).SubItems(2)
S1.Cells(sat, "d") = ListView2.ListItems(s).SubItems(3)
S1.Cells(sat, "e") = ListView2.ListItems(s).SubItems(4)
sat = sat + 1
End If
Next

 

[Altay3555]

sat = 3
For s = 1 To ListView2.ListItems.CountIf ListView2.ListItems(s).Checked Then
Range("A2") = Label1: Range("B2") = Label2: Range("C2") = Label3: Range("D2") = Label9: Range("E2") = Labe8
S1.Cells(sat, "A") = ListView2.ListItems(s).Text
S1.Cells(sat, "b") = ListView2.ListItems(s).SubItems(1)
S1.Cells(sat, "c") = ListView2.ListItems(s).SubItems(2)
S1.Cells(sat, "d") = ListView2.ListItems(s).SubItems(3)
S1.Cells(sat, "e") = ListView2.ListItems(s).SubItems(4)
sat = sat + 1
End If
Next
Öncelikle Teşekkürler.
Hocam bu bölümde ariza veriyor nedense.

 

[Altay3555]

Hocam Teşekkürler,
Bir kelime daha öğrendik sayenizde.
Emeğinize sağlık.