Kapalı dosyalardan toplatarak veri almak

[DGNKRKY]

Merhabalar kapalı dosyalardan verileri toplatarak almam lazım. Fakat Makro konusunda yeniyim. Ekte küçük bir örnek hazırladım. Yardımlarınız için şimdiden teşekkürler.

 

[DGNKRKY]

Unutmuşum dosyayı C:\ altında çalıştırmanız gerekli. Teşekkürler.

 

[Orion1]

Rapor dosyası diğer dosyalarla ayni klasörde olmalı.
Dosyanız ektedir.

Option Base 1
Sub VERİLERİ_GÜNCELLE()
Dim list()
Range("A3:C65536").ClearContents
ReDim list(Cells(2, 256).End(xlToLeft).Column)
    Application.ScreenUpdating = False
    Dosya_Yolu = ThisWorkbook.Path
    Set S3 = Workbooks("RAPOR.xls").Sheets("Sayfa3")
    S3.Select
    [A3:J11].ClearContents
    Satır = 3
    Set Klasör = CreateObject("Scripting.FileSystemObject").GetFolder(Dosya_Yolu).Files
    For Each Dosya In Klasör
    If InStr(Dosya.Name, ".xls") > 0 Then
    If Dosya.Name <> "RAPOR.xls" Then
    Workbooks.Open Filename:=Dosya
    Sheets("Sayfa3").Select
    For i = 1 To UBound(list)
    list(i) = list(i) + WorksheetFunction.Sum(Cells(4, i), Cells(65536, i))
    Next
    End If
    End If
    Next
    ThisWorkbook.Activate
    For i = 1 To UBound(list)
        Cells(3, i).Value = list(i)
    Next
    
    Application.ScreenUpdating = True
    MsgBox "Veriler aktarılmıştır.", vbInformation
End Sub '

 

[DGNKRKY]

Öncelikle çok teşekkür ederim Evren Bey. Bilgiler çok yardımcı oldu. Ekte bu kuralları uygulamaya çalıştığım bir tablo var. Aslında amacım kapalı tüm çalışma sayfalarının içinde aynı hücreyi toplamak. Örneğin; tüm çalışma sayfalarının F8 hücresini toplayarak değeri RAPOR.xls içinde B9 hücresine yazdırmak. Sonra tüm çalışma sayfalarının G8 hücresini toplayarak değeri RAPOR.xls içinde B10 hücresine yazdırmak. Aynı işlem tüm veriler toplanarak ilgili hücrelere yazılana kadar devam etmeli. Yardımlarınızı bekliyorum. Saygılarımla,

 

[DGNKRKY]

Bahsettiğim dosya ektedir. Saygılar,

 

[DGNKRKY]

Böyle bi toplama yapmak mümkün değilmi ? Yardımcı olabilecek birisi yok mu?

 

[Korhan Ayhan]

Selamlar,

Forumda excel4 yazarak arama yaparsanız birçok konuyu inceleme fırsatınız olabilir.