مطلوب فورم بسيط للبحث والحصول علي رقم معين في عمود A

[سما محمد]

السلام عليكم

الاساتذة الافاضل

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

1

2

3

1200

1201

3250

 

المطلوب هو عند الضغط علي الزر الموجود بالصفحة يظهر فورم ( الفورم موجود بالملف .. ويمكن تغييره )

او شاشة اقوم بكتابة الرقم الذي اريد الانتقال اليه

مثلا 1200 وعند الضغط موافق يتم الانتقال الي هذا الرقم مباشرة  ليتم بعد ذلك الادخال في نفس الصف الذي تم الانتقال اليه

ارجو ان يكون طلبي واضح لسيادتكم

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

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

 

 

كود للبحث عن رقم.rar

[رجب جاويش]

تفضل أختى الفاضلة

Private Sub CommandButton1_Click()
Set Rng = Sheets("Sheet1").Range("A6:A214")
For Each cl In Rng
    If Val(Me.TextBox1.Value) = Val(cl) Then
        Cells(cl.Row, 1).Select
        Unload Me
    End If
Next
End Sub

كود للبحث عن رقم.rar

[رجب جاويش]

وهذا كود آخر

Private Sub CommandButton1_Click()
On Error Resume Next
Cells(Range("A6:A214").Find(Val(Me.TextBox1)).Row, 1).Select
Unload Me
End Sub

كود للبحث عن رقم1.rar

[سما محمد]

الاستاذ القدير / رجب جاويش

شكرا جزيلا لك استاذي الفاضل

ولا اجد من الكلمات ما ارد به علي روعة ردك وسرعة اجابة الطلب

جزيل الشكر لك

 

وبالفعل الكود يعمل تماما كما اريد بالضبط ولكن من روعة الكود قد زاد طمعي في كرمكم

هل يمكن ظهور رساله عندما يكون الرقم غير موجود في العمود المحدد تفيد بذلك

مع كامل علمي انه لاشئ مستحيل معكم

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

[سما محمد]

الاستاذ القدير هل يمكن التغيير في الكود الي التالي

حتي يعمل علي اي ورقة في الملف دون تحديد الورقة في الكود باستبدال Sheets("Sheet1")  بـــ  ActiveSheet

Private Sub CommandButton1_Click()
Set Rng = ActiveSheet.Range("A6:A10000")
For Each cl In Rng
    If Val(Me.TextBox1.Value) = Val(cl) Then
        Cells(cl.Row, 1).Select
        Unload Me
    End If
Next
End Sub

وفي انتظار الرد بخصوص الرسالة التي تفيد بان الرقم غير موجود بهذه القائمة

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

[رجب جاويش]

الأخت الفاضلة / سما محمد

استبدلى الكود السابق بالكود التالى

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

[حمادة عمر]

منتهي منتهي الروعة

استاذنا العملاق / رجب جاويش

دائما نسير وراء مشاركاتك لنتعلم منها ونستزيد

والاجمل هي سرعة مساعدتك للجميع

زادك الله من فضله ومن علمه

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

تم تعديل يونيو 14, 2013 بواسطه حمادة عمر

[سما محمد]

الف الف مليون شكر للك استاذنا

واجمل لقب لك استاذ / رجب جاويش

هو كما قال الاستاذ الكبير / حمادة عمر

هو الاستاذ العملاق   فعلا

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

[رجب جاويش]

أخى الحبيب / حمادة عمر

شرف كبير لى مرورك العطرعلى هذا الموضوع

وأسعد دائما بهذا المرور العطر والكلمات الطيبة من شخصك الكريم

[رجب جاويش]

أختى الفاضلة / سما محمد

الحمد لله أن وفقنى ربى لإكمال العمل كما تريدين

وجزاك الله كل خير على هذه الكلمات الطيبة العطرة

[أبو محمد عباس]

بسم الله الرحمن الرحيم

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

الاستاذ والاخ الحبيب رجب جاويش حفظكم الباري عز وجل ورعاكم

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

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

 

[Dalin]

استاذي الكريم رجب جاويش ...

دائما تذهلنا بأفكارك وعلمك وتواضعك ...

اسمح لي بسؤال عن الملف السابق الذي ارفقته الاخت سما تحياتي لها ...

انه في حال بحثت عن الرقم 33 يعطيني الرقم 1533 والمفروض ان يعطيني الرقم الذي تبحث عنه غير موجود- كما في التعديل الاخير- ولا يأخذ قسم من رقم اخر

وسؤال اخر واعذرني ان اثقلت عليك .. في حال انه في العمود اسماء وليست ارقام ما هو الكود للبحث عن اسم ؟..

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

تم تعديل يونيو 15, 2013 بواسطه الفصول الأربعة

[رجب جاويش]

أخى الحبيب / عباس الساوي

تشرفت جدا أخى الحبيب بمرورك العطر وكلماتك الطيبة

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

[رجب جاويش]

الأخت الفاضلة / الفصول الأربعة

شكرا جزيلا أختى الفاضلة

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

 

بالنسبة لطلبك الأول

يتم استبدال السطر

x = Rng.Cells.Find(Val(Me.TextBox1.Value)).Activate

بالسطر التالى

x = Rng.Cells.Find(Me.TextBox1.Value, LookAt:=xlWhole, MatchCase:=True).Activate

أما بالنسبة للطلب الثانى الخاص بالبحث عن الأسماء

يكون الكود كالآتى

Private Sub CommandButton1_Click()
Set Rng = ActiveSheet.Range("A6:A10000")
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

[Dalin]

جزاك الله كل خير استاذي رجب

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

[رجب جاويش]

الأخت الفاضلة / الفصول الأربعة

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

[صابر حمزه]

شكرا جزيلا الاستاذ الفاضل / رجب جاويش

 

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

[رجب جاويش]

أخى الفاضل / صابر

جزاك الله كل خير أخى الفاضل على هذا الدعاء الطيب

[إبراهيم ابوليله]

اخى الحبيب رجب

بارك الله فيك

واكواد رائعه جدا

وصبر طويل على السائل كما تعودنا منك

بارك الله فيك

[رجب جاويش]

أخى الحبيب / ابراهيم

جزاك الله كل خير على هذه الكلمات الطيبة العطرة