أ / محمد صالح

إن شاء الله تفيدك هذه المعادلات البسيطة حساب تاريخ المعاش.xlsx

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

حضرتك جاوبت عن التالي ولم تجب عن التالي

أخي الكريم الكود لا يحدد الملف مصدر الأرقام والرسائل الكود يقرأ محتويات الصف السادس حتى الصف 55 في العمود 8 الذي اسمه H والعمود 9 والذي اسمه I من الشيت النشط وبالنسبة لعدم وصول نص الرسالة كاملا تم التغلب عليها بكتابة نص الرسالة في مربع الارسال تلقائيا وعدم إرسالها في الرابط 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 If Contact <> 0 And Message <> "" Then Shell "explorer ""whatsapp://send?phone=" & Contact & """", vbNormalFocus Application.Wait Now() + TimeSerial(0, 0, 5) SendKeys Message Application.Wait Now() + TimeSerial(0, 0, 3) SendKeys "~" Application.Wait Now() + TimeSerial(0, 0, 3) End If Next n MsgBox "Done!" End Sub لاحظ تم حذف المتغير message من رابط الإرسال وكتابته عن طريق الأمر sendkeys وبالنسبة لاحتمالية عدم وجود رقم تم وضع شرط عدم فراغ خلية الرسالة وعدم وجود صفر فقط في خلية الرقم بالتوفيق

رغم أن هذا المطلوب مختلف تماما عن المطلوب الأول ولكن نكمل بإذن الله الفهم أولا حتى نصل للمطلوب من خلال الإجابة عن الاستفسارات التالية ما الذي يدل في جداول البنود على أنها تخص الشهر الأول؟ جميع التواريخ مربوطة ب B5 & C5 حتى عدد الأيام على المدة كلها وما الفرق بين عدد الأيام والأيام الكلية؟ لماذا المعادلة في E5 تساوي E4 أليس المفترض أن تكون حاصل طرح التاريخين؟ لماذا بدأت جداول البنود من الصف 37 ألا يمكن أن تبدأ من الصف 1 ؟ بالتوفيق

إذا كان برنامج واتس اب للكمبيوتر مثبتا على جهازك يمكنك استخدام هذا الكود Shell "explorer.exe ""whatsapp://send?phone=" & mynumber & "&text=" & mymessage & """", vbNormalFocus حيث mynumber متغير يحمل الرقم مع مفتاح الدولة ومتغير mymessage يحمل نص الرسالة هذا أفضل من هيبرلينك بإذن الله

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

ما حذفت أية بنود بل كررت رقم 1 في 8 خلايا أسفله هل تقصد تكرار ال 10 أعمدة من B إلى K أفقيا 37 مرة ؟ مع تغيير رقم البند في كل شهر ؟

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

يفضل إرفاق الملفات في الموضوع

أشك انك نسخت الزر من الملف الأول للملف الثانى

يمكنك استعمال المعادلة التالية في الخلية I6 =IF(B6<>"",TEXT(B6,"mmmm"),"") ويمكنك سحبها لأسفل بالتوفيق

يبدو أن الكود بعد التعديل الأخير قد عمل معك 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)) بالتوفيق