farklı klasörlerden kapalı dosyalardan veri çekmek

[nazifdural]

Merhaba Arkadaşlar,
Bir 04-NİSAN ANA RAPOR tablom var.Bu tablo ANA RAPOR klasöründe bulunuyor.
Bir diğer tablom 04-GENEL MUDURLUK NISAN PUANTAJ tablosu.Bu tablom GENEL MUDURLUK adlı klasörde bulunuyor.
Yapmak istediğim 04-GENEL MUDURLUK NISAN PUANTAJ tablosunda yeşile boyadığım(C4:AG4) alanındaki verileri,ANA RAPOR tablomdaki (C6:AG6) alanına getirmeye çalışıyorum.
04-GENEL MUDURLUK NISAN PUANTAJ tablosu kapalı dosyadır.
04-NİSAN ANA RAPOR tablosu açık dosyadır.

Aynı şekilde kapalı 11 adet daha farklı klasörlerde olan PUANTAJ tablosu daha var.Bunlardan aynı şekilde aynı yerlerden veri aldırmam lazım.
Yardımcı olursanız çok sevinirim.

 

[Orion1]

Dosyanız ektedir.
Genel müdürlük için yaptım.Diğerlerinide siz yaparsınız,bakarak.

Sub kapali_aktar59()
Dim k As Integer
For k = 3 To 33
    Cells(6, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\GENEL MUDURLUK\[04-GENEL MUDURLUK NISAN PUANTAJ.xlsx]RAPOR'!R4C" & k)
Next
MsgBox "İşlem Tamamdır." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName
End Sub

 

[nazifdural]

Üstadım çok teşekkürler.Elinize sağlık..