[حل شده] کمک برای نوشتن فرمول برای دکمه botom

[md14511]

سلام دوستان عزیزم

من یه فایل خدمتتون ضمیمه کردم که شامل چند شیت است( البته این فایل نمونه است و فایل اصلی شیت های بیشتری دارد)

میخوام تو شیت "کد 2" یک دکمه botom بزارم که هر وقت این دکمه را کلیک کنم عدد cell B1 را از شیت "کد2" بخواند و در CELL A1 تو شیت "صفحه اصلی" قرار دهد.

این را فقط برای یک شیت نمیخوام ، یک شیت را نمونه گذاشتم .

میخوام برای همه شیت های دیگر هم این دکمه را قرار دهم.

ممنون

[Amir Ghasemiyan]

سلام دوستان عزیزم

من یه فایل خدمتتون ضمیمه کردم که شامل چند شیت است( البته این فایل نمونه است و فایل اصلی شیت های بیشتری دارد)

میخوام تو شیت "کد 2" یک دکمه botom بزارم که هر وقت این دکمه را کلیک کنم عدد cell B1 را از شیت "کد2" بخواند و در CELL A1 تو شیت "صفحه اصلی" قرار دهد.

این را فقط برای یک شیت نمیخوام ، یک شیت را نمونه گذاشتم .

میخوام برای همه شیت های دیگر هم این دکمه را قرار دهم.

ممنون

سلام دوست عزیز
از این کد میتونین کمک بگیرین

Sub exceliran()
Sheet2.Range("A1").Value = ActiveSheet.Range("B1").Value
End Sub

[md14511]

مرسی عالی بود
فقط بی زحمت میشه یه چیز به کد اضافه کنید وقتی روی دکمه botom کلیک میکنیم به شیت "صفحه اصلی" هم لینک بشه
مرسی

[mokaram]

مرسی عالی بود
فقط بی زحمت میشه یه چیز به کد اضافه کنید وقتی روی دکمه botom کلیک میکنیم به شیت "صفحه اصلی" هم لینک بشه
مرسی

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

sheet1.activate 

[md14511]

هزاران هزار تشکر
ممنون