جمع سلول های شیت های مختلف از 5 فایل مختلف همه از یک جنس

[memi]

با سلام
5 فایل اطلاعات 5 ماه مختلف از یک شرکت رو داریم که همه دارای شیت های مختلف و مشابه هستند و تنها مقادیر عددی آنها متفاوت هستند.
چطور میشه یک فایل مجموع ایجاد کرد که مقادیر سلول هاش جمع متناظر همه سلول های مشابه فایل های ماهیانه باشه؟

[rjfri]

با سلام
=[Book2]Sheet1!B3+[Book1]Sheet1!B3
این بعنوان مثال برای دو فایل هست ، سپس دراگ کنید برای سایر سلها

[memi]

با سلام
=[Book2]Sheet1!B3+[Book1]Sheet1!B3
این بعنوان مثال برای دو فایل هست ، سپس دراگ کنید برای سایر سلها

ممنون دوست عزیز این کار رو که کردم... ولی این فقط برای یک شیت هست.. شما در نظر بگیر هر فایل بالای 100 شیت داشته باشه یعنی من 100 بار باید اینکار رو بکنم؟
راهی هست که بشه تعمیم داد به شیت های دیگه؟

[iranweld]

با سلام

پوشه test را در درایو c کپی کنید و فایل دیگر را خارج از آن پوشه اجرا کنید

Option Explicit

Public XX As String

Private Sub CommandButton1_Click()

Dim directory As String, fileName As String, sheet As Worksheet, i As Integer, j As Integer

Application.ScreenUpdating = False

XX = ActiveWorkbook.Name

directory = "c:\test\"

fileName = Dir(directory & "*.xl??")

Do While fileName <> ""
    i = i + 1
    j = 2
    Cells(i, 1) = fileName
        
    Workbooks.Open (directory & fileName)
        
    For Each sheet In Workbooks(fileName).Worksheets
    
        Workbooks(XX).Worksheets(1).Cells(i, j).Value = sheet.Name
        
        j = j + 1
        Workbooks(XX).Worksheets(1).Cells(i, j).Value = sheet.Range("A1")
        j = j + 1
    Next sheet
    
    Workbooks(fileName).Close
    fileName = Dir()
Loop

Application.ScreenUpdating = True

End Sub 

[memi]

با سلام

پوشه test را در درایو c کپی کنید و فایل دیگر را خارج از آن پوشه اجرا کنید

option explicit

public xx as string

private sub commandbutton1_click()

dim directory as string, filename as string, sheet as worksheet, i as integer, j as integer

application.screenupdating = false

xx = activeworkbook.name

directory = "c:\test\"

filename = dir(directory & "*.xl??")

do while filename <> ""
    i = i + 1
    j = 2
    cells(i, 1) = filename
        
    workbooks.open (directory & filename)
        
    for each sheet in workbooks(filename).worksheets
    
        workbooks(xx).worksheets(1).cells(i, j).value = sheet.name
        
        j = j + 1
        workbooks(xx).worksheets(1).cells(i, j).value = sheet.range("a1")
        j = j + 1
    next sheet
    
    workbooks(filename).close
    filename = dir()
loop

application.screenupdating = true

end sub 

ممنون من در واقع میخوام فایل اکسل نهایی جمع سلول های متناظر و شیت متناظرش باشه
فولدر تست خودتون رو فرستادم... من منظورم درست کردن فایل +x هستش
میشه به این صورت؟
[ATTACH]13038[/ATTACH]

[iranweld]

با سلام

فایل اصلاح شد پوشه تست قبلی در درایو c کپی شده و این فایل خارج از پوشه اجرا شود

[memi]

با سلام

فایل اصلاح شد پوشه تست قبلی در درایو c کپی شده و این فایل خارج از پوشه اجرا شود

این ارور رو داده؟ (پیوست)
به خاطر شیت نیم فارسی هست؟

[iranweld]

مسیر پوشه TEST در درایو C میباشد؟

آیا فایل files-in-a-directory را خارج از این پوشه اجرا میکنید؟

مجددا فایل های پیوست را دانلود و فایلهای قبلی را حذف کنید