[حل شده] کپی اطلاعات از شیت های مختلف در یک شیت

[kia97]

سلام
با چه کدی میشه اطلاعات از چندین شیت مختلف (نه همه شیتها) در یک شیت مشخص کپی کرد؟
مثلا اگر 110 شیت وجود داره میخواهم تنها از 60 تا شیت مورد نظرم اطلاعتش کپی بشه و مثلا در شیت 46 قرار بگیره
با تشکر

[iranweld]

با سلام

اگر با کدنویسی آشنایی دارید فایل پیوست را بررسی بفرمایید

نام شیت های مورد نظر را در sheet1 پشت سر هم وارد نموده و ماکرو را اجرا نمایید .

این کد از هر شیتی محدوده Range("A2:c5").Copy را در شیت data کپی مینماید.

Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To z1

Z2 = Sheets("data").Cells(Sheets("data").Rows.Count, "A").End(xlUp).Row + 1

xx = Range("A" & i)
 
Sheets(xx).Range("A2:c5").Copy Destination:=Sheets("data").Range("A" & Z2)

Next i

Sheets("data").Select

End Sub 

[kia97]

ممنونم از شما
پس با این کدی که شما زحتش کشیدید میشه دستور پرینت برای شبتهای خاصی هم داد.