أبو حنــــين

غير الكود السابق بالكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim Liste As Range, cl As Range Set Liste = Range("G5:G22") For Each cl In Liste If cl.Value > 18 Then MsgBox " الرقم : " & cl.Value & " غير مدرج في القائمة ", vbExclamation, "خطأ" cl.Value = "": cl.Activate End If Next End Sub

ضع هذه الكود في حدث الورقة كما هو Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range For Each cl In Range("G5:G22") If cl.Value > 18 Then MsgBox "الرقم: " & cl.Value & " غير مدرج في القائمة ", vbExclamation, "خطأ" cl.Value = "" End If Next End Sub

لا تضع زر فيكفي وضع الكود التالي في حدث الورفة كما يلي : Private Sub Worksheet_Change(ByVal Target As Range) Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 If Cells(Lr - 1, 2) = "إجمالي" Then Cells(Lr - 1, 4) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2)) Exit Sub Else Cells(Lr, 2) = "إجمالي" Cells(Lr, 4) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2)) End If End Sub

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

أخي الكريم : mnady أخي الكريم : الجزيرة جزاكم الله خيرا على المرور و على هذه الكلمات الطيبة

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

جرب المرفق 22.rar

جرب الطريقة التالية تاريخ.rar

السلام عليكم تم عمل المطلوب و أكثر من ذلك مستحقات جديدة 2012.rar

أخي : fzsss تم عمل اللازم 2تأمينات.rar

هل بهذه الطريقة تاريخ.rar

السلام عليكم بعد ان اكملت العمل و جدت الاخوة الكرام قد سبقوني لذلك لكنني سأرسل محاولتي ان كنت قد فهمت المطلوب cotton 2012.rar

اعتقد أن الكود في المشاركة رقم 4 كان يحتوي على خطأ و ذلك في الحرف إ بدل الحرف أ لكلمة إجمالي و قد صحح بالطريقة التالية دون الحاجة الى زر Private Sub Worksheet_Selectionchange(ByVal Target As Range) Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 If Target.Column = 2 Then If Cells(Lr - 1, 2).Text = "إجمالي" Then Cells(Lr, 2) = "" Exit Sub Else Cells(Lr, 2) = "إجمالي" Exit Sub End If End If End Sub

السلام عليكم تم عمل حفظ لنسخة لكل موظف و بعض التحسينات الأخرى تأمينات.rar

جزاك الله خيرا أخي : admbrk على مروركم الطيب

السلام عليكم رغم ان الملف غير منسق بالشكل الذي يسمح باستعمال الكود لكن هذه محاولة فقط مستحقات جديدة 2012.rar

كما يمكن إجرا ذلك بدون زر و ذلك في حدث الورقة بالكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 If Cells(Lr - 1, 2) = "إجمالي" Then Exit Sub Else Cells(Lr, 2) = "أجمالي" End If End Sub

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

استعمل هذه الكود Private Sub CommandButton1_Click() Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(Lr, 2) = "إجمالي" End Sub

السلام عليكم يحتاج البعض الى طريقة توزيع رقم طويل موجود في خلية او مربع نص الى مجموعة خلايا او مربعات نصوص مثل أرقام التأمينات أو الرقم القومي الذي ربما يحتوي على 14 رقم يمكن توزيعها في 14 خلية ارفقت مثالا على ذلك لتعم الفائدة تقسيم.xls

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

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

هذه محاولة جربها أخي تأمينات.rar

العفو أخي ناصر شكرا علة مروركم أخي وصفي

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