اضافه کردن ماکرو به سطر بعدی

[ali_ra]

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

[alfa]

سلام
اینطور که شما میفرمایید این خودش یک پروژه زمان بر است
اما گویا شما خودتون آدرس دهی را بلد هستید
1- آدرس دهی نسبی مثل a1=
2- آدرس دهی مطلق مثل a$1$=

گیر شما در آدرس دهی غلط یا تکراری در ماکروتان هست باید آدرس دهی تان دقت کنید و آدرس درست دهید تا داده ها در جای درست نشان داده شود.



و اگر منظورتان این است که در "سطر جدیدی" داده های کپی شده را بچسباند این خط را به قسمت از فرمولتان اضافه کنید
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
و اگر منظورتان این است که در "ستون دوم" داده های کپی شده را بچسباند این خط را به قسمت از فرمولتان اضافه کنید
Sheets("sheet1").Cells(LastRow, 2).PasteSpecial xlPasteValues
و اگر منظورتان این است که در "ستون سوم" داده های کپی شده را بچسباند این خط را به قسمت از فرمولتان اضافه کنید
Sheets("sheet1").Cells(LastRow, 3).PasteSpecial xlPasteValues

[ali_ra]

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