sayfadan sayfaya toplu veri aktarma

[mttari]

Merhabalar,

sayfa1 de 5 sütunlu ve 500 satırlı bir veriyi sayfa2 ye makro yardımıyla toplu aktarmak istiyorum, sonraki gün de aynı işlemi tekrar yaptığımda sayfa1 deki verileri sayfa2 de 501 inci satırdan itibaren veri aktarımı yapacak bu konuda bana yardımcı olabilirmisiniz?

birde bununun haricinde excelde bir veriye ait değerleri internet sayfasından çekebiliyormuyuz? örnek; herhangi bir hisse senedine ait değerleri...

Şimdiden teşekkürler
Mehmet Tari

 

[Saban Sertkaya]

Hangi sütunlar, hangi satırdan başlayarak kopyalanacak ve sayfa2 de hangi satırdan itibaren yapıştırılacak. Sorulan tarih her bir satırın yanına tek tek yazdırılacak mı ? vb...

Sorunuzu örnek bir dosya ile destekleyin. Aksi takdirde bu belirsizliklerden dolayı konu uzayacaktır.

 

[tulpar59]

yer = ComboBox2.Text
If yer = "" Then
MsgBox "aktarılacak sayfa seçimini yapmadınız"
Exit Sub
End If
yer1 = ComboBox1.Text
sat2 = 0
Sheets(yer).Cells(1, 1).Value = Sheets(yer1).Cells(1, 1).Value
For n = 2 To Val(ListView1.ColumnHeaders.Count)
Sheets(yer).Cells(1, n).Value = Sheets(yer1).Cells(1, n + sat2).Value
Next
sat1 = Worksheets(yer).[b65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count
For i = 0 To ListView1.ColumnHeaders.Count
On Error Resume Next
Sheets(yer).Cells(sat1, i).Value = ListView1.ListItems(r).ListSubItems(i).Text
Next i
sat1 = sat1 + 1
Next r
Sheets(ComboBox2.Value).Select
Columns.EntireColumn.AutoFit
MsgBox "Verller sayfaya aktarıldı"

Kodları çalışmanıza uyarlayın.

 

[mttari]

ekli dosyada sayfa3 A3, H409 arası tüm değerleri yine aynı formatta sayfa6 içindeki değişkenlerin altına değerleri getirmek istiyorum.

ertrsi gün aynı işlemi tekrar yaptığımda sayfa3 teki yine A3, H409 arası verileri sayfa6 da 410 ncu satırdan itibaren veri atacak.

Teşekkürler

 

[mttari]

yer = ComboBox2.Text
If yer = "" Then
MsgBox "aktarılacak sayfa seçimini yapmadınız"
Exit Sub
End If
yer1 = ComboBox1.Text
sat2 = 0
Sheets(yer).Cells(1, 1).Value = Sheets(yer1).Cells(1, 1).Value
For n = 2 To Val(ListView1.ColumnHeaders.Count)
Sheets(yer).Cells(1, n).Value = Sheets(yer1).Cells(1, n + sat2).Value
Next
sat1 = Worksheets(yer).[b65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count
For i = 0 To ListView1.ColumnHeaders.Count
On Error Resume Next
Sheets(yer).Cells(sat1, i).Value = ListView1.ListItems(r).ListSubItems(i).Text
Next i
sat1 = sat1 + 1
Next r
Sheets(ComboBox2.Value).Select
Columns.EntireColumn.AutoFit
MsgBox "Verller sayfaya aktarıldı"

Kodları çalışmanıza uyarlayın.

ekli dosyada sayfa3 A3, H409 arası tüm değerleri yine aynı formatta sayfa6 içindeki değişkenlerin altına değerleri getirmek istiyorum.

ertrsi gün aynı işlemi tekrar yaptığımda sayfa3 teki yine A3, H409 arası verileri sayfa6 da 410 ncu satırdan itibaren veri atacak. bunun üzerinden yardımcı olabilirmisiniz

Teşekkürler

 

[mttari]

eklediğim örnek dosya ve istediklerim ile ilgili yardımcı olabilecekmisiniz?

 

[Saban Sertkaya]

Altın üye olmadığımızdan dosyanızı göremiyor ve yardımcı olup olamayacağım konusunda da birşey söyleyemiyorum. Dilerim diğer üyelerden yardım alırsınız. Kolay gelsin...