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

إخواني وأحبابي في الله

في منتدى أوفيسنا وجدت سؤال لأحد الأخوة ، وهو كيف يمكن وضع عنوان الخلية الحالية كقيمة لمتغير بحيث يتم تخزينه في المتغير ، ومن ثم الذهاب إلى خلية أخرى ، وعند تشغيل الماكرو ، يذهب التركيز إلى الخلية السابقة...

لنفرض أننا حالياً في الخلية (A1) و يتم تخزين هذا العنوان في متغير ، ثم يتم الذهاب إلى الخلية ( K35) و عند تشغيل الماكرو يتم الانتقال تلقائياً إلى الخلية (A1) باعتبارها هي الخلية التي كنا فيها .. أي يتم الرجوع إلى آخر خلية كانت نشطة

وإليكم الحل في الكود .. حيث أن الحل بسيط جداً
وفكرة الحل أن يتم تخزين الخلية النشطة أياً كانت تلك الخلية في متغير وليكن c .. ثم تضع ما شئت من أكواد وفي نهاية الكود يتم الرجوع إلى الخلية التي تم تخزين المتغير فيها

وإليكم الكود لعله يفيد أحدكم

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

إعداد وتقديم / ياسر خليل أبو البراء