طلب ماكرو لعمل بحث عن كلمة فى صف معين

[bishoy_1900]

السلام عليكم ورحمة الله وبركاته

 

أريد مساعدة أحد الأعضاء الأفاضل فى عمل ماكرو للبحث عن اسم او رقم فى صف معين.

مثلاً صف يحتوى على عدة أسماء ، اريد ماكرو للبحث عن أسم معين.

وصف آخر يحتوى على أرقام ، أريد ماكرو آخر للبحث عن رقم معين.

 

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

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

تم تعديل ديسمبر 30, 2013 بواسطه bishoy_1900

[bishoy_1900]

للرفع ...

أرجو المساعدة

[أبو حنــــين]

السلام عليكم

ارسل ملفا يحتوي على بعض البيانات و فيه شرح لما تريد

[bishoy_1900]

السلام عليكم

ارسل ملفا يحتوي على بعض البيانات و فيه شرح لما تريد

تفضل أخى الملف فى المرفقات

Request.rar

[أبو حنــــين]

السلام عليكم

اذا كان طلبك كما في المرفق

فيكفي ان تضغط على   (  كنترول + F  )   للوصول الى مربع البحث

[شوقي ربيع]

السلام عليكم

بعد اذن الاستاد العزيز أبو حنين

وللافادة

هذا كود يبحث عن اسم او رقم او اي شىء في ورقة العمل وفي اي عمود كان

حيث انه أولا يتم اختيار عمود البحث بواسطة InputBox ثم يأخذك الى الخلية التي فيها ماتبحث عنه

يمكن استعمال هذا الكود بعد التعديل عليه في مهام اخرى كالتعديل او ماشابه

Sub Test()
Dim sh As Worksheet
Dim Lr As Long
Dim i As Integer
Dim Name As String, Clon As String

Set sh = ThisWorkbook.Sheets("Sheet1")
1    Clon = InputBox(prompt:="اختيار عمود البحث.", _
          Title:="اختيار عمود", Default:="اكتب اسم العمود الذي تريد البح فيه هنا")
          
          
     If Clon Like "[A-z]" Then
        Lr = sh.Cells(sh.Rows.Count, Clon).End(xlUp).Row
        GoTo 2
     Else
        MsgBox " A-Z يجب ان تكون الحروف "
        GoTo 1
     End If
          
2    Name = InputBox(prompt:="ادخل الاسم او الرقم ", _
          Title:=" بحث حسب العمود المختار", Default:="اكتب الاسم او الرقم الذي تبحث عنه هنا")

For i = 1 To Lr
    If sh.Range(Clon & i) = Name Then
        sh.Range(Clon & i).Select
        Exit For
    ElseIf i = Lr Then
MsgBox "الاسم الذي ادخلته غيرموجود"
    End If
Next

End Sub

تحياتي للجميع

بحث حسب العمود.rar

[bishoy_1900]

شكراً جزيلاً لكم جميعاً

[bishoy_1900]

السلام عليكم

اذا كان طلبك كما في المرفق

فيكفي ان تضغط على   (  كنترول + F  )   للوصول الى مربع البحث

هل هناك ماكرو او كود لتشغيل خاصية البحث هذه بإستخدام (Ctrl+F) اى اننى اريد ان اصنع زر بمجرد الضغط عليه يشغل (Ctrl+F)

[أبو حنــــين]

نعم

استعمل هذا

Sub sFind()

Application.SendKeys ("^f")

End Sub

[أبو حنــــين]

مثال

 

مثال.rar

[bishoy_1900]

 

نعم

استعمل هذا

Sub sFind()

Application.SendKeys ("^f")

End Sub

 

 

مثال

شكراً جزيلاً لك هذا بالضبط ما أريده ، شكراً لك .