[حل شده] کمک برای ساخت ماکرو جهت کپی-پبست مقادیر در محدوده ی دلخواه انتخاب شده

[zaq110]

سلام
فرض کنید چند ردیف نوشته داریم. مثلا از a1 تا h1 به ترتیب مقادیری زیر هم وارد شده
تقاضا دارم کمک کنید ماکرویی بنویسم که اون مقادیر a1:h1 رو در هر جایی از اون شیت که کاربر با موس اون محدوده رو سلکت میکنه، پیست کنه

مثلا کاربر محدوده x16:x24 رو سلکت کنه بعد روی button که ماکرو رو ران میکنه کلیک کنه و مقادیر در اون ناحیه پیست بشن

با تشکر

[hadi1980]

سلام
اولا ايني که مثال زديد چند رديف نيست و چند ستونه (A تا H)
ولي با فرض اينکه منظورتون اين بوده که مثلا از A1 تا A8 به عنوان مرجع کپي استفاده بشوند کافيه اين 3 خط برنامه رو به دکمهتون نسبت بدهيد
اينجوري هر سلولي که فعال باشه وقتي ماکرو ران ميشه (يا اون دکمه زده ميشه) مياد تو سلول فعال و 7 تا زير اون، سلولهاي A1 تا A8 رو کپي ميکنه

Range("A1:A8").Copy
ActiveSheet.Paste
Application.CutCopyMode = False

[zaq110]

سلام
اولا ايني که مثال زديد چند رديف نيست و چند ستونه (A تا H)
ولي با فرض اينکه منظورتون اين بوده که مثلا از A1 تا A8 به عنوان مرجع کپي استفاده بشوند کافيه اين 3 خط برنامه رو به دکمهتون نسبت بدهيد
اينجوري هر سلولي که فعال باشه وقتي ماکرو ران ميشه (يا اون دکمه زده ميشه) مياد تو سلول فعال و 7 تا زير اون، سلولهاي A1 تا A8 رو کپي ميکنه

Range("A1:A8").Copy
ActiveSheet.Paste
Application.CutCopyMode = False

ممنون از شما
ولی الان یه مشکل دیگه دارم
من اون مقادیر ستون ها رو با استفاده از vlookup توی اون سلول ها آوردم
با این ماکرو مقادیر بصورت فرمول در جای سلکت شده اومد
چطوری میشه که فقط بصورت value پیست بشن؟
با تشکر

[hadi1980]

سلامت باشيد
اول اينکه از ضبط ماکرو هميشه استفاده کنيد چون ميتونه راهکار و کد موردنظر رو به شما نشون بده و مثلا من هم براي پيدا کردن جواب شما اينکار را کردم
دوم اينکه براي اينکار لازمه خط وسط رو اصلاح کنيد بصورت paste special يعني اينجوري ميشه

Range("A1:A8").Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False