listwievde sayfaya kayıt

[MUTLUXXX]

Listwıew de bir tuşla ekrana getirdiğim bilgileri aşağıdaki gibi bir excel dosyası açarak kayıt yapmaya çalışıyorum.listboxtaki gibi yapmaya çalıştım ama hata veriyor.Diğer bir sorun ise her hücreye kayıt işleminden önce sayfayı select komutu ile seçmek gerekiyor yoksa bulunduğum çalışma kitabına kaydediyor.yani en başta select ifadesini kullanırsam sadece ilk hücreyi kaydediyor bazılarınıda bulunduğum sayfaya kaydediyor.daha kolay bir yolu varmıdır acaba?iyi çalışmalar diliyorum.

Private Sub CommandButton3_Click()
Workbooks.Open ("C:\günlük.xls")
Workbooks("günlük.xls").Sheets("sayfa1").Select
Range("a1") = CDate(DTPicker1)
Workbooks("günlük.xls").Sheets("sayfa1").Select
Range("a3") = Listwiew1.List(0, 0)
Workbooks("günlük.xls").Sheets("sayfa1").Select
Range("a4") = Listwiew1.List(0, 1)
End Sub

 

[programer]

Aşağıdaki gibi denermesiniz.

Private Sub CommandButton3_Click()
Workbooks.Open ("C:\günlük.xls")
Set rapor = Sheets("sayfa1")
Range("sayfa1!A1:H5000").ClearContents
With ListView1
For i = 1 To 8
rapor.Cells(1, i) = .ColumnHeaders(i)
Next i
End With
With ListView1
For i = 1 To .ListItems.Count
rapor.Cells(i + 1, 1) = .ListItems(i)
rapor.Cells(i + 1, 2) = .ListItems(i).SubItems(1)
rapor.Cells(i + 1, 3) = .ListItems(i).SubItems(2)
rapor.Cells(i + 1, 4) = .ListItems(i).SubItems(3)
rapor.Cells(i + 1, 5) = .ListItems(i).SubItems(4)
rapor.Cells(i + 1, 6) = .ListItems(i).SubItems(5)
rapor.Cells(i + 1, 7) = .ListItems(i).SubItems(6)
rapor.Cells(i + 1, 8) = .ListItems(i).SubItems(7)


Next i
End With
End Sub

 

[MUTLUXXX]

sayın programer

teşekkür ederim.çok işime yaradı.

 

[programer]

rica ederim kolay gelsin