تعديل على كود البحث لاضافة ناتج البحث فى اعمدة محدده و ليس كامل الشيت

[جلال الجمال_ابو أدهم]

تحياتى 
مرفق كود بحث و اضافه لـ أ / عبدالله باقشير بالمشاركة_ فورم بحث مرن بامكانك استخدامه بدلا من القائمة المنسدلة

و يقوم باضافة ناتج البحث فى اى خلية نشطه مختارة فى كامل الشيت

و مطلوب تعديل على الكود

على ان يكون اضافة البحث فى اى خلية مختارة ( فى اعمدة معينه )

مثلا فى العمود A  و H  و J فى SHEET2

تحياتى

مرفق الملف

 

بحث.rar

[أبو عبد النور]

السلام عليكم،

 

كيف يتم اختيار الخلية التي ستضع بها نتيجة البحث ؟

[جلال الجمال_ابو أدهم]

أبو عبد النور

اى خلية نشطة مختارة فى الاعمدة   A  و H  و J فى SHEET2

تحياتى

تم تعديل نوفمبر 22, 2016 بواسطه جلال الجمال_ابو أدهم

[أبو عبد النور]

كتجربة، قم بتعويض كود Private Sub ListSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

بهذا الكود :

Private Sub ListSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = True
    With Sheets("sheet2")
        .Select
        For Each cl In Array(1, 8, 10)
            MsgBox ActiveCell.Column
            If ActiveCell.Column = cl Then ActiveCell.Value = Me.ListSearch.Value
        Next
    End With
End Sub

 

[جلال الجمال_ابو أدهم]

أبو عبد النور

شاكر لاهتمامك ولكن عن التجربة يعطى خطأ

و يمكن تطبيقه لمعرفة الخطأ

تحياتى

[أبو عبد النور]

بعد النقر على احد سطور البحث، يتم نقل المحتوى الى الخلية المفعلة في الورقة2 وفي الاعمدة A او H او J  فقط.

هذا ما كنت تريده ؟

[جلال الجمال_ابو أدهم]

أبو عبد النور

شاكر لاهتمامك

و ما اريده هو وضع ناتج البحث بالخلية المختارة مباشرة فى الاعمدة المحددة
دون رسائل

تحياتى

مرفق الملف

بحث.rar

[أبو عبد النور]

هل هذا يناسبك ؟

بحث.rar

[جلال الجمال_ابو أدهم]

أبو عبد النور

تحياتى 
الملف لا يفتح و يقوم بغلق الاكسيل

[أبو عبد النور]

اعدت فتحه من جديد ويعمل لدي بصورة عادية.

اذا ما يزعجك هو رسائل التنبيه قم بحذف السطر :

MsgBox ActiveCell.Column

من الكود.

[جلال الجمال_ابو أدهم]

أبو عبد النور

اخى الفاضل

شكرا لاجتهادك و جزاك الله خيرا
و سيتم اعادة الرفع للمحاولة مرة اخرى