ساخت فرم گزارش از چند شیت مختلف با vba کد

[60vahidsalehi]

با سلام خدمت اساتید محترم

تو فایل پیوست نمونه ای هست که دارای 4 شیت هست که ساختار شیت 2 و3 و4 کاملا شبیه هم هستند.
سمت چپ شیت های 2 و 3و 4 هفته است
میخواهم در شیت 1 وقتی مثلا هفته 2 را توسط کمبو باکس انتخاب میکنم
اطلاعات هفته دوم از شیت 2 و 3 و4 به صورت زیر هم در شیت 1 قرار بگیرند.

تر جیحا با کد vba

[Ali Parsaei]

سلام،
توسط کدام کمبوبکس انتخاب مي کنيد؟ من در فايلتان کمبوبکس نمي بينم!
من يک کد نوشته ام و فرض کرده ام که مقادير را توسط ليست کشويي با ديتاوليديشن در خانه M1 انتخاب مي کنيد، اگر کمبوبکس داريد M1 در کد را با نام کمبوبکس عوض کنيد:
ضمنا" اين کد مخصوص همين فايل شما است و موقع کد نويسي توجهي به TABLE ها هم نکرده ام (کلي نوشته ام)، طبعا" هر چيزي در فايل تغيير کند بايد کد را هم دستکاري کنيد:

Dim C As Integer
For C = 2 To 4
Sheets(C).Range("A1:A25").AutoFilter Field:=1, Criteria1:=Range("M1").Value
Sheets(C).Range("A1").End(xlDown).Resize(1, 10).Copy
ActiveSheet.Range("A1").Offset(C - 1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next C 

[60vahidsalehi]

تشکر

متشکر از شما استاد عزیز

[iranweld]

با سلام
با کسب اجازه از مهندس پارسا با جدول pivot table شیت گزارشگیری برای سه شیت تهیه گردید