كود بحث فى عمود محدد والذهاب الى الخليه

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوه الافاضل

هلى يمكن عمل كود بحث فى نطاق محدد او عمود محدد ( من AJ 22 الى  AJ 3000

وعند الكتابة فى الخليه AL1  يتم البحث عما فى الخليه ... واذا وجدت يذهب ويقف على الخليه

وان لن توجد ... تظهر رساله الرقم غير موجود

ارجو ان تكون الفكرة واضحه

 

جزاكم الله خيرا

 

[حمادة عمر]

الاخ الكريم / ابو حنين

لو ارفقت ملف سيكون افضل بكثير كمثال لما تريده بالضبط لايضاح الصورة اكثر

وحسب فهمي لطلبك

استخدم الكود التالي ... ارجو ان يفي بطلبك

Private Sub CommandButton1_Click()
Set Rng = ActiveSheet.Range("Aj22:Aj3000")
On Error Resume Next
x = Rng.Cells.Find(Me.TextBox1.Value, LookAt:=xlWhole, MatchCase:=True).Activate
Unload Me
If x = Empty Then MsgBox "الرقم الذي تبحث عنه غير موجود ", vbOKOnly, "رقم غير موجود"
End Sub

واليك المرفقات

2003

 

 

البحث في نطاق محدد ( عمود ) والذهاب لنتيجة البحث.rar

[حمادة عمر]

الاخ الكريم / ابو حنين

لو ارفقت ملف سيكون افضل بكثير كمثال لما تريده بالضبط لايضاح الصورة اكثر

وحسب فهمي لطلبك

استخدم الكود التالي ... ارجو ان يفي بطلبك

Private Sub CommandButton1_Click()
Set Rng = ActiveSheet.Range("Aj22:Aj3000")
On Error Resume Next
x = Rng.Cells.Find(Me.TextBox1.Value, LookAt:=xlWhole, MatchCase:=True).Activate
Unload Me
If x = Empty Then MsgBox "الرقم الذي تبحث عنه غير موجود ", vbOKOnly, "رقم غير موجود"
End Sub

واليك المرفقات

2003

 

 

البحث في نطاق محدد ( عمود ) والذهاب لنتيجة البحث.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزيز مرفق الملف

على ان يتم العمل فى شيت card

tist.rar

[klma7lwa]

بعد اذن اخى الفاضل حمادة عمر

تفضل اخى الكريم طلبك بعد اضافة كود الاخ الفاضل حماده عمر وتعديل طفيف ليتناسب مع طلبك المرفق

tist.rar

[محمد ابو البـراء]

استاذ حمادة عمر

استاذ/klma7lwa

شكراً لكما على هذا العمل المتميز.... :fff: :fff:

[الخالدي]

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

بارك الله فيك استاذ حمادة عمر

ولإثراء الموضوع

ايضا يمكن استخدام الكود التالي

Private Sub Comb_Click()
On Error Resume Next
If Not [INDEX(Aj22:Aj3000,MATCH(AL1,Aj22:Aj3000,0),1)].Select Then MsgBox ("غيرموجود")
End Sub

في امان الله 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوه الافاضل

جزاكن الله خير

ورارجو توضيع اين يكون موضع الكود فى شيت CARD

شاكر للجميع حسن تعاونكم

تم تعديل يناير 14, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[محمود_الشريف]

ما شاء الله عليكم جميعا

من كم المواضيع الرائعه التى تقدموها لسائر الأعضاء وزوار المنتدى

لا أجد وقتا لمتابعه هداياكم 

الأستاذ القدير / حماده عمر

الأستاذ الرائع / أبو حنين

الأستاذ الفاضل / Klma7lwa

الأستاذ الكبير / الخالدي

بارك الله فيكم لإثرائكم الموضوع

وبارك فى الأستاذ الكريم / محمد 28 على مشاركته

وجزاكم جميعا عنا خير الخير

وتقبلوا وافر الإحترام والتقدير

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوه الافاضل

جزاكم  الله خير

ورارجو توضيع اين يكون موضع الكود فى شيت CARD

وكيفيه تصميم Comb

وذلك لحاجتىى اليه فى اكثر من عمل

شاكر للجميع حسن تعاونكم

[klma7lwa]

اخى الفاضل 

۩◊۩ أبو حنين ۩◊۩

تم وضع الكود فى احداثيات الشيت ويمكنك الضغط على Alt+F11 للدخول الى محرر الاكواد وبالضغط على احداثيات الشيت والذى هو لديك sheet6(CARD)  سوف تجد الكود 

اما بالنسبة لتصميم Comb فهو اختصار لCommandButton ويمكنك تسميته كيف تشاء فانا قمت باختصاره ب Comb ويمكن ادارجه من تبويب المطور )Developer( ثم ادراج ولا تسنى الضغط على وضع التصميم (Design Mode) اذا اردت التعديل على ال CommandButton 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى   klma7lwa

جزاك الله خيرا 

تم الوصول لامر

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

[أبو أنس80]

شي جميل بارك الله فيكم