السلام عليكم ورحمةالله وبركاته
ارفق لكم ملف فية جدول رواتب
الجدول يتكون من درجة الوظيفية والمرتبة وعلى هذا الاساس يظهر مبلغ الراتب بشكل اتوماتيكي
لكن المشكلة في عدم ظهور مبلغ الراتب بشكل اوتوماتيكي بعد اختيار الدرجة والمرتبة
ارجوا المساعدة
مع تقديري
SALARIES.rar
السلام عليكم
ضع هذا الكود في حدث ورقة1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B5")) Is Nothing Then
With Range("A1:B5")
.Sort .Columns(2), xlDescending
End With
End If
End Sub
المرفق 2010
222222.rar
تحياتي
السلام عليكم
حسب ما فهمت من الطلب
استخدم الكود التالي
Sub kh_Add()
Dim Lr As Long
Dim i As Integer
Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(Lr, "A").Value = WorksheetFunction.Max(Range("A2:A" & Lr)) + 1
For i = 0 To 4
Range("B" & Lr).Offset(i, 0).Value = Array("a", "b", "c", "d", "e")(i)
Next
End Sub
تحياتي
الرساله تعني انه يوجد شخص آخر بنفس الاسم
يمكن لحضرتك اختيار اسم آخر
او استخادم حرف ال ( أ ) او ( ا )
كما يمكنك استخدام مفتاح المسافه من لوحة المفاتيح مرتين ( احمد غانم )
و الله اعلم
شكرا لك اخي احمد فضيله
لقد تم تغيير الأسم بعون الله .. و نؤيد الفكره و نشجع عليها