هانى محمد

وعليكم السلام-ارفع من فضلك ملف موضح به المطلوب بكل دقة تجنباً لإهدار الوقت !!! أو يمكنك مشاهدة هذه الفيديو بما انك لم تقم برفع ملف

بالتأكيد وطبعاً تنفيذ كل هذا المطلوب بالمعادلات , لا يمكن عمل هذا نهائياً بالمعادلات وشكراً !!!!

وعليكم السلام -وما هو الغرض والأهمية من كل هذا ؟!!! فقط عليك بتشغيلها ببساطة من الزر الخاص بها من لوحة المفاتيح ... أو يمكنك مشاهدة هذا الفيديو فبه طلبك وهذه هى الأكواد المستخدمة Private Sub VideoCap1_Click() VideoCap1.Start End Sub Private Sub VideoCap2_Click() VideoCap1.Stop End Sub

ارفع من فضلك ملف مدعوم بشرح كافى عن المطلوب تجنباً لإهدار الوقت وحيث انه لا يمكن العمل على التخمين !!!!!!

وعليكم السلام -تجنباً لإهدار وقت الأساتذة وبما انه لا يمكن العمل على التخمين فعليك برفع ملف مدعوم بشرح كافى عن المطلوب ؟!!!

أخى الكريم هذه ليست مشكلة بمعنى الكلمة ولكن لابد من اكتمال هذه المكتبة ولكنى لا استطيع مساعدتك فأنا لا أرى اى مشكلة عندى كى أقوم بحلها ويساطة يمكنك تتبع هذا الفيديو سيفيدك فى حل المشكلة

وعليكم السلام -أخى الكريم الملف يعمل بكفاءة مطلقة وليس به اى مشكلة وشوف بنفسك الصورة

وعليكم السلام-لا يمكن العمل على التخمين عليك برفع ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة

أخى الكريم لا يمكن عمل هذا نهائياً بالمعادلات وشكراً وبارك الله فيك

وعليكم السلام-تفضل اف الشرطية1.xlsx

وعليكم السلام-انتبه من فضلك فطلبك طبعاً مستحيل عمله وتنفيذه بالمعادلات ... لا يمكن عمله الا بالأكواد ... بارك الله فيك بالتأكيد أعلم هذا يقيناً ولكن ليس هناك حيلة لطلبك الا بالأكواد لأنك تقوم بالإدخال فى صف واحد وعند مسحه وعمل ادخال جديد سيتم بناءاً عليه بالتبعية حذف كل البيانات القديمة المرحلة سابقاً ... أظن كده الموضوع أصبح واضح ومكتمل الأركان بالنسبة لك !

وعليكم السلام وبما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة فكان عليك استخدام خاصية البحث بالمنتدى- تفضل تعديل الكود ليتناسب مع حماية الورقة

وعليكم السلام بالتأكيد لا يمكن قبول هذا فلا يمكن عمل الماكرو على الأندرويد أو التليفون عامة .. وشكراً

ما تطلبه ليس بالسهل أو الهين فتعتبر أكواد فورم كامل ولابد من رفع الملف نفسه فلا يمكن العمل بدون ملف !!!

وعليكم السلام -بسيطة يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A1,Sheet1!$A$1:$C$300,3,0),"") Book 2.xlsx

اصبر فطلبك ليس بالسهل أو الهين !!!!

بارك الله فيك أستاذ محي كود ممتاز ويعمل بكفاءة هادي أحمد الكود تمام وشوف بنفسك يعمل بكل كفاءة

عليك برفع الملف مرة أخرى فالملف به مشكلة لا يمكن تحميله !!!

عليك بإستخدام خاصية البحث بالمنتدى فهذا الموضوع تكرر هنا كثيراً

أحسنت استاذ سليم ... مبدع دائماً وهو ده بالفعل المطلوب بارك الله فيك وزادك الله من فضله شكراً لكم marwa41 حل ممتاز بالتأكيد جعله الله فى ميزان حسناتكم

ليس هناك كود لذلك ولا يمكن عمل هذا

السلام عليكم أساتذتى الكرام بعد اذن حضراتكم أتمنى مساعدتى فى تعديل هذه المعادلة (معادلة مصفوفة) على ان يزيد عليها ان تقوم بما تقوم به وهو جلب البيانات بين تاريخين وانا أريد زيادة على ذلك بأن تكون بدون تكرار ولكم جزيل الشكر ... وهذه المعادلة من أعمال أستاذنا الكبير سليم حاصبيا =IFERROR(INDEX(ورقة1!C$11:C$200,SMALL(IF(ورقة1!$E$11:$E$200>=$F$9,IF(ورقة1!$E$11:$E$200<=$G$9,IF(ورقة1!C$11:C$200<>"",ROW(C$11:C$200)-ROW(C$11)+1))),ROWS($E$13:F13))),"") جلب بيانات بين تاريخين sALIM.xls

وعليكم السلام-والله نبهنا كتير جداً على هذا الأمر , انه لا تكتمل اى مشاركة الا بإحتواءها على ملف فلا تنتظر المساعدة من أحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب فلا يمكن العمل على التخمين وتجنباً لإهدار وإضاعة وقت كل من يطلع على مشاركتك دون جدوى أو أهمية مثلى الأن !!!!

وعليكم السلام طبعاً الأمر ليس سهل أو هين !!!

عبد الله السعيد كود الأستاذ سليم يعمل بكل كفاءة وليس هناك داعى لكل هذا فقط عليك تغيير هذا السطر بالكود If R > 10000 Then R = 2 الى If R > 2 Then R = 2 كله بسيط ان شاء الله .. اذا كنت تريد التاريخ بالخلية C1 على الرغم انك لم توضح ذلك سلفاً , فيصبح الكود هكذا Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim R R = Range("A2", Range("C1").End(4)).Rows.Count + 2 If R > 2 Then R = 2 If Target.Address = Cells(R, 1).Address _ And Target.Cells.Count = 1 _ And Target <> vbNullString Then Target.Offset(, 1) = _ IIf(Target.Offset(, 1) = vbNullString, _ Date, Target.Offset(, 1)) End If Application.EnableEvents = True End Sub وشكراً