[حل شده] قرار دادن دکمه ماکرو نوشته شده در یک شیت در شیت دیگر

[jmkhah]

سلام خدمت اساتید
یه مارکرو دارم که برای شیت اول نوشتم ، می خوام دکمش تو شیت دوم بزارم و رانش کنم از چه کدی باید استفاده کنم؟ (دکمه هرجا باشه ماکرو روسلولای همون شیت اجرا می شه . آدرس شیتم که می دم تو کدهام ارور می ده)
ممنون

[Javid Mokhtari]

سلام خدمت اساتید
یه مارکرو دارم که برای شیت اول نوشتم ، می خوام دکمش تو شیت دوم بزارم و رانش کنم از چه کدی باید استفاده کنم؟ (دکمه هرجا باشه ماکرو روسلولای همون شیت اجرا می شه . آدرس شیتم که می دم تو کدهام ارور می ده)
ممنون

با سلام.
یه دکمه قرار بدین و ماکرو رو به اون تخصیص بدین.
ارور هم احتمالا به خاطر ادرس دهی است که برای شیت اول دادین
کدتون رو بذارین ...

[jmkhah]

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

[Javid Mokhtari]

هرجور اجرا کردم اروری نداد.
اما اینو بگم که شما باید تو کدنویسی ترتیب ولد و والد رو رعایت کنید. مشکلی هم که تو کد شماست همین مورد هستش.
یعنی اگر شما در شیت یک قرار دارید و می خواهید محاسبات شیت دو انجام گیرد برای مثال باید بنویسید :

Sheet2.Range("a1").Value+Sheet2.Range("a2").Value 

درغیر اینصورت کد ، ادرس را از شیتی که داخل آن هستید میگیرد.

[jmkhah]

قضیه ولد و والدم رعایت می کنم ارور می ده شما تمام سطرها رو فکر کنم تست نکردین عکسش می ذارم ممنون

[Javid Mokhtari]

لینک مشکل داره ...

[jmkhah]

قضیه ولد و والدم رعایت می کنم ارور می ده شما تمام سطرها رو فکر کنم تست نکردین عکسش می ذارم ممنون

[Javid Mokhtari]

خب برادر تا شما در شیت total هستین که نمیتونین از Project History محدوده انتخاب کنید.
چنین بنویسید:

Sheet11.Activate
Sheet11.Range("w3:w40").Select 

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

Sheet11.Range("w3:w40").Copy 

[jmkhah]

آقا درست شد خیلی ممنون

[aghashahi]

خب برادر تا شما در شیت total هستین که نمیتونین از Project History محدوده انتخاب کنید.
چنین بنویسید:

Sheet11.Activate
Sheet11.Range("w3:w40").Select 

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

Sheet11.Range("w3:w40").Copy 

آقا ممنون کمک بزرگی بود