ابو طيبه

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

Printing.xlsm

شكرا جزيلا لك استاذ محمد جعلها الله في ميزان حسناتك تحياتي لك

التعديل على كود الصفحة عند الضغط دبل كلك على أي خلية من خلايا محددة تكون قيمتها  Negative دون غيرها

واضافة شرط على معادلة خلية C3  كما موضح بالملف المرفق مع جزيل الشكر

ملف العمل.xlsm

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

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

Printing.xlsm

عاشت الانامل استاذ محمد شكرا جزيلا الله يرحم امواتك ويجعلها في ميزان حسناتك تحياتي لحظرتك 

بارك الله فيك استاذ محمد 

الكود يعمل بشكل ممتاز فقط محتاج ان تكون الخليه C10 تساوي positive عندما تحتوي الخليه E13 او E14 على +  كما في الصورة ادناه

السلام عليكم فضلا وليس امرا محتاج التعديل على الكود حد الصفحة قيمه خليه C13 تعتمد على محتويات خلايا E13 او E14

كما موضح بالملف المرفق مع جزيلا الشكر  

File -1.xlsm

طلع عندي هذا الخطآ ممكن اعرف شنو السبب

مشكور جهودك استاذ العزيز الله يجعلها في ميزان حسناتك تحياتي لحظرتك 

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

Sub Add_One()
Dim FR
For FR = 10 To 50
Cells(FR, 3) = Val(Cells(FR, 3)) + 1
Next
MsgBox "plus 1 add to all"

End Sub

كود اضافة رقم الي قيمة الخلية من الخلية الى الخلية.xlsm

شكرا جزيلا استاذ احمد الله يجعلها في ميزان حسناتك تحياتي لحظرتك 

السلام عليكم 

كود اضافة رقم ١ الي قيمة خلايا محدده من العمود C كما موضح بالمرفق. مع جزيل الشكر 

كود لاضافة رقم.xlsm

مشكور جهودك استاذ محمد الله يجعلها في ميزان حسناتك 

السلام عليكم تم الوصول الى الحل بعد عدة محاولات قمت بها والكود النهائي هل يحتاج إلى الضبط ام لا تحياتي لكم  

Private Sub CommandButton5_Click()
Dim I As Integer, counter As Integer
    WSLR = WS.Cells(Rows.Count, 2).End(xlUp).Row + 1
  With Me.ListBox1
    On Error Resume Next
    For Each C In WS.Range("b2:b" & WSLR)
            I = 1
            For counter = 1 To C.Rows.Count
          If C.Cells(I) = TextBox1.Value Then
          C.Cells(I).EntireRow.Delete
          Else
          I = I - 1
          End If
   Next
  Next C
 End With
       MsgBox "تم حذف الاسم"
End Sub

السلام عليكم اساتذتنا الافاضل تعديل على كود الحذف لكي يتم حذف الاسم المختار في حال فتح الفورم من صفحه اخرى غير صفحة  data

وشكرا جزيلا لجهودكم 

ملف الحذف.xlsm

قمت باجراء بعض التعديل على الكود لكي يتم تنفيذه من صفحة اخرى غير صفحة القائمة كما هو موضح ادناه فيتم التنفيذ المطلوب هل هو صحيح برمجيآ

تحياتي لكم 

Private Sub CommandButton5_Click()
Dim lr As Long
Sheets("قائمة").Select
lr = Cells(Rows.Count, 2).End(xlUp).Row
Range("B" & lr + 1).Select
End Sub

السلام عليكم 

محتاج تعديل على كود العوده لكي يتم تحديد صفحة القائمة واختيار اخر خليه لاتحتوي على بيانات في العمود B

مع جزيل الشكر والامتنان لجهود الجميع 

Private Sub CommandButton5_Click()
Dim lr As Long:         lr = Sheets("قائمة").Cells(Rows.Count, 2).End(xlUp).Row
 Range("lr + 1").Select
End Sub

العوده الى القائمة.xlsm

شكرا جزيلا لجهودك الرائع استاذ ابراهيم العزيز  الله يجعلها في ميزان حسناتك تحياتي 

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

استاذ العزيز كيف يمكن اضافة باسورد قبل تنفيذ الحذف وليكن ١٢٣

السلام عليكم

هل يوجد كود يقوم بحذف الصور المدرجه في كل صفحة من صفحات ملف الاكسل تحياتي لكم

حذف صوره من كل صفحات الملف.xlsm

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

السلام عليكم اساتذتنا الكرام

هل يمكن  اضافة صوره معينه من الدرايف D وليكن اسمها (عنوان) الى كل صفحات الملف مع جزيل الشكر والامتنان لجهودكم جميعا 

كود لإدراج صوره في كل الصفحات.xlsm

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

الله يجعلها في ميزان حسناته

مقارنة نتيجة الخلية مع خلية العمر والجنس.xlsm

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

مقارنتة النتيجة مع خلية الجنس وخلية العمر.xlsm