برای من سخت برای شما راحت !!!!

[امين اسماعيلي]

با درود
اگر اتومات بخوای و نخوای مثلا یک کلید تو صفحه داشته باشی و اونو فشار بدی و بعد کل محاسبه انجام بشه باید تو ایونت Change بنویسی . همون نمونه های ساده بالا رو در نظر بگیر ببین مثل سل ها دستی تغییر میکنن یا فرمولی هسان اول . و اما کد سوال اول به راحتی فرضا میخوای سل یا سل های رو از شیت 1 ببری به شیت 2

راه اول

Sheet2.Range("A1").Value = Sheet1.Range("A7")

راه دوم

Sheet1.Range("A7").Copy Destination:=Sheet2.Range("A1")

راه سوم

Sheet1.Range("A7").Copy
    
    Sheet2.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

حالو این کد ها رو جای همون مسیج باکس و بنا به خواستت تغییربده. اول از همه سعی . ببین میتونی اینا رو محدوده ای هم بکار ببری که دستت راه بیفته بعدش سعی کن یه کلید رو صفحه ایجاد کنی و با فشردن این عمل کپی انجام بشه بعدش برو سراغ همون کد های بالا که نتیجه فرمول بود