اذهب الي المحتوي
أوفيسنا

اريد كود لاستخراج اسماء بناء على معطيات معينه

إبراهيم ابوليله

بواسطه إبراهيم ابوليله
في منتدى الاكسيل Excel

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة طارق محمود,

الردود الموصى بها

طارق محمود

طارق محمود

قام بنشر
قام بنشر

السلام عليكم

أخي العزيز

ضع الكود التالي في حدث الورقة

 

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 6 Then Exit Sub
If Target.Column = 9 Or Target.Column = 15 Or Target.Column = 16 Then
    [R6:R999].ClearContents
    For r = 6 To [A1000].End(xlUp).Row
        x = -IsEmpty(Cells(r, 15)) - IsEmpty(Cells(r, 16))
        If IsEmpty(Cells(r, 9)) Then
           If x <> 0 Then Cells(r, 18) = "BALANCE"
        Else
            If x = 2 Then Cells(r, 18) = "STATMENT"
            If x = 1 Then Cells(r, 18) = "WRONG"
        End If
    Next
End If
End Sub

 

 

حمادة عمر

حمادة عمر

قام بنشر
قام بنشر

السلام عليكم

الاستاذ القدير / طارق محمود

 

دائما نتعلم من اضغر مشاركه لك

حتي لو وجد بها كلمتين فقط

جزاك الله خيراً عنا استاذنا

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع
×
×
  • اضف...

Important Information

  I accept