[حل شده] جمع آوری اطلاعات از چند شیت و نمایش آنها در یک شیت دیگر

[yasemi]

سلام

من سه شیت به نام های 5، 18، 28 دارم که درون همه آن ها اطلاعات ماموریت کارمندها وجود داره، ممکنه در هر کدام از شیت ها یک کارمند چند بار ماموریت داشته باشه مثلا در شیت 5، کارمند با شماره کارمند x چند بار ماموریت رفته باشه که هر ماموریت جداگانه در یک سطر اماده است، برای دیگر شیت ها هم به همین صورت. حالا من میخوام در شیت sum در یک سلولی مثلا A2 شماره کارمندی یک کارمند رو بزنم و بره بگرده در شیت های 5، 18، 28 و اگر سطرهای با این شماره کارمندی پیدا کرد در این شیت کپی کنه. می خوام اطلاعات یک کارمند رو در کل داشته باشم در یک شیت
ممنون

[rahi_feri]

سلام
لطفا فایل نمونه بگذارید

[iranweld]

با سلام

از قابلیت پیوت تیبل با چندین محدوده از شیت های مختلف استفاده کنید.

جهت مطالعه بیشتر

[yasemi]

با سلام

از قابلیت پیوت تیبل با چندین محدوده از شیت های مختلف استفاده کنید.

جهت مطالعه بیشتر

سلام و ممنون
اما نمیخوام جمع اونا در شیت آخر بیاد میخوام سطرها کپی بشن مثلا حسن سه تا سطر داره در مجموع دو شیت او سه تا سطر کپی بشن توی آخرین شیت

[amir_ts]

با سلام
این نمونه کد رو ببینید...
اگر لازم شد تغییرات رو خوتون بدید.

[LEFT]
Sub test()
Dim lr, lr1, i As Integer
Dim ws As Worksheet
Sheets("sum").Range("b2:c100").ClearContents
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "sum" Then
          lr1 = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
             lr = 1
                  For i = 1 To lr1
  
                      If ws.Range("a" & i) = Sheets("sum").Range("a1") Then
                      Sheets("sum").Range("b" & lr) = ws.Range("b" & i)
                      Sheets("sum").Range("c" & lr) = ws.Range("c" & i)
                  End If
            
       lr = Sheets("sum").Cells(Sheets("sum").Rows.Count, "B").End(xlUp).Row + 1
       
    Next i
    
    End If
 
Next ws

End Sub


[/LEFT]