برجاء المساعدة لمعرفة رقم العمود المطابق لاسم المادة

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

كل سنة وانتم طيبين بمناسبة العام الميلادى الجديد

يارب يكون عام خير وبركة على الجميع يارب امين

مرفق ملف موضح به المطلوب . وجزاكم الله كل خير ........... وشكرا

معرفة رقم العمود.rar

[الـعيدروس]

السلام عليكم

اعذرني انا غشيم بالمعادلات

ورغم ان المعادلة ربما بسيطه

ولاكن جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 8 Or Target.Row <> 9 Then Exit Sub

If Not Intersect(Target, Range("H9")) Is Nothing Then

With Range("A1:E1")

Set C = .Find(Target.Value, LookIn:=xlValues)

If Not C Is Nothing Then

Target.Offset(0, 2).Value = C.Column

End If

End With

End If

End Sub

حطه في حدث الورقة

[عبدالله المجرب]

السلام عليكم

ومن باب تعدد الحلول

وبعد إذن اخي ابو نصار

ضع هذا الكود في حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cl As Range

If Not Intersect(Target, Range("H9")) Is Nothing Then

For Each cl In Range("A1:E1")

If Target.Value = cl.Value Then Target.Offset(0, 2) = cl.Column

Next

End If

End Sub

[الـعيدروس]

حل رائع استاذ عبدالله

زادك الله علماً وحلماً

[عبدالله المجرب]

شكراً اخي ابو نصار

وهذا الحل بالمعادلات

=MATCH($H$9;$A$1:$E$1;0)

[فضل حسين]

الاستاذ الرائع / ابونصار

حبيب قلبى / المايسترو

كل عام وانتم بخير واتم صحة واحسن حال ودائما تسعدون بعلمكم وعطائكم وكرم اخلاقكم .

الحل كالعادة ومعروف مسبقا امتياز مع مرتبه الشرف

الف شكر يااساتذة ياكبار