وضع عنوان الخلية كقيمة في متغير

[ماجدجلال]

السلام عليكم ورحمة الله وبركاته 

الفكرة باختصار هي وضع عنوان الخلية كقيمة في متغير , و عند الذهاب الي خلية اخري . نقوم بتشغيل الماكروا فيقوم بالذهاب الي الخلية التي كان فيها سابقا ,,

مثال : لنفرض اننا حاليا في الخلية ( A1 ) يتم حفظ عنوان هذة الخلية في الماكروا وعند الذهاب الي الخلية ( K35 ) يتم تشغيل الماكروا ليعيدنا الي الخلية السابقة وهي ( A1 ) ,,,

ارجوا المساعدة ولكم جزيل الشكر و الامتنان 

المصنف1.xlsx

[ياسر خليل أبو البراء]

أخي الكريم إليك الكود فيه حل للمشكلة

Sub Store_ActiveCell_In_Variable_Go_Back_At_The_End()
    Dim c As Range
    
    Set c = ActiveCell
    
    'Your Macro
    Application.Goto Range("K35")
    Application.Wait Now + TimeValue("00:00:03")
    
    Application.Goto c
End Sub

 

[ياسر خليل أبو البراء]

المشرف الذي قام بتعديل المشاركة ووضع الحل ..

أليس من الجدير ذكر المصدر؟!!!!!!!!!!!!!!!!!!!!!!!!!!