listwiew de listıtems.count ile görüntülediğim değeri bir çalışma sayfasına sırayla nasıl yazdırabilirim acaba?Örneğin listwiew in 1.satırını a6 dan başlayarak I6 HÜCRESİNE KADAR ,2.satırını A7 DEN I7 YE KADAR.ancak listwiewde 1 ile maksimum 6 satır arasında görüntülenen veri değişiyor.her seferinde kaç satır veri geleceği belli değil.saygılar
Private Sub CommandButton5_Click()
Workbooks.Open ("C:\VERİTABANLARI\VERİTABANI1.xls")
Workbooks("VERİTABANI1.xls").Activate
Dim i As Integer For i = 1 To ListView1.ListItems.Count
Range("A6").EntireRow.Insert
Next i
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Private Sub CommandButton5_Click()
Workbooks.Open ("C:\VERİTABANLARI\VERİTABANI1.xls")
Workbooks("VERİTABANI1.xls").Activate
Dim i As Integer For i = 1 To ListView1.ListItems.Count
Range("A6").EntireRow.Insert
Next i
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Son düzenleme: