Çözüldü listview ilk sütundaki veriyi kopyalama

Merhabalar listviewin ilk stünunu sayfaya aktaramadım kodlarım alttaki gibidir teşekkürler.




Private Sub CommandButton1_Click()
Dim L As ListItem


Set s1 = ThisWorkbook.Worksheets("iade")
s = s1.Cells(Rows.Count, 1).End(3).Row + 1
Set L = UserForm1.ListView1.SelectedItem
On Error Resume Next

s1.Cells(s, 1) = L.SubItems(0) <---------------------- bunu ben ekledim çalışmadı
s1.Cells(s, 1).NumberFormat = "dd.mm.yyyy" <---------------------- bunuda ben ekledim
s1.Cells(s, 2) = CDate(Me.TextBox2.Text)
s1.Cells(s, 2).NumberFormat = "dd.mm.yyyy"
s1.Cells(s, 3) = L.SubItems(1)
s1.Cells(s, 4) = L.SubItems(2)
s1.Cells(s, 5) = L.SubItems(3)
s1.Cells(s, 6) = L.SubItems(4)
s1.Cells(s, 7) = L.SubItems(5)
s1.Cells(s, 8) = L.SubItems(6)
s1.Cells(s, 9) = L.SubItems(7)
s1.Cells(s, 10) = Me.TextBox1.Value
Next
Beep
MsgBox "BİZİM HESAPTAN FATURAYI İPTAL ETMEYİ UNUTMA!!!", vbCritical, "DİKKAT!!! ÇOK ÖNEMLİ"

Unload Me
End Sub