Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Arkadaşlar listview e sayfadan veriler aldırıyorum bu verileri farklı bir sayfadaki verilerin sonuna ekletmek istiyorum ( yani son dolusatırdan itibaren)......
Private Sub CommandButton1_Click()
yer = "Buraya sayfanın adı yazılacak"
sat = Worksheets(yer).[a65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count + 1
Sheets(yer).Cells(sat, 1).Value = ListView1.ListItems(r)
On Error Resume Next
For i = 0 To ListView1.ColumnHeaders.Count - 1
Sheets(yer).Cells(sat, i + 1).Value = ListView1.ListItems(r).ListSubItems(i).Text
Next i
sat = sat + 1
Next r
MsgBox "işlem tamam"
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.
