هال88

ولله الحمد تم تنفيذ الفكرة وتم العمل بدون اي مشاكل ولكن الذي اواجهه الآن اريد ارسل إلى عدة ايميلات وليس ايميل واحد ولا زلت ابحث عن الحل ان كان في الامكان الافادة اخي أبو عيد في امكانية ارسال إلى مجموعة ايميلات وليس ايميل واحد اكون لك شاكر

شكرا استاذ أبو عيد شكرا من القلب كنت سبب في ايجاد الحل وجدت الحل من خلال هذا الموقع https://www.computing.net/answers/office/how-do-i-create-excel-email-alert-for-expiring-dates/20161.html

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

يرجى الاطلاع على التفاصيل للمساعدة اخواني

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

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

ارجو المساعدة اخواني

ارجو التفاعل ايها الاخوة حتى لو نصيحة

الاخوة الكرام الشكر لله سبحانه وتعالى ثم لجهودكم الطيبة من خلال بحثي من خلال بحث جوجل فيما يختص بمجالات الاكسل والاكسس يظهر لي هذا الموقع المبارك من الاوائل مما يعطي حجم التفاعل فيه فشكرا لكم جميعا .. فيما يختص بالاكسل لدي الهدف هو عملية ارسال إيميل بشكل تلقائي بناء عل القيمة الموجودة في حقل الحالة بحيث يكون الارسال يكون بناء عل الحالة نفسها اما في حال الانتهاء .. او في حال الانتهاء قريبا وهكذا .. اتمنى المساعدة في الكود الصحيح والمطلوب تماما ارفقت صورة والاكسل الاصلي للمساعدة Book1.xlsx

هل من مساعدة يا اخوان

شكرا اخي أحمد يوسف تم ارفاق الملف TR- Test v1.xlsm

اخواني الكرام احتاج بعد الترحيل ان يقوم بحذف اصل البيانات من بعد مرحلة الترحيل ليس حذف كل البيانات وانما حذف البيانات استنادا للبيانات التي تم عرضها قبل المستخدم الرجاء حذف البيانات يرتكز على كومبو بوكس 2 لأنه يمثل رقم وظيفي مع العلم كومبو بوكس 1 يمثل وسيلة الترحيل حسب الاتجاه تم ارفاق الكود للمساعدة شكرا لكم Private Sub CommandButton1_Click() If Me.ComboBox2.Value = "" Then MsgBox "Please complete the data! .. íÑÌì ÊÚÈÆÉ ÇáÈíÇäÇÊ ßÇãáÉ" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Please complete the data! .. íÑÌì ÊÚÈÆÉ ÇáÈíÇäÇÊ ßÇãáÉ" Exit Sub End If If Me.ComboBox1.Value = "" Then MsgBox "Please complete the data! .. íÑÌì ÊÚÈÆÉ ÇáÈíÇäÇÊ ßÇãáÉ" Exit Sub End If If Me.TextBox4.Value = "" Then MsgBox "Please complete the data! .. íÑÌì ÊÚÈÆÉ ÇáÈíÇäÇÊ ßÇãáÉ" Exit Sub End If If Me.TextBox5.Value = "" Then MsgBox "Please complete the data! .. íÑÌì ÊÚÈÆÉ ÇáÈíÇäÇÊ ßÇãáÉ" Exit Sub End If If Me.TextBox11.Value = "" Then MsgBox "Please complete the data! .. íÑÌì ÊÚÈÆÉ ÇáÈíÇäÇÊ ßÇãáÉ" Exit Sub End If If Me.ComboBox1.Value = "North" Then Sheet1.Activate Dim lastrow As Integer lastrow = [a1000].End(xlUp).Row + 1 Cells(lastrow, 1).Value = Me.ComboBox2.Value Cells(lastrow, 2).Value = Me.TextBox13.Value Cells(lastrow, 3).Value = Me.TextBox6.Value Cells(lastrow, 4).Value = Me.ComboBox1.Value Cells(lastrow, 5).Value = Me.TextBox11.Value Cells(lastrow, 6).Value = Me.TextBox12.Value Cells(lastrow, 7).Value = Me.TextBox9.Value Cells(lastrow, 8).Value = Me.TextBox10.Value Cells(lastrow, 9).Value = Me.TextBox7.Value Cells(lastrow, 10).Value = Me.TextBox8.Value Cells(lastrow, 11).Value = Me.TextBox2.Value Cells(lastrow, 12).Value = Me.TextBox14.Value Cells(lastrow, 13).Value = Me.TextBox5.Value Cells(lastrow, 14).Value = Me.TextBox4.Value MsgBox "Data saved! .. Êã ÍÝÙ ÇáÈíÇäÇÊ" ComboBox2.Value = "" TextBox13.Value = "" TextBox6.Value = "" ComboBox1.Value = "" TextBox11.Value = "" TextBox12.Value = "" TextBox9.Value = "" TextBox10.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox2.Value = "" TextBox14.Value = "" TextBox5.Value = "" TextBox4.Value = "" ComboBox2.SetFocus If Me.ComboBox1.Value = "South" Then Sheet2.Activate Dim lastrow As Integer lastrow = [a1000].End(xlUp).Row + 1 Cells(lastrow, 1).Value = Me.ComboBox2.Value Cells(lastrow, 2).Value = Me.TextBox13.Value Cells(lastrow, 3).Value = Me.TextBox6.Value Cells(lastrow, 4).Value = Me.ComboBox1.Value Cells(lastrow, 5).Value = Me.TextBox11.Value Cells(lastrow, 6).Value = Me.TextBox12.Value Cells(lastrow, 7).Value = Me.TextBox9.Value Cells(lastrow, 8).Value = Me.TextBox10.Value Cells(lastrow, 9).Value = Me.TextBox7.Value Cells(lastrow, 10).Value = Me.TextBox8.Value Cells(lastrow, 11).Value = Me.TextBox2.Value Cells(lastrow, 12).Value = Me.TextBox14.Value Cells(lastrow, 13).Value = Me.TextBox5.Value Cells(lastrow, 14).Value = Me.TextBox4.Value MsgBox "Data saved! .. Êã ÍÝÙ ÇáÈíÇäÇÊ" ComboBox2.Value = "" TextBox13.Value = "" TextBox6.Value = "" ComboBox1.Value = "" TextBox11.Value = "" TextBox12.Value = "" TextBox9.Value = "" TextBox10.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox2.Value = "" TextBox14.Value = "" TextBox5.Value = "" TextBox4.Value = "" ComboBox2.SetFocus END IF END SUB

اخي عبدالله لو اردت حذف البيانات فقط التي تم نقلها او تم ترحيلها بمعنى لا اريد حذف كامل مدى البيانات وانما فقط بيانات التي تم نقلها كلا على حدا فهل طريقة شكرا لك

ارجو المساعدة اخواني

اتمنى من الاخوة الخبراء المساعدة فيما كتبت في الرد السابق مشكورين