Klasör içinde farklı excellerden değer çekme

[kaplanemre]

Merhaba arkadaşlar ;

Ben bir klasör içerisinde bulunan isimleri farklı 50-60 adet excel sayfasından, tek bir excel sayfasına toplamlarını düşeyara ile her bir sütun için tek tek dosya isimlerini değiştirerek değerleri çekmekteyim. Sizden ricam bu işin kolay yolu var mı ? makro vs. şimdiden teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Forumda klasör+excel ifadesi ile arama yapınız.

 

[kaplanemre]

teşekkürler

 

[kaplanemre]

Korhan Bey aramalarım sonucu bir değişiklik yapamadım hala aynı yerimde saymaktayım. Bu konu da yardımcı olabilecekler var ise dosya ekte teşekkür ederim.

 

[kaplanemre]

Günceldir.

 

[Erdem Akdemir]

ADO yada ExecuteExcel4Macro konularını araştırın.

 

[f4tih]

bu konu benim de başımın belası excel formüller üzerinden çalışıyorum vba bilgim hiç yok. İnşallah güzel bir fikir çıkar da ben de kurtulurum

 

[berkem13]

Hocam, yapılmak isteneni tam olarak anlamadım ama ben kendim için her carinin dosyasına girip devir tutarını kopyalamak için şöyle bir kod yazmıştım umarım yardımcı olur.

Sub DevirKopyalama()

Dim FolderPath As String
Dim File As String

FolderPath = "C:\Users\SMMM BERKE\Desktop\Excel\" 'Excel Dosyalarının olduğu klasör.

File = Dir(FolderPath)


Do While File <> ""

    Workbooks.Open FolderPath & File
    'kopyalanacak verinin olduğu sayfa ve hücreler
    worksheets("GİRİŞ").Range("A7:I7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Application.DisplayAlerts = False ''Dosyayı kaydetmeden çıkması için gerekli kod.
    ActiveWorkbook.Close
    Application.Goto Reference:="R6000C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.PasteSpecial Format:="Unicode Metin", Link:=False, _
        DisplayAsIcon:=False, NoHTMLFormatting:=True
    ActiveCell.Offset(1, 0).Range("A1").Select
   
File = Dir()

Loop

End Sub