• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sayfadan sayfaya toplu veri aktarma

  • Konbuyu başlatan Konbuyu başlatan mttari
  • Başlangıç tarihi Başlangıç tarihi
Katılım
19 Kasım 2010
Mesajlar
10
Excel Vers. ve Dili
2007
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
 
Son düzenleme:
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.
 
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.

Teşekkürler
 

Ekli dosyalar

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
 

Ekli dosyalar

Son düzenleme:
eklediğim örnek dosya ve istediklerim ile ilgili yardımcı olabilecekmisiniz?
 
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...
 
Geri
Üst