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

[mokaram]

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

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

[khakzad]

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

[mokaram]

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

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

[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 دارای جداول یکسان با 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 را چاپ کند .
بعد از چند روز جست و جو متوجه شدم از طریق ماکرو امکان پذیر است
اینکار امکان پذیره هست و یا امکان راهنمایی و کمکی از جانب شما میباشد؟

با تشکر



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