أبو وليد قام بنشر ديسمبر 30, 2015 مشاركة قام بنشر ديسمبر 30, 2015 السلام عليكم مساء الخير لدي ورقة عمل (شيت) يأخذ بيانات من الانترنت ويقوم بنقل البيانات الى أوراق أخرى عند أي تغيير في البيانات ما اريده ما هو الحدث الذي يوضع فيه الكود بارك الله فيكم رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر ديسمبر 30, 2015 مشاركة قام بنشر ديسمبر 30, 2015 ارفق الملف والكود اخي الكريم تسهيلا للعمل رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 30, 2015 الكاتب مشاركة قام بنشر ديسمبر 30, 2015 شكرا استاذي الفاضل الملف مرتبط بالنت ولن يعمل طالما ليس لديك البرنامج تتحدث بيات الشيف تلقائيا كود الترحيل عندي ما اريده فقط الكود يوضع في الشيت تحت ماذا WOTKSHEET_CHANGE أم ماذا بارك الله فيكم رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 30, 2015 مشاركة قام بنشر ديسمبر 30, 2015 نعم أخي الكريم سيوضع الكود في حدث تغيير ورقة العمل حيث أن تنفيذ الكود في هذه الحالة مرتبط بإحداث تغيير في ورقة العمل رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 30, 2015 الكاتب مشاركة قام بنشر ديسمبر 30, 2015 بارك الله فيك قمت بوضعه في حدث WOTKSHEET_CHANGE ولم يعمل الكود علما ان البيانات تتحدث تلقائيا بدون تدخل المستخدم رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 31, 2015 الكاتب مشاركة قام بنشر ديسمبر 31, 2015 السلام عليكم هذا الكود 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 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 31, 2015 مشاركة قام بنشر ديسمبر 31, 2015 صراحة ليس لدي علم بكيفية تحديث البيانات بدون تدخل المستخدم ..ربما لو فهمنا كيفية التعامل مع ذلك الأمر لسهل علينا الوصول لحل لا أستطيع عمل محاولات حيث أنني لا أدري كيفية عمل ذلك التحديث للبيانات في ورقة العمل بدون تدخل للمستخدم ..!!! رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر ديسمبر 31, 2015 الكاتب مشاركة قام بنشر ديسمبر 31, 2015 هذ ياعزيزي ربط عن طريق برنامج خاص بالبورصه ويتحدث تلقائيا عند التغيير في البرنامج رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 31, 2015 مشاركة قام بنشر ديسمبر 31, 2015 ممكن ترفق البرنامج بعد ضغطه للإطلاع على كيفية عمل الملف .. سأقوم بعمل محاولات ولكن يلزمني تجربة المحاولات قبل البدء في تقديم حل مناسب جرب تضع المعادلة التالية في أي خلية بعيداً عن البيانات =Now() رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 2, 2016 الكاتب مشاركة قام بنشر يناير 2, 2016 السلام عليكم قمت بعمل ما ذكرت لم يتغير الوقت نهائيا ارفقت لم مثال أتوقع ما يعمل لان البرنامج ليس في جهازك Book1.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 2, 2016 مشاركة قام بنشر يناير 2, 2016 طيب هل فيه مشكلة إنك ترفق البرنامج لتجربته ومحاولة تقديم المساعدة بدلاً من الدخول في دائرة افتراضات واحتمالات .. طيب جرب السطر دا في حدث ورقة العمل ThisWorkbook.RefreshAll 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر يناير 2, 2016 مشاركة قام بنشر يناير 2, 2016 في ٣٠/١٢/٢٠١٥ at 20:29, أبو وليد said: WOTKSHEET_CHANGE السلام عليكم ورحمة الله وبركاته أخي الحبيب ياسر أرى أن هناك خطأ إملائي بكتابة الوورك شيت كما هو واضح في اقتباسي...فهل يمكن أن تتعلق اﻹجابة وعدم التحديث بذلك والسلام عليكم ورحمة الله وبركاته. . رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 2, 2016 الكاتب مشاركة قام بنشر يناير 2, 2016 الله يعطيك العافية على تجاوبك سوف اجرب واعطيك خبر ابدا لا مشكله اذا ماز بط الحل اعطيك رابط البرنامج من النت واسم المستخدم وكلمة المرور وتجرب رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 2, 2016 مشاركة قام بنشر يناير 2, 2016 أبي الحبيب أبو يوسف فينك مش ظاهر ..يا ترى خير إن شاء الله ننتظر تجربة أخونا الكريم أبو وليد .. وبعدها نرى كيف تم حل المشكلة ..؟ بارك الله فيك على مرورك العطر وعلى مشاركتك الإيجابية (عايز مشاركة إيجابية من الجميع ..هذا ما أتمناه) كفانا كسلاً وركوناً 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر يناير 2, 2016 مشاركة قام بنشر يناير 2, 2016 السلام عليكم ورحمة الله وبركاته يطرب قلبي وتنفرج أساريري و أحس بسعادة غامرة بخطابك المتوج بالمحبة والكلمات الطيبة ..أتابعكم على الجوال بما أنني في عطلة نادرة بسبب الثلوج التي لا أرغبها لأنها تثقل كاهل خيمنا المتواضعة. أحب مشاركتكم لأن مجرد الانضمام لبيئتكم العطرة التي تضج حيوية وتسمو علما وتتواضع لينا ومحبة. أحبكم في الله وأرجو الله أن يجعل عبق رياحينكم ينتشر كالغمام فيحيي البلاد ويسعد العباد والسلام عليكم...المحب لكم جميعا أبو يوسف. 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 2, 2016 مشاركة قام بنشر يناير 2, 2016 أبي الحبيب أبو يوسف وعليكم السلام ورحمة الله وبركاته أحبك الله الذي أحببتني فيه .. أسأل الله العلي القدير أن يجمعنا في الفردوس الأعلى من الجنة وأن يسعد أيامك وبلادك وتنزاح الغمة إن شاء الله 1 رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 3, 2016 الكاتب مشاركة قام بنشر يناير 3, 2016 السلام عليكم الله يجمعكم على المحبة والخير في الدنيا وفي جنة النعيم في الآخرة استاذي اسف تأخيري بسبب التجربة تكون اثناء عمل البرنامج كيف اضيف الحدث ThisWorkbook.RefreshAll رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 3, 2016 مشاركة قام بنشر يناير 3, 2016 جرب أن تضيف السطر في حدث التغير في ورقة العمل التي تعمل عليها .. رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 3, 2016 الكاتب مشاركة قام بنشر يناير 3, 2016 بيض الله وجهك لم تنجح لاحظ ان ورقة العمل لا تستشعر بالأحداث عموما الف شكر ممكن العملية تكون معقدة بشوف طريقة أخرى واوفيكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.