كيف لي أن أحفظ الأرقام في الخانات التي تحدث

[المذيوري]

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

[محمد حجازي]

السلام عليكم ...

يمكنك نسخ ورقة العمل كل خمس دقائق :

Private RunWhen As Double
Public Sub RunCopy()
  With Workbooks("CopySheet")
    .Sheets("Sheet1").Copy After:=.Sheets(.Sheets.Count)
    .Sheets("Sheet1").Activate
    .Sheets(.Sheets.Count).Name = Replace(Time(), ":", "-", 1, -1)
  End With
  RunWhen = Now + TimeSerial(0, 0, 5)
  Application.OnTime RunWhen, "RunCopy", , True
End Sub
Public Sub StopCopy()
  On Error Resume Next
  Application.OnTime RunWhen, "RunCopy", , False
  RunWhen = 0
End Sub

مرفق مثال بسيط

CopySheet.rar

[المذيوري]

بس أخي الكريم كيف أضع هذا المكرو أصل أخوك غشيم مرررررره يعني حدي +-× وربط صفحة بالنت

[محمد حجازي]

السلام عليكم ...

راجع الرابط التالي :

http://www.officena.net/ib/index.php?showtopic=4624