خالد ابوعوف قام بنشر أبريل 11, 2019 مشاركة قام بنشر أبريل 11, 2019 (معدل) السلام عليكم استبدال الدرجة الوظيفية عند مرور (4) سنوات وكما موضح بالملف ان شاء الله الفكرة واضحة استبدال الدرجة الوظيفية.xlsx تم تعديل أبريل 11, 2019 بواسطه خالد ابوعوف رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أبريل 11, 2019 مشاركة قام بنشر أبريل 11, 2019 السلام عليكم ورحمة الله الكود التالى سيجعل تغيير المسمى الوطيفى يتغير فى نفس الخلية حال انطبقت الشروط حتى لا يتم التغيير مرتين اذا تم الضعط على زر الماكرو مرة اخرى و بدون قصد انسخ الكود التالى و الصقه فى محرر الاكواد و خصص له زر Sub Update_Jopes() Dim sh As Worksheet Dim x As Date, y As Date, z As Date Dim p As Integer, i As Integer, Lr As Long Set sh = Sheets("السجل") Lr = sh.Range("B" & Rows.Count).End(xlUp).Row i = 2 Do While i <= Lr If IsDate(Range("D" & i)) Then x = Range("D" & i).Value y = Date p = Year(y) - Year(x) If p >= 4 Then z = DateAdd("yyyy", 4, x) sh.Cells(i, 3) = WorksheetFunction.VLookup(Cells(i, 3), _ Sheets("تغيير الدرجة").Range("A2:B27"), 2, 0) sh.Cells(i, 4) = z Else sh.Cells(i, 3) = sh.Cells(i, 3) sh.Cells(i, 4) = sh.Cells(i, 4) End If End If i = i + 1 Loop End Sub 1 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر أبريل 11, 2019 مشاركة قام بنشر أبريل 11, 2019 تسلم ايديك استاذ ابراهيم كود فى غاية الجمال والروعة رابط هذا التعليق شارك More sharing options...
خالد ابوعوف قام بنشر أبريل 11, 2019 الكاتب مشاركة قام بنشر أبريل 11, 2019 (معدل) السلام عليكم جزاك الله خيرا - الاستاذ المحترم - الخبير / ابراهيم الحداد وفقك الله - مشكور - هو المطلوب تم تعديل أبريل 11, 2019 بواسطه خالد ابوعوف رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان