هانى محمد

السلام عليكم أساتذتى الكرام بعد اذن حضراتكم أتمنى مساعدتى فى تعديل هذه المعادلة (معادلة مصفوفة) على ان يزيد عليها ان تقوم بما تقوم به وهو جلب البيانات بين تاريخين وانا أريد زيادة على ذلك بأن تكون بدون تكرار ولكم جزيل الشكر ... وهذه المعادلة من أعمال أستاذنا الكبير سليم حاصبيا =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 وشكراً

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

وعليكم السلام-وكيف يمكن ذلك بدون الملف ؟!!! لابد من رفع الملف حتى نعلم بوظيفة هذه المعادلة فلا يمكن العمل على التخمين !!!

وعليكم السلام-تفضل كان عليك استخدام خاصية البحث بالمنتدى تعلم كتابة أكواد VBA

شكراً لك استاذ رومانى برنامج رائع

لا تنتظر المساعدة من احد بدون رفع الملف فلا يمكن العمل على التخمين !!!

لحسن التعلم عليك بالدخول الى اليوتيوب والبحث عما تريد لزيادة الفهم والتعلم

الملف يفتح كما ترى ولكن كل البيانات أعتقد مضروبة بفيروس

أحسنت استاذى الكريم عمل ممتاز جزاك الله خير الثواب

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

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

فوزى فوزى ولما لم تطلب هذا من البداية وما هو المنطق والفائدة من اهدار وإضاعة وقت الأساتذة دون جدوى أو أهمية ... من فضلك كان عليك رفع طلبك هذا من البداية ؟!!!

وعليكم السلام وما هو الغرض أو الفائدة من كل هذا !!!

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

لعدم اهدار واضاعة وقت الأساتذة دون جدوى أو أهمية ... فلا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب , فلايمكن العمل على التخمين ... فاذا تخيلت ما تريد هل ينفع معك هذا الكود , وان لم يصلح معك فكما اخبرتك أدى هذا بدوره الى اضاعة الوقت دون جدوى Private Sub UserForm_Initialize() Dim MyData As Range Dim r As Long With Me.ListBox1 .RowSource = "" Set MyData = Worksheets("Sheet1").Range("A2:j100") .List = MyData.Cells.Value For r = .ListCount - 1 To 0 Step -1 If .List(r, 3) = "" Then .RemoveItem r End If Next r End With End Sub

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

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

تفضل برفع الملف(ملف مدعوم بشرح كافى عن المطلوب) نفسه فلا يمكن العمل من خلال الصورة كما انه لا يمكن العمل على التخمين !!! وتجنباً لإهدار وقت كل من يطلع على مشاركتك دون جدوى أو أهمية

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

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

المنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة !!!! ارفع ما تريد بملف وستلقى المساعدة ان شاء الله من الأساتذة ... أو يمكنك استخدام خاصية البحث بالمنتدى فستجد ما تريد ومنها شيت اكسيل مبسط لحسابات محل

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