Belli bir alandaki veriyi diğer dosyaya kopyalamak

[sabun]

Bir klasördeki tüm xls dosyalarının sabit bir alanından verilerini almak için bir macro buldum, biraz değiştirdim. Aşağıudaki makro A satırındaki hücerelere dosya isimlerini, bunların altına da o dosyanın G25 hücresindeki değeri yazıyor.

Ancak ben tek bir hücreyi almayı değil, bir alanı yazdırmak istiyorum. Yani dosya adını yazdığı A1 hücresinin altına, ilgili dosyadan G25:G400 arasındaki veriyi kopyalasın. Sanırım ActiveSheet.Cells değişkeninde düzenleme yapmam gerekli ama nasıl?

Sub VerialC()
Dim VeriDosya
Dim i As Byte
ChDrive ("C")
ChDir ("C:\FirmaAdı")
Dosya = Dir("*.xls")
    While Dosya <> ""
        i = i + 1
        Workbooks.Open Filename:="C:\FirmaAdı\" & Dosya
        Workbooks("test-sutunlar.xls").ActiveSheet.Cells(2, i).Value = _
        Workbooks(Dosya).ActiveSheet.Range("G25").Value
        Workbooks("test-sutunlar.xls").ActiveSheet.Cells(1, i).Value = Dosya
        Workbooks(Dosya).Close
        Dosya = Dir
    Wend
End Sub

 

[Levent Menteşoğlu]

Bu dosyalardaki veriler aynı dosyada nasıl toplanacaktır. Altalta veya yanyana gibi.

 

[sabun]

Merhaba Levent bey,

İlgilendiğiniz için teşekkürler, ancak uzun yol ile macro'yu çalıştırmayı başardım. Verilerin altalta gelmesi gerekiyordu, ben de ActiveSheet için Cells(x, i) = ("hücre") eşitliğini ihtiyacım olan 365 'e kadar tekrar ettirdim. Yani

Workbooks("test-sutunlar.xls").ActiveSheet.Cells(2, i).Value = _
Workbooks(Dosya).ActiveSheet.Range("G25").Value

ile başlayan eşitliği, kitap içinde ayrıca CONCATENATE 'den faydalanarak

Workbooks("test-sutunlar.xls").ActiveSheet.Cells(366, i).Value = _
Workbooks(Dosya).ActiveSheet.Range("G389").Value

'a kadar yazdım. Macro biraz büyüdü gerçi

Excel'de macro öğrenmeye henüz birkaç gün önce başladım, forumlardan faydalanarak öğrenmeye çalışıyorum. Eğer hücrenin hücreye değil de aralığın aralığa kopyalanmasına dair bir eşitlik yazabilirseniz memnun olurum.

 

[Levent Menteşoğlu]

Aralığın aralığa aktarılmasında aşağıdaki gibi bir kodlama kullanabilirsiniz.

sheets("sayfa1").range("a1:g100")=sheets("sayfa2").range("a1:g100").value

Burada dikkat edilmesi gereken nokta aktarılacak veri aralığı ile aktarılan alanın aynı sayıda hücre içermesidir.

veya copy-paste şeklinde bir kodlamada yapılabilir. Bu kodlama veri sayısı çok fazla olduğunda çok daha hızlı çalışır.

sheets("sayfa2").range("a1:g100").copy
sheets("sayfa1").range("a1").pastespecial
application.cutcopymode=false