الـعيدروس

او هكذا Excel Shortcuts reference2.rar

السلام عليكم الاستاذ الفذ الخلوق جدا نارت سلمت الانامل التي خطت هذه الاكواد زادك الله من علمة وفضله الى الامام

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

السلام عليكم جزاك الله خير استاذ عبدالله المجرب وهذا كود اخر يقوم بنفس العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("b2:b100")) Is Nothing Then With Target(1, 0) .NumberFormat = "[$-1010000]yyyy/mm/dd;@" .Value = Date .EntireColumn.AutoFit End With End If End Sub

الاستاذ القدير دغيدي فكره جميله تسلم لاكن ياترى هل بيحسب الشرطه ككسر بمعن كذا 3-1 ثلث انا شايف في المرفق لم يحسبها وانتم اهل الخبره

السلام عليكم استاذ سعد عابد ملف في قمة الروعة جزاك الله الف الف خير والى الامام

حل لم اتخيله ابدا بارك الله فيك وزادك من علمه وفضله يعمل 100 % سلمت الانامل

استاذي الحبيب عبدالله المجرب هي كما قلت الفورمات كسور ولاكن في التكست تظهر ارقام واما استعراض البيانات عن طريق الليست بوكس ماشي حال 100% بتظهر كما في الشيت ارجو منك الاطلاع على المرفق الذي في الرد السابق

السلام عليكم الاستاذ القدير دغيدي حفظك الله ورعاك تفضل هذا المرفق نص.rar

ربما هكذا مثل ماتفضل استاذي أبو احمد بالاكواد hid.rar

السلام عليكم خبراء الاكواد اعرف ان الموضوع بسيط ولاكن حاولت اعدل على الكود ولم يزبط On Error Resume Next For i = 1 To 49 Me.Controls("TextBox" & i + 1) = Application.WorksheetFunction.VLookup(ComboBox1 + 0, Sheets("data").Range("A4:az5000"), i + 1, 0) Next i عند ظهور البيانات في التكست بوكس تظهر على شكل ارقام 0.333 0.6666 وهيا في الشيت كسور هكذا 1/3 2/3 واريد انت تظهر كما في الشيت ارجو من لديه الخبره في هذه الجزئيه ان لابخل علينا جزاكم الله عنا كل خير

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

السلام عليكم هذا المنتدى جزيرة استخراج الكنوز كل يوم نكتشف اشياء فيه ماشاء الله عليكم الله يزيدكم من فضله وعلمه امين والسلام عليكم

السلام عليكم اخي الفاضل tahar1983 او هكذا للتعديل زر اخر التعديل2.rar

جزاك الله خير استاذ ياسر الحافظ على الملف الجميل الى الامام

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

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

ربما لان الجديد عادة في الاكسل يكون هي تغير المعادلات جميل انه زبط على 2003

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

السلام عليكم الاستاذ القدير ياسر الحافظ عمل مميز جزاك الله الف الف خير والى الامام تقبل مروري

السلام عليكم بارك الله فيكما اساتذتي الافاضل دغيدي هشام شلبي حلول ولااروع

السلام عليكم الاخ الفاضل اصيل بالنسبة للطلب الأول فالمعادلة صحيحة قولي ليه مثلا لان المدين خليه (C3=100) والدائن خليه (D3=فارغ) اكيد بيعطيك خطاء =IF(C3=D3;0;"خطأ") اكتب 100 في خلية D3 وشوف بيصير الناتج 0.00 وبالنسبة للطلب الثاني ماهو الرقم الزايد الذي تقصده أرجو التوضيح

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

الاخ الفاضل عبدالقادر لا عليك ماهي ملاحظاتك كلنا نتعلم انا اكتسبت اشياء من خلال عمل هذا البرنامج كنت اجهلها ولاكن الحاجة اوصلتني اليها

اخي عبدالقادر بالعكس انا افرح واستانس في خدمة زوار واعضاء هذا المنتدى العظيم الاستاذ ياسر الحافظ حفظك الله ورعاك تسلم تسلم من ذوقك وطيب اصلك