هانى محمد

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

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

وعليكم السلام-تفضل كان عليك استخدام خاصية البحث بالمنتدى تعلم كتابة أكواد 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 ... يجب عليك تحديث الإكسيل فالملف يعمل بكل كفاءة عن تجربة كما أثبتلك سلفاً

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

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

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

وعليكم السلام-تفضل ولكن ان لم يكن هذا هو المطلوب كما فهمت منك فلزم عليك التوضيح أكثر ورفع الملف مرة أخرى مع وضع النتائج التى تريدها بالضبط به ويجب الإستجابة من تجاهك لكى تتم المساعدة على أكمل وجه أنا%20أتشارك%20'تنك%20سولار2.xlsx

بارك الله فيك استاذ سليم معادلة ممتازة طبعي الود هذا الخطأ من عندك انت فيجب اصلاحه بنفسك فهذه ليست معادلة عادية بل هى مصفوفة فلكى تعمل هذه المعادلة لابد من الضغط بعد تحرير المعادلة على Ctrl+Shift+Enter وليست Enter لوحدها كباقى المعادلات , وبكده يكون الموضوع انتهى بارك الله فيك

هذا أمر طبيعى لكثرة المعادلات وكثرة الصفحات بالملف !! على الرغم من كل هذا فتم تقليل مساحة البرنامج كثيراً فأصبح الأن 3.26 ميجا file.rar