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?
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?
Kod:
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