أ / محمد صالح

يبدو أن الكود بعد التعديل الأخير قد عمل معك Sub WhatsApp() Dim Contact As String, Message As String Dim n As Long For n = 6 To 7 Contact = Cells(n, 8).Value Message = Cells(n, 9).Value Shell "explorer ""whatsapp://send?phone=" & Contact & "&text=" & Message & """", vbNormalFocus Application.Wait Now() + TimeSerial(0, 0, 5) SendKeys "~" Next n MsgBox "Done!" End Sub الذي يهمنا لنجاح التجربة في أي ملف هو هذا السطر For n = 6 To 7 الذي يحدد صفز البداية والنهاية لقائمة الأرقام والرسائل وهذين السطرين Contact = Cells(n, 8).Value Message = Cells(n, 9).Value وهما المتغير contact وفيه الرقم وهو في العمود الثامن H لنفس الصف والمتغير message وهو في العمود التاسع I لنفس الصف فإذا اختلف صف البداية والنهاية عن 6 و 7 يتم تغييره وإذا اختلف عمود الرقم يتم تغييره وإذا اختلف عمود الرسالة في الملف الجديد يتم تغيير رقم 9 في متغيره بالتوفيق

جرب هذه المعادلة بتغيير بسيط على معادلة أ / علي =IF(COUNTIFS($B$2:$B$200,B2,$C$2:$C$200,C2)>1,"OK","") بالتوفيق data search1.xlsx

هذه هي المعادلة التي في بالي أ/ علي countifs لكن أردت التأكد من المطلوب أولا

مع تكرار أسماء الشركات والمخازن سيمتلئ العمود D بكلمة OK ما عدا المخزن والشركة التي لم تتكرر هل هذا هو المطلوب ¿

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

هذا الملف الأصلي قبل أي تعديل

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

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

جرب استعمال هذا الإجراء Sub godown() Application.SendKeys "~" End Sub وربطه بزر الأمر بالتوفيق

يمكنك تعديل الشرط في زر البحث إلى التالي If sh.Cells(i, 3) >= CDate(Me.TextBox15) And sh.Cells(i, 3).Value <= CDate(Me.TextBox16) _ And sh.Cells(i, 4) = Me.ComboBox3 And (sh.Cells(i, 5) = Me.ComboBox4 Or Me.ComboBox4 = "") Then وإضافة استدعاء زر البحث بعد مسح قائمة المقاس Private Sub CommandButton52_Click() Me.ComboBox4.Value = "" CommandButton51_Click End Sub بالتوفيق

إذا كان الوارد والمنصرف صحيحين فالرصيد المتاح صحيح ولكن بعد عملية التوريد أو الصرف لاحظ معي الرصيد بعد اضافة 1 اصبح 215 وبعد اضافة 2 اصبح 217 في السجل الثاني وبعد اضافة 2 اصبح 219 وبعد اضافة 2 اصبح 221 وبعد طرح 1 اصبح 220 وهكذا فاعتقد ان الرصيد صحيح

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

بعد شرحك للمطلوب يسعدني أن أخبرك أن معادلة أ/ @بن علية حاجيهي نفس المطلوب لكن لأن الخلية D5 في ملفك فارغة فبدأت المعادلة من الخلية D6 =IF(D6="","",OFFSET($E$1,MATCH(D6,$B:$B,0)-1,0)) وبالفعل الخلية D6 تحتوي على 10+2 وهذا السؤال موجود في الخلية B11 وأمامه في في الخلية E11 الدرجة 7 وإذا كنت وضعت في الخلية D5 المحتوى الجديد 9+2 فيمكنك بدء المعادلة من D5 بوضع D5 بدلا من D6 في المعادلة بوضع هذه المعادلة في K2 ثم السحب لأسفل =IF(D5="","",OFFSET($E$1,MATCH(D5,$B:$B,0)-1,0)) إلا إذا كنت تقصد أن تجلب المعادلة الدرجة من الخلية E5 المجاورة للخلية المراد البحث عنها D5 إذا كانت موجودة ضمن الأسئلة في العمود B لو كان هذا هو مطلوبك يمكنك استخدام هذه المعادلة =IF(D5="","",IF(MATCH(D5,$B:$B,0),E5)) بالتوفيق

جوجل درايف بارتيشن عبارة عن مجلد داخل الويندوز ويمكن نسخ اي ملف فيه جرب وضع القاعدة في مجلد عادي واجعل مسار الحفظ مجلد موجود بالفعل في بارتيشن جوجل مثلا جوجل بارتيشن هو G والمجلد backup يكون مسار النسخ g:\backup\ وبعدها اسم ملف القاعدة وامتداده

كل عام والجميع والأهل والأحباب بكل خير وصحة وسعادة عام هجري سعيد

إن كان فهمي للمطلوب صحيحا جرب هذه المعادلة في الخلية C5 =SUMIFS($I$3:$I$5,$H$3:$H$5,B5,$G$3:$G$5,$B$2)+N3-I6 بالتوفيق

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

تفضل هذا ملفك بعد وضع المعادلات mode fun1_2.xlsx

افتح الملف اضغط alt+F11 من قائمة insert اختر module الصق هذا الكود في الجانب الأيمن من النافذة قف بالمؤشر في منتصف الكود واضغط F5 لتشغيله بعدها اذهب لتبويب الممطور لترى النتيجة هل تم تفعيل زر المطور أم لا

هذا هو الأفضل وهو الذي كنت سأفعله لكني وجدتك تستعمل النطاقات المسماة تم تعديل الكود مع امكانية اضافة عمود للسيارة الجديدة تلقائيا وعدم تكرار رقم الشاسيه لكل نوع سيارة بالتوفيق برنامج السيارات3.xlsm

كيف يعتبرها نصا وهي تبدأ بعلامة = ؟؟؟

إذا كنت تقصد الحل في عدم تفعيل زر وضع التصميم فجرب وضع هذا الإجراء في موديول جديد وقم بتشغيل لإعادة تمكين زر وضع التصميم sub mas Application.CommandBars("Visual Basic").Controls("Design Mode").Enabled = True Application.CommandBars("Control Toolbox").Controls("Design Mode").Enabled = True End sub ربما يكون هذا السبب في مشكلة القائمة

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

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

بعض ما عندكم صديقي 👍😍🌹