ابو طيبه

السلام عليكم اساتذتنا الاعزاء فضلا وليس امراً ارجو منكم اضافه لكود الاستاذ سليم اضافة صف في بداية كل صفحة يحتوي على مجموع الصفحة السابقة وكلمه المدور لكي يقوم الكود كما هو موضح بشيت البيانات كما في الملف المرفق 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