جمع آوری اطلاعات از چند شیت و از چند فایل مجزا

[mokaram]

با سلام خدمت دوستان و اساتید گرامی

یه فایل بین کاربران مختلف ارسال میشه و وقتی که شیت های مختلف اون فایل توسط کاربران پر میشه مجدد برگردونده میشه یعنی تو این حالت ما هشت فایل مجزا داریم حالا می خواهیم که اطلاعات هر شیت بیاد یه جا تو یه شیت زیر هم قرار بگیره همه فایل ها شیت های یکسانی دارن چطوری میشه این کار را کرد فایل نمونه به پیوست تقدیم میشه

[khakzad]

سلام
شما که استادین
یعنی نمی خواید کد بنویسید؟

[mokaram]

سلام
شما که استادین
یعنی نمی خواید کد بنویسید؟

شما محبت دارید سرکار خانم داریم درس پس می دیم
راستش با کد نویسی می خوام انجام بشه ولی هر چی فکر می کنم فکرم نمیاد شرمنده دیگه

[khakzad]

اختیار دارین
خب با کپی کردن محدوده وو پیا کردن اخرین سل پر و پیست کردن در اون منطقه حل میشه
فقط یک حلقه for لازم دارید برای حرکت بین شیت ها
حتی می توننید ماکرو ضبط کنید برای کپی و انتخاب محدوده.با استفاده از ابزار go to /special منطقه پیوسته داده رو انتخاب کنید و .. . .

[ali.b]

سلام
این کد اطلاعات رو به هر شیتی که هم نام با محتوای سلول g3 باشه انتقال میده

Sub sabt()Dim c As Range
For i = 1 To Sheets.Count
    For Each c In Sheet1.Range("G3")
        If c.Value = Sheets(i).Name Then
    Range("A3:F3").Select
    Selection.Copy
    Sheets(i).Activate
    Range("B3").Select
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
     Range("A3").Select
     ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[1]),"""",COUNTA(R3C2:RC[1]))"
    Range("A3").Select
    Selection.AutoFill Destination:=Range("A3:A22"), Type:=xlFillDefault
    Range("A3:A22").Select
    Range("A3").Select
    Range("A3:G3").Locked = True
    Sheets("ËÈÊ").Select
    Range("A3:G3").Select
Selection.ClearContents
Range("A3").Select
        End If
    Next c
Next i


End Sub

[Javid Mokhtari]

با سلام خدمت دوستان و اساتید گرامی

یه فایل بین کاربران مختلف ارسال میشه و وقتی که شیت های مختلف اون فایل توسط کاربران پر میشه مجدد برگردونده میشه یعنی تو این حالت ما هشت فایل مجزا داریم حالا می خواهیم که اطلاعات هر شیت بیاد یه جا تو یه شیت زیر هم قرار بگیره همه فایل ها شیت های یکسانی دارن چطوری میشه این کار را کرد فایل نمونه به پیوست تقدیم میشه

با سلام.
نحوه کار فایل:
1- ابتدا شما فایلی اصلی رو که می خواهید اطلاعات سایر فایل ها در آن جمع آوری شود را باز کنید.
2- حال تمام فایل هایی رو که می خواهید اطلاعات از آنها گرفته شود را باز کنید(همه فایل هارو انتخاب و یک بار کلید Enter را بزنید).
3- دوباره فایل اصلی تون رو باز یک CommandButton ایجاد کرده و کد زیر رو بهش تخصیص بدین:

Application.ScreenUpdating = False
Dim nm1 As String
nm1 = Application.ActiveWindow.Caption
a:
Application.Windows(2).Activate
    For j = 1 To Application.Windows(2).Application.Sheets.Count
        Sheets(j).Activate
        ActiveSheet.Range("a2:f20").Copy
        Application.Windows(nm1).Activate
        ActiveSheet.Range("a1000000").End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
        Application.Windows(2).Activate
    Next j
    Application.Windows(nm1).Activate
Range("a1").Select
Application.DisplayAlerts = False
Application.Windows(2).Close
If Application.Windows.Count > 1 Then
    GoTo a:
Else
    Exit Sub
End If
Application.ScreenUpdating = True 

البته من برای محدوده a2:f20 این کار رو انجام دادم که خودتون می تونید محدوده رو پویاش کنید.

[abdollahi]

جمع اوری شرطی اطلاعات از چند sheet

سلام و خسته نباشید.
من یک فایل اکسل دارم که دوازده sheet دارد و هر sheet دارای جداول یکسان با dataهای متفاوت است.من میخوام در sheet آخر گزارشی بگیرم به این صورت که:
اگر مثلا درsheet یک و ردیف یک آن ستون C خالی بود برای من در sheet آخر ستونهای A,B,G را چاپ کند .
بعد از چند روز جست و جو متوجه شدم از طریق ماکرو امکان پذیر است
اینکار امکان پذیره هست و یا امکان راهنمایی و کمکی از جانب شما میباشد؟

با تشکر

[Ali Parsaei]

سلام و خسته نباشید.
من یک فایل اکسل دارم که دوازده sheet دارد و هر sheet دارای جداول یکسان با dataهای متفاوت است.من میخوام در sheet آخر گزارشی بگیرم به این صورت که:
اگر مثلا درsheet یک و ردیف یک آن ستون c خالی بود برای من در sheet آخر ستونهای a,b,g را چاپ کند .
بعد از چند روز جست و جو متوجه شدم از طریق ماکرو امکان پذیر است
اینکار امکان پذیره هست و یا امکان راهنمایی و کمکی از جانب شما میباشد؟

با تشکر

سلام،
يعني دقيقا" اگر سل c1 شيت يک خالي بود ستونهاي a , b ,g شيت آخر چاپ شود؟
يا اينکه شيت يک را به عنوان مثال فرموده ايد؟
يعني يک شيت فرضي بين شيتها را انتخاب کنيد و اگر سل c1 آن خالي بود عمليات ياد شده انجام گردد؟
يا ....
بيشتر توضيح دهيد،
اگر نمونه فايل هم بتوانيد ضميمه کنيد بهتر مي شود منظورتان را فهميد.
موفق باشيد.

[Javid Mokhtari]

سلام و خسته نباشید.
من یک فایل اکسل دارم که دوازده sheet دارد و هر sheet دارای جداول یکسان با dataهای متفاوت است.من میخوام در sheet آخر گزارشی بگیرم به این صورت که:
اگر مثلا درsheet یک و ردیف یک آن ستون C خالی بود برای من در sheet آخر ستونهای A,B,G را چاپ کند .
بعد از چند روز جست و جو متوجه شدم از طریق ماکرو امکان پذیر است
اینکار امکان پذیره هست و یا امکان راهنمایی و کمکی از جانب شما میباشد؟

با تشکر

با سلام.
چرا نشه برادر.
اما به شرط اینکه به سوالای آقای پارسا توضیح دقیق بدین.
با تشکر