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

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

الاخوه الافاضل

تحيه طيبه وبعد

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

بناء على معطيات معينه

كما فى المرفق

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

[طارق محمود]

السلام عليكم

أخي العزيز

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

 

 

 

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

 

 

[جمال عبد السميع]

أستاذى ومعلمى ومهندسى ( طارق محمود ) بارك الله فيك وأكثر من أمثالك أعمالك بجد فى منتهى الروعة كعهدى بحضرتك دائما

[احمد عبد الناصر]

السلام عليكم

 

بعد اذن الاستاذ طارق

 

هذه معادلة لاثراء الموضوع 

=IF(COUNT(O6:P6;I6)>0;IF(COUNT(O6:P6)>0;IF(I6="";"BALNNCE";"RONG");"STATEMENT");0)

 

توضع في الخلية  R6

 

تحياتي

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

اخى الفاضل 

طارق 

بارك الله فيك

ولكن ماذا لو اردنا الكود بزر

[طارق محمود]

تفضل أخي إبراهيم

الكود بزر

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

[جلال محمد]

جزاك الله خيرا أخي طارق

افكار جميلة بارك الله فيك

[خالد القدس]

السلام عليكم ورحمة الله وبركاته

بارك الله فيك استاذ طارق حل مميز

وجزاك الله خيرا استاذ احمد اثراء موفق للموضوع

[علي سالم 75]

مشكور استاذ طارق

[حمادة عمر]

السلام عليكم

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

 

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

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

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

[طارق محمود]

السلام عليكم

إخواني الأحباب

جلال

خالد

علي

حمادة

 

جزاكم الله خيرا

وجعلني عند حسن ظنكم

أشكركم كثيرا علي مروركم العطر وكلماتكم الطيبة