كيفيه البحث في نفس الشيت والوقوف علي خليه بنفس اسم خليه البحث

[احمد يسري]

السلام عليكم اخوتي الكرام 

 ارجو  المساعده

عندي جدول به عديد من الاعمده وكل عمود له اسم وعامل في الول الشيت قائمه منسدله بها الاسماء الموجوده علي رؤس الاعمده اريد عند اختيار اسم معين من القائمه ان يقف علي العمود بنفس الاسم

 

ولكم جزيل الشكر

Book1.rar

تم تعديل مايو 3, 2016 بواسطه احمد يسري

[ياسر خليل أبو البراء]

أخي الكريم

أهلاً بك في المنتدى ونورت بين إخوانك

يرجى تغيير اسم الظهور للغة العربية

كما يرجى الإطلاع على موضوعات التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى

 

العنوان غير معبر عن الطلب ... الطلب غير واضح .. لا يوجد ملف مرفق .. وينصح بوضع شكل النتائج المتوقعة لتيسير الوصول لحل

تقبل تحياتي

[سليم حاصبيا]

ربما كان المطلوب

 

Hide_false_columns.rar

[احمد يسري]

تسلم اخي الكريم 

هذا هو المطلوب 

شكرا لك ولتعونك جزاك الله كل خير

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم سليم وجزاك الله خيراً

كود طويل بعض الشيء أخي سليم ..

جرب الكود التالي في حدث ورقة العمل ..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$6" Then
        With Application: .EnableEvents = False: .ScreenUpdating = False: End With
            Dim Rng As Range, Col
            Set Rng = Range("C6:N6")
            Rng.EntireColumn.Hidden = False
            Col = Application.Match(Target, Rng, 0)
            If IsNumeric(Col) Then Rng.EntireColumn.Hidden = True: Columns(Col + 2).Hidden = False
        With Application: .EnableEvents = True: .ScreenUpdating = True: End With
    End If
End Sub

 

 

[احمد يسري]

كل الشكر لك اخي ياسر

فعلا كود حضرتك ممتاز وفعال  مختصر عن كود اخي سليم جزاكم الله خيرا 

واود ان اشكركم واشكر منتداكم المتميز الذي تعلمت منه الكثير 

 

 

[ياسر خليل أبو البراء]

أخي الكريم أحمد

تعرف أنه لولا أخي سليم ما كنت وضعت الإجابة ..حيث انني لم أفهم المطلوب إلا عندما اطلعت على ملفه ..

الأخ سليم من عمالقة المنتدى وكل أعماله رائعة ومميزة ، وأنا أحب الاحتفاظ بملفاته عندي في المكتبة التي لدي

لا حرمنا الله منه أبداً

 

والحمد لله أن تم المطلوب على خير ..والحمد لله الذي بنعمته تتم الصالحات

[احمد يسري]

 اخي ياسر اخي سليم له كل الشكر والتقدير

وحضرتك طبعا

لكن اعذرني انا اول مره ادخل منتدي واول مره اعمل موضوع 

 

[سليم حاصبيا]

منذ ساعه, ياسر خليل أبو البراء said:

بارك الله فيك أخي الكريم سليم وجزاك الله خيراً

كود طويل بعض الشيء أخي سليم ..

جرب الكود التالي في حدث ورقة العمل ..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$6" Then
        With Application: .EnableEvents = False: .ScreenUpdating = False: End With
            Dim Rng As Range, Col
            Set Rng = Range("C6:N6")
            Rng.EntireColumn.Hidden = False
            Col = Application.Match(Target, Rng, 0)
            If IsNumeric(Col) Then Rng.EntireColumn.Hidden = True: Columns(Col + 2).Hidden = False
        With Application: .EnableEvents = True: .ScreenUpdating = True: End With
    End If
End Sub

 

 

كود رائغ اخي ياسر

و لكنه لا يراعي التغيرات في البيانات (في حال قام المستخدم بزيادة او تعديل غلى العامو د A )

[ياسر خليل أبو البراء]

إذاً في هذه الحالة ما عليه إلا أن يقوم بتعديل النطاق .. أو يمكن جعل النطاق متغير .. الأمر بسيط

عموماً كل السبل تؤدي إلى أوفيسنا ، وأوفيسنا تأبه للجميع

تقبل تحياتي

[عبدالسلام ابوالعوافي]

السلام عليكم 

اسمحو لي بالمشاركة .. واسمح لي استاذنا ياسر ان اقول ان كود حضرتك طويل ايضا .. جرب

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Range("c6:n6").EntireColumn.Hidden = True
    For Each rng In Range("c6:n6")
        If rng = [b6] Then rng.EntireColumn.Hidden = False
    Next
End Sub

في انتظار كود اقصر .. تقبلو تحياتي

[ياسر خليل أبو البراء]

جميل أخي الغالي عبد السلام .. بس متنساش إنك بتتعامل مع التغير في حدث ورقة العمل .. فكدا الكود هيتنفذ مع كل تغير في ورقة العمل لأنك لم تحدد الخلية التي تريد على أساسها إحداث التغير .. وثانياً يفضل إلغاء خاصية EnableEvents ..وثالثاً أحاول دائماً قدر الإمكان الابتعاد عن الحلقات التكرارية ..

تقبل تحياتي

[عبدالسلام ابوالعوافي]

استاذنا ياسر .. لم اقصد ايجاد حل للسؤال بقدر ما اردت اضفاء جو من المرح والتحدي  .. احببت المشاركة بكود اقصر مايكون ويؤدي الغرض .. لان التحدي في قصر الكود .. ولو كان التحدي في الاحترافية لاستخدمنا error handler واكود التسريع كما تفضلت .. اتمنى ان يفهم كلامي كما قصدت .. تقبل مروري استاذنا الفاضل 

[ياسر خليل أبو البراء]

أخي وحبيبي عبد السلام

وماذا عن روح التحدي ؟! أليست روح جميلة مثلها مثل روح التعاون ..نحن نسعى لنتعلم من بعضنا البعض ، والمستفيد هو الجميع في النهاية وليس صاحب الموضوع فحسب ..

أنا على الدوام أسعى للحلول المختلفة .. ولو بحثت بالمنتدى ستجد فكرة للأسف توقفت وهي أن كل أسبوع كان مخصص لبحث موضوع معين ، والكل يشارك فيه .. وبصراحة كان موضوع متميز ، لكن يبدو أن الأعضاء لم يطالبوا به وانشغلت قليلاً فتوقف موضوع البحث ....

تقبل تحياتي

[احمد يسري]

جزاكم الله خيرا جميعا وتشرفت بهذا المنتدي الرائع والاشخاص الرائعه والمميزه 

كل الشكر لكم ولمنتداكم 

[ياسر خليل أبو البراء]

وجزيت خيراً أخي الكريم أحمد بمثل ما دعوت لنا

وأهلاً بك بين إخوانك وأسرتك

تقبل تحياتي