تهیه گزاش کلی از چند فایل اکسل در یک فایل جداگانه اکسل

[alikhiri1365]

با سلام
یک سوال داشتم من چند تا فایل اکسل دارم میخوام محتویات این فایلها در یک فایل بنام گزارش رسید انبار بطور خودکار درج بشه مثلا من چند تا فایل اکسلی از 1 تا 100 دارم که همگی شامل ستون هایی مثل شرح کالا - تعداد -واحد و ... هست که میخوام در یک فایل جداگانه بنام گزارش رسید انبار با همون ستون ها که ساخته شده ثبت شه و بصورت خودکار هر سندی که میسازیم محتویاتش در گزارش بیاد مثلا اگه سند 101 ایجاد شد در گزارش رسید انبار آپدیت شه....دوستان لطفا راهنمایی کنید ....با تشکر

[iranweld]

با سلام
به جواب رسیدید که تیگ حل شده است رو زدید؟

[alikhiri1365]

با سلام

یک سوال داشتم من چند تا فایل اکسل دارم میخوام محتویات این فایلها در یک فایل بنام گزارش رسید انبار بطور خودکار درج بشه مثلا من چند تا فایل اکسلی از 242و 241دارم که همگی شامل ستون هایی مثل شرح کالا - تعداد -واحد و ... هست که میخوام در یک فایل جداگانه بنام گزارش رسید انبار با همون ستون ها که ساخته شده ثبت شه و بصورت خودکار هر سندی که میسازیم محتویاتش در گزارش بیاد مثلا اگه سند 244ایجاد شد در گزارش رسید انبار بیاد ...دوستان لطفا راهنمایی کنید

[iranweld]

با سلام

در فایل پیوست با استفاده از vb تا حدودی انجام شد.

Sub CreateSheet()
    
    

'======================================
Dim ws As Worksheet
Dim t As Integer
    Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = Sheets("form").Range("g3").Value
    t = ws.Name
        ActiveSheet.DisplayRightToLeft = True
    Sheets("form").Range("g3").Value = Sheets("form").Range("g3").Value + 1
    Sheets("form").Select
    Range("C6").Select
    
'================================================


Sheets("form").Range("A1").Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name

   

  Cells.Select
    Selection.Copy
    Range("A1").Select
       Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    
       
    ActiveSheet.Paste
    Range("A1").Select
    Range("g3").Value = Sheets("form").Range("g3").Value - 1
    
End Sub