فضل حسين قام بنشر ديسمبر 31, 2011 قام بنشر ديسمبر 31, 2011 الى خبراء واعضاء منتداى العزيز والعظيم كل سنة وانتم طيبين بمناسبة العام الميلادى الجديد يارب يكون عام خير وبركة على الجميع يارب امين مرفق ملف موضح به المطلوب . وجزاكم الله كل خير ........... وشكرا معرفة رقم العمود.rar
الـعيدروس قام بنشر ديسمبر 31, 2011 قام بنشر ديسمبر 31, 2011 السلام عليكم اعذرني انا غشيم بالمعادلات ورغم ان المعادلة ربما بسيطه ولاكن جرب هذا الكود 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 حطه في حدث الورقة
عبدالله المجرب قام بنشر ديسمبر 31, 2011 قام بنشر ديسمبر 31, 2011 السلام عليكم ومن باب تعدد الحلول وبعد إذن اخي ابو نصار ضع هذا الكود في حدث الصفحة 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
الـعيدروس قام بنشر ديسمبر 31, 2011 قام بنشر ديسمبر 31, 2011 حل رائع استاذ عبدالله زادك الله علماً وحلماً
عبدالله المجرب قام بنشر ديسمبر 31, 2011 قام بنشر ديسمبر 31, 2011 شكراً اخي ابو نصار وهذا الحل بالمعادلات =MATCH($H$9;$A$1:$E$1;0)
فضل حسين قام بنشر ديسمبر 31, 2011 الكاتب قام بنشر ديسمبر 31, 2011 الاستاذ الرائع / ابونصار حبيب قلبى / المايسترو كل عام وانتم بخير واتم صحة واحسن حال ودائما تسعدون بعلمكم وعطائكم وكرم اخلاقكم . الحل كالعادة ومعروف مسبقا امتياز مع مرتبه الشرف الف شكر يااساتذة ياكبار
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.