التحديث التلقائي

[أبو وليد]

السلام عليكم

مساء الخير

لدي ورقة عمل (شيت) يأخذ بيانات من الانترنت

ويقوم بنقل البيانات الى أوراق أخرى عند أي تغيير في البيانات

ما اريده

ما هو الحدث الذي يوضع فيه الكود

بارك الله فيكم

[وائل الاسيوطي]

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

[أبو وليد]

شكرا استاذي الفاضل

 

الملف مرتبط بالنت ولن يعمل طالما ليس لديك البرنامج

تتحدث بيات الشيف تلقائيا

 

كود الترحيل عندي

ما اريده فقط

 

الكود يوضع في الشيت تحت ماذا

WOTKSHEET_CHANGE

أم ماذا

 

بارك الله فيكم

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

نعم أخي الكريم سيوضع الكود في حدث تغيير ورقة العمل حيث أن تنفيذ الكود في هذه الحالة مرتبط بإحداث تغيير في ورقة العمل

[أبو وليد]

بارك الله فيك

 

قمت بوضعه في حدث

WOTKSHEET_CHANGE

ولم يعمل الكود

علما ان البيانات تتحدث تلقائيا بدون تدخل المستخدم 

[أبو وليد]

السلام عليكم

هذا الكود

Private Sub zz(ByVal Target As Range)
    Dim Cel     As Range
    Dim LR      As Long
   
    

    With Application
        .ScreenUpdating = False: .EnableEvents = False
    End With
    
    For Each Cel In Sheets("Mian").Range("A2:A" & Sheets("Mian").Cells(Rows.Count, 1).End(xlUp).Row)
    On Error Resume Next
        If Evaluate("=ISREF('" & Cel.Value & "'!A1)") Then
        
            With Sheets("" & Cel.Value & "")
                LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
              
                If Application.WorksheetFunction.CountIfs(.Range("A2:A" & LR), Cel.Offset(0, 0), .Range("B2:B" & LR), Cel.Offset(0, 1)) Then GoTo Skipper
                
                   .Range("A" & LR).Resize(, 8).Value = Cel.Offset(0, 0).Resize(, 8).Value
           
            End With
            
        End If
Skipper:
    Next Cel
End Sub

 

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

صراحة ليس لدي علم بكيفية تحديث البيانات بدون تدخل المستخدم ..ربما لو فهمنا كيفية التعامل مع ذلك الأمر لسهل علينا الوصول لحل

لا أستطيع عمل محاولات حيث أنني لا أدري كيفية عمل ذلك التحديث للبيانات في ورقة العمل بدون تدخل للمستخدم ..!!!

[أبو وليد]

هذ ياعزيزي ربط عن طريق برنامج خاص بالبورصه

ويتحدث تلقائيا عند التغيير في البرنامج 

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

ممكن ترفق البرنامج بعد ضغطه للإطلاع على كيفية عمل الملف .. سأقوم بعمل محاولات ولكن يلزمني تجربة المحاولات قبل البدء في تقديم حل مناسب

 

جرب تضع المعادلة التالية في أي خلية بعيداً عن البيانات

=Now()

 

[أبو وليد]

السلام عليكم

 

قمت بعمل ما ذكرت لم يتغير الوقت نهائيا

ارفقت لم مثال

أتوقع ما يعمل لان البرنامج ليس في جهازك

Book1.rar

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

طيب هل فيه مشكلة إنك ترفق البرنامج لتجربته ومحاولة تقديم المساعدة بدلاً من الدخول في دائرة افتراضات واحتمالات ..

طيب جرب السطر دا في حدث ورقة العمل

ThisWorkbook.RefreshAll

 

[محمد حسن المحمد]

في ٣٠‏/١٢‏/٢٠١٥ at 20:29, أبو وليد said:

WOTKSHEET_CHANGE

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

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

[أبو وليد]

الله يعطيك العافية على تجاوبك

 

سوف اجرب واعطيك خبر

 

 

 

ابدا لا مشكله

اذا ماز بط الحل اعطيك رابط البرنامج من النت

واسم المستخدم وكلمة المرور وتجرب

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

أبي الحبيب أبو يوسف

فينك مش ظاهر ..يا ترى خير إن شاء الله

ننتظر تجربة أخونا الكريم أبو وليد .. وبعدها نرى كيف تم حل المشكلة ..؟

بارك الله فيك على مرورك العطر وعلى مشاركتك الإيجابية (عايز مشاركة إيجابية من الجميع ..هذا ما أتمناه) كفانا كسلاً وركوناً

[محمد حسن المحمد]

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

يطرب قلبي وتنفرج أساريري و أحس بسعادة غامرة بخطابك المتوج بالمحبة والكلمات الطيبة ..أتابعكم على الجوال بما أنني في عطلة نادرة بسبب الثلوج التي لا أرغبها لأنها تثقل كاهل خيمنا المتواضعة.

أحب مشاركتكم لأن مجرد الانضمام لبيئتكم العطرة التي تضج حيوية وتسمو علما وتتواضع لينا ومحبة.

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

والسلام عليكم...المحب لكم جميعا أبو يوسف.

 

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

أبي الحبيب أبو يوسف

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

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

 

[أبو وليد]

السلام عليكم

 

الله يجمعكم على المحبة والخير في الدنيا وفي جنة النعيم في الآخرة

 

استاذي اسف تأخيري بسبب التجربة تكون اثناء عمل البرنامج

 

كيف اضيف الحدث

ThisWorkbook.RefreshAll

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

جرب أن تضيف السطر في حدث التغير في ورقة العمل التي تعمل عليها ..

[أبو وليد]

بيض الله وجهك

 

لم تنجح

 

لاحظ ان ورقة العمل لا تستشعر بالأحداث

 

عموما الف شكر

ممكن العملية  تكون معقدة

بشوف طريقة أخرى واوفيكم