تشغيل معادلة تلقائياً بمجرد فتح الملف لجلب بيانات من مصادر خارجية

[asd2000]

مساء الخير

عندي كود والحمد لله يعمل ولكن مشكلتي كل مره اشغل الماكرو يدوي او اضع له زر 

انا ارغب بان يشتغل الماكرو تلقائي لان الملف اللي عندي كبير والصفحات كثيره

مرفق لكم مستند اتمني التعديل عليه ليعمل الماكرو عند فتح الاكسل 

شاكر لكم

9.xlsm

[عبدالفتاح في بي اكسيل]

ضع الكود في حدث  this workbook

Private Sub Workbook_Open()
Dim c As Range
        For Each c In Range("c2:c4")
        c.Formula = "=TickerChart|Live!'QO." & c.Offset(, -2).Value & ".TAD$lasttradeprice'"
    Next c
    Dim d As Range
    
    For Each d In Range("d2:d4")
        d.Formula = "=TickerChart|Live!'QO." & d.Offset(, -3).Value & ".TAD$lasttradeprice'"
    Next d
     Dim e As Range
    
    For Each e In Range("e2:e4")
        e.Formula = "=TickerChart|Live!'QO." & e.Offset(, -4).Value & ".TAD$lasttradeprice'"
    Next e
End Sub

9.xlsm

[عبدالفتاح في بي اكسيل]

اعذرني اخي ضع الكود في حدث الملف نفسه 

 

Private Sub Workbook_ open

[asd2000]

للاسف جميع المحاولات فشلت لايمكن تشغيل الماكرو تلقائي

اتمني تفيدوني اين الخلل

[عبدالفتاح في بي اكسيل]

لابد ان يعمل اي شي مرتبط بالورقة  عندما تفتحها  سيعمل ويمكنك تجربة اكواد بسيطة وتقوم بتجربتها ربما مشكلتك مع الموقع المرتبط به  قد يوجد شيء غير مفعل لذلك لا تتغير البيانات عند فتح ورقة العمل