اذهب الي المحتوي
أوفيسنا

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

جلال الجمال_ابو أدهم
 مشاركة

الردود الموصى بها

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

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

قام بنشر
قام بنشر

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

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

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

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

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

تحياتى

مرفق الملف

 

بحث.rar

أبو عبد النور

أبو عبد النور

قام بنشر
قام بنشر

كتجربة، قم بتعويض كود 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

 

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع
×
×
  • اضف...

Important Information

  I accept