انتقال نسبی

[exceliran]

باعرض سلام....
در یک شیت از اکسلم 30-40 جدول مجزا وجود داره( محدوده جدول 15*9) که بین هر جدول با جدول پایینش 1 ردیف خالیه. میخوام اگر جدول جدیدی خواستم درست کنم، در سلول خالی بین هر 2 جدول که کلیک کردم و دکمه میانبر vba رو زدم جدول جدید رو قرار بده و جداول زیر آن همگی به پایین شیفت کنند...

[khakzad]

سلام دوست عزیز
برای این کار نیازی به کد ندارید
چون کافیه اون محدوده رو کپی کنید. بعد موقعی که کلیک راست کردید واسه paste کردن، insert copied cells رو انتخاب کنید. خودبخود شیفت میشن پایین.(زمانی نمی بره که کد لازم داشته باشه)

اگر حتما می خواید از کد استفاده کنید همین مراحل رو با ماکرو ضبط کنید.یک ویرایش ساده هم انجام بدید براش