نجوم المشاركات

تفضل اخى جرب الملف والمعادلة مع مراجعة النتائج للتأكد اما بالنسبة لتلوين الاكود الجديد فى العمود 2 يمكنك استخدام (Conditional Formatting) حذف متكرر ونلوينه.xlsx

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

وهذا حل اخر ولكن باستخدام VBA لعمل المطلوب كما تريده وبشكل افضل وتلوين كود الصنف الجديد فى العمود 2 واظهار الاصناف الجديدة فى العمود 3 معا بدون خلايا فارغة استخراج اكواد الاصناف الجديدة وتلوينها VBA .xlsm

وعليكم السلام.. هذا استعلام الحاق ..اي نقل البيانات من جدول الى اخر بشرط ان لايكون المعرف موجود في الجدول الاخر اما عند تعديل البيانات فتحتاج الى استعلام تحديث انسخ جملة السكوال التالية في استعلام جديد...ستجد الفرق عند تغيير البيانات UPDATE CASH_IN_ACCOUNT_EXPENSES_DETAILS_MPC INNER JOIN [customer account sub dollar Query] ON CASH_IN_ACCOUNT_EXPENSES_DETAILS_MPC.cash_id_in = [customer account sub dollar Query].customer_id SET CASH_IN_ACCOUNT_EXPENSES_DETAILS_MPC.[cash usd in] = [customer account sub dollar Query]![المتحصل من العميل];

السلام عليكم ورحمه الله 1. التأكد من أن جميع الملفات المرتبطة بالهايبر لينك موجودة في المسار الصحيح على الجهاز الجديد. قد تحتاج إلى نسخ الصور إلى المسار الصحيح أو إعادة ربطها مرة أخرى في البرنامج 2. التأكد من أن أي مسارات مرتبطة بالهايبر لينك ذات المسار الكامل (مثل C:\Documents\Images\image.jpg) وليس مسارات نسبية (مثل ..\Images\image.jpg). هذا يضمن أن يمكن العثور على الصور بشكل صحيح عند فتح الهايبر لينك. 3. قد يكون هناك مشكلة في صلاحيات الوصول إلى الملفات. تأكد من أن لديك الصلاحيات الكافية للوصول إلى الملفات المرتبطة بالهايبر لينك.

عليكم السلام احبتي : ان تنادي شخصا بعينه ليس من صالح صاحب الحاجة لاعتبارات كثيرة لا تخفى عليكم فالافضل ان يكون النداء للجميع .. لتحصلوا على اجابات كثيرة وسريعة .................................. اخوي شرط التاريخ لو افترضنا انه منطقي فوجوده كعدمه .. لماذا ؟ دوما التسجيل يكون في اليوم الحالي اي تاريخ اليوم ، فلا يتصور ان الغاء الخدمة غدا وهذا يعني ان حقل تاريخ الانهاء سيكون فارغا ان لم يكن يتضمن تاريخ ايضا يتبادر تساؤل .. هل يمكن ان تكون الخدمة true بينما تاريخ انهاء الخدمة منتهي قبل فترة ؟ فالشروط التي تنطبق على فكرتك او طلبك ويجب التحقق منها هي : (رقم الهاتف / نوع الخدمة ) = متطابقة ( التفعيل ) = false تاريخ انهاء الخدمة = موجود اذا شرحي هذا منطقي وتوافقني عملت على تحقيقه كلامي هذا بناء على ما في المرفق من بيانات اما اذا كان انهاء الخدمة يسجل مسبقا في العقد فشرطك صحيح وهذا يعني ان الخدمة سيتم اغلاقها آليا في يوم تاريخ نهاية الخدمة هل هذا صحيح ؟

حملته على ال G &E & F ولم ينفع اتمنى لك التوفيق بصراحة .. لحد الان برامجي بالمجان ...سواء لاصدقائي او لدائرتي التي اعمل بها وهي مفتوحة المصدر لمن اراد الاستفادة

احذر المسميات العربية لاسماء الحقول او الجداول ...واحذر الفواصل في المسميات

عملت لك استعلام NewDateQ و موديول لحساب اخر تاريخ للاستحقاق بعد 6 اشهر يمكنك بناء تقرير او اي شيء تريده ربما هناك طريقة افضل يطرحها الاساتذة ..لكن هذا مافكرت به الان STOCK2.rar

حل اخر اخى الفاضل فوزى تسمية نطاقات واضافة الفروع.xlsm

تفضل اخى جرب هذه المعادلة test1 (1).xlsx

مع ان الاخ العزيز شايب فهمه على قده ولكن محاولة بسيطة بداية ممكن عمل استعلام الحاق وممكن العمل مباشرة مع مصدر السجلات وهنا الاخ شايب عمل مع مصدر السجلات Dim rs As Recordset Dim rst As Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("stages") Set rst = CurrentDb.OpenRecordset("StageBundleUPC") rs.MoveFirst For a = 0 To rs.RecordCount - 1 If rs!AddStage = True Then rst.AddNew rst!CutColor = Me.txtco rst!CutYSGPO = Me.txtysgpo rst!CutTotal = Me.txtct rst!CutNumber = Me.txtcn rst!CutStyle = Me.CutStyle rst!CutStages = rs!Stages rst.Update End If rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing Me.Child15.Requery الملف مرفق الشايب Sample.accdb

جرب هذا الكود SaveNew.xlsm

@2saad هل ممكن ان تقول لي المتغير i فيما يستخدم بناء على كودك؟!!! Private Sub CommandButton2_Click() Dim add As Integer i = Application.WorksheetFunction.CountA(Sheet54.Range("c:c")) add = Sheet54.Range("c1000").End(xlUp).row + 1 Sheet54.Cells(add, 3).Value = Me.TextBox1.Value Sheet54.Cells(add, 4).Value = Me.TextBox2.Value Sheet54.Cells(add, 5).Value = Me.TextBox3.Value Sheet54.Cells(add, 6).Value = Me.TextBox4.Value Sheet54.Cells(add, 7).Value = Me.TextBox5.Value Sheet54.Cells(add, 8).Value = Me.TextBox6.Value Sheet54.Cells(add, 9).Value = Me.TextBox7.Value Sheet54.Cells(add, 10).Value = Me.TextBox8.Value Sheet54.Cells(add, 11).Value = Me.TextBox9.Value Sheet54.Cells(add, 12).Value = Me.TextBox10.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" MsgBox "تم حفظ البيانات بنجاح يا عم سعد", vbInformation, "تنبيه يا عم سعد" End Sub جرب هذا التغيير ولكن قبل كل شيء اتبع الخطوات بعناية 1- احدف اي صف فارغ في الجدول ( لا تجعل الجدول يحتوي على صفوف فارغة) 2- لا داعي للتيكست بوكس الخاص بالتسلسل لانه الكود سيقوم بادراج صف ويقوم بترقيمها اتوماتيكيا حينها سيصبح عند 9 تيكست بوكس وليس 10 كما في الكود 3- تم التعديل باضافة اجراءات خاصة بكائن الجدول هذه محاولة قد تفيدك Private Sub CommandButton2_Click() Dim tbl As ListObject Dim LastRow As Long Set tbl = Sheet54.ListObjects("Table14") LastRow = tbl.Range.Rows.Count With Sheet54 tbl.Range(LastRow, "B").Offset(1) = TextBox1.Value tbl.Range(LastRow, "C").Offset(1) = TextBox2.Value tbl.Range(LastRow, "D").Offset(1) = TextBox3.Value tbl.Range(LastRow, "E").Offset(1) = TextBox4.Value tbl.Range(LastRow, "F").Offset(1) = TextBox5.Value tbl.Range(LastRow, "G").Offset(1) = TextBox6.Value tbl.Range(LastRow, "H").Offset(1) = TextBox7.Value tbl.Range(LastRow, "I").Offset(1) = TextBox8.Value tbl.Range(LastRow, "J").Offset(1) = TextBox9.Value End With MsgBox "تم حفظ البيانات بنجاح يا عم سعد", vbInformation, "تنبيه يا عم سعد" Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" End Sub

جرب هذا الكود المختصر بإذن الله يكون هو المطلوب Private Sub CommandButton1_Click() Dim contact As String, mytext As String contact = TextBox1.Value mytext = TextBox2.Value ' Google Messages ActiveWorkbook.FollowHyperlink Address:="https://messages.google.com/web/conversations/new" Application.Wait (Now + TimeValue("00:00:10")) Call SendKeys(contact, True) Application.Wait (Now + TimeValue("00:00:04")) Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) ' Enter key Application.Wait (Now + TimeValue("00:00:04")) Call SendKeys(mytext, True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) ' Enter key Application.Wait (Now + TimeValue("00:00:04")) MsgBox "Done by mr-mas.com" End Sub بالتوفيق

السلام عليكم و رحمة الله استخدم هذه المعادلة =INDEX($E$2:$E$11;MATCH(VALUE(LEFT(E2;SEARCH("-";E2)-1));$A$2:$A$11;0))

1-تجديد حركة السير.xlsm

تفضل عمل احصائية.xlsm