محتاج كود بحث وانتقال بين مجموعه من الشيتات

[flash012]

السلام عليكم

عندى ملف اكسل خاص بحسابات مجموعة من الموردين ولكن اصبح عدد المودين كبير

وانا بحاجه لكود اضغه فى الصفحة الرئيسية واكتب رقم الصفحة او الشيت الخاص بالمود ليظهر امامى الصفحة الخاصة بالمورد

مثل ازرار البحث يعنى مربع لكتابه رقم المورد وزر للبحث فيظهر صفحة المورد

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

مثل الصورة

تم تعديل أكتوبر 6, 2012 بواسطه flash012

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

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

التنقل بين الصفحات.rar

[flash012]

شكرا اخى العزيز لكن المطلوب هو كود بحث اى عندما اكتب رقم المورد فى خانه البحث يظهر لى الشيت الخاص بالمورد

[flash012]

ارجو سرعة الرد اذا كان ما اطلبه موجود بالفعل

[عبدالله باقشير]

السلام عليكم

ممكن هذا

افتراضا دي 5

الخلية المكتوب فيها اسم المورد

Sub GO_TO11()

Dim sh As Worksheet

  For Each sh In ThisWorkbook.Worksheets

    If sh.Name = CStr(Range("d5")) Then

        sh.Activate

    End If

  Next

End Sub

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

و هذا كود آخر بطريقتين بعد اذن اخي عبد الله

5.rar

[flash012]

مشكور اخى كتيير وجزاكم الله خيرا جميعا

[flash012]

عذرا اخى انا من المبتدئين ارجو توضيح مفصل للطريقة التانية

[flash012]

رجاء اخى سرعة الرد مع العلم ان الطريقة مجدية وانا اريد تطبيقها على عدد 1000 مورد

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

هذا شرح اخي للكود

ولو وضعت مثالا للعمل عليه لكان اسهل لك و للاخوة الاعضاء للادلاء بآرائهم

الشرح

Sub recherche()

'*************************************************************************************************************

' ان وجد خطأ ما ، فأكمل الكود الى آخره

On Error Resume Next

'*************************************************************************************************************


'*************************************************************************************************************

'هذه حلقة تكرار و ثمثل عدد الموردين انا استعملت 6 لان عدد الموردين = 6 في هذا المثال

For t = 1 To 6

'*************************************************************************************************************


'*************************************************************************************************************

' E9 اذا كانت القيمة المكتوبه الخلية

' E تساوي احدى القيم الموجودة في عمود الرقم في الصفحة الرئيسية و هو العمود

If Range("E9").Value = Cells(t + 1, 5).Value Then

'*************************************************************************************************************


'*************************************************************************************************************

' فإنه ان وجد هذه الخلية يحدد الخلية التي على يسارها مباشرة و التي تمثل اسم المورد و في نفس الوقت اسم الورقة

' ثم يقوم بالذهاب الى هذه الورقة

Sheets(Cells(t + 1, 5).Offset(0, -1).Text).Select

'*************************************************************************************************************


'*************************************************************************************************************

' أكمل حتي نهاية العدد 6

End if

Next

'*************************************************************************************************************

End Sub

[flash012]

هذا شرح اخي للكود

ولو وضعت مثالا للعمل عليه لكان اسهل لك و للاخوة الاعضاء للادلاء بآرائهم

الشرح

Sub recherche()

'*************************************************************************************************************

' ان وجد خطأ ما ، فأكمل الكود الى آخره

On Error Resume Next

'*************************************************************************************************************


'*************************************************************************************************************

'هذه حلقة تكرار و ثمثل عدد الموردين انا استعملت 6 لان عدد الموردين = 6 في هذا المثال

For t = 1 To 6

'*************************************************************************************************************


'*************************************************************************************************************

' E9 اذا كانت القيمة المكتوبه الخلية

' E تساوي احدى القيم الموجودة في عمود الرقم في الصفحة الرئيسية و هو العمود

If Range("E9").Value = Cells(t + 1, 5).Value Then

'*************************************************************************************************************


'*************************************************************************************************************

' فإنه ان وجد هذه الخلية يحدد الخلية التي على يسارها مباشرة و التي تمثل اسم المورد و في نفس الوقت اسم الورقة

' ثم يقوم بالذهاب الى هذه الورقة

Sheets(Cells(t + 1, 5).Offset(0, -1).Text).Select

'*************************************************************************************************************


'*************************************************************************************************************

' أكمل حتي نهاية العدد 6

Next

'*************************************************************************************************************

End Sub

كيف ازيد عدد الموردين هذا كل ما اريد معرفته وشكرا لك

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

لو فرضنا ان عدد الموردين هو 50 كل مورد لع اسم معين فيكون الملف يحتوي على 50 صفحة باسم كل مورد

مثلا لو كان اسم المورد هو محمد فيجب وجود صفحة اسمها محمد

و كود المورد يكون بجوار الاسم اي الاسم ثم كود المورد

في هذه الحالة ما يتغير في الكود هو هذا السطر :

For t = 1 To 6

تصبح بالشكل :

For t = 1 To 50

مع ملاحظة موقع الاسم في العمود D

و موقع كود المورد في العمود E

اخي ارسل مثالا و ان كان ملفك يحتوي على اشياء لا تريد ظهورها هنا فأرسل نموذجا يشبه ملفك الاصلي ببيانات وهمية ليتم العمل بطريقة صحيحة

تحياتي

[flash012]

شكرا اخى الكريم جزاك الله خيرا نجحت فى اتمام الامر ولك جزيل الشكر

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

الحمد لله و هذا مبتغانا

[يوسف عطا]

هذا شرح اخي للكود

ولو وضعت مثالا للعمل عليه لكان اسهل لك و للاخوة الاعضاء للادلاء بآرائهم

الشرح

Sub recherche()

'*************************************************************************************************************

' ان وجد خطأ ما ، فأكمل الكود الى آخره

On Error Resume Next

'*************************************************************************************************************


'*************************************************************************************************************

'هذه حلقة تكرار و ثمثل عدد الموردين انا استعملت 6 لان عدد الموردين = 6 في هذا المثال

For t = 1 To 6

'*************************************************************************************************************


'*************************************************************************************************************

' E9 اذا كانت القيمة المكتوبه الخلية

' E تساوي احدى القيم الموجودة في عمود الرقم في الصفحة الرئيسية و هو العمود

If Range("E9").Value = Cells(t + 1, 5).Value Then

'*************************************************************************************************************


'*************************************************************************************************************

' فإنه ان وجد هذه الخلية يحدد الخلية التي على يسارها مباشرة و التي تمثل اسم المورد و في نفس الوقت اسم الورقة

' ثم يقوم بالذهاب الى هذه الورقة

Sheets(Cells(t + 1, 5).Offset(0, -1).Text).Select

'*************************************************************************************************************


'*************************************************************************************************************

' أكمل حتي نهاية العدد 6

End if

Next

'*************************************************************************************************************

End Sub

كود رائع و شرح أروع

[flash012]

السلام عليكم مره اخرى اخى الكريم

هذا هو الملف المرفق الكود والطريقة التى قمت بشرحها جيدة جدا ولكن

هناك مشكله صغيرة انه لكى انشا مورد جديد يجب ان اسمى الشيت باسمه وهذا مزيد من الوقت وربما يحدث خطا فهل هناك طريقة اخرى للبحث

وانشاء كود ولكن من دون ربط اسم الشيت باسم المورد بهذا الشكل بحث لو تغير اسم الشيت لا يتلف البحث

او ان يكون الشيت بنفس اسمه المضاف به

رصيد الموردين.rar

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

الملف محمي بكلمة مرور

[flash012]

الملف محمي بكلمة مرور

متاسف اخى كلمه المرو هى رقم ( 22 )

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

أخي : / flash012

أرجو ان ترسل الملف بأصدار 2003 و بدون حماية

[flash012]

[flash012]

هذا هو الملف باصدار 2003

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

لقد ارسلت لك الصفحة الرئيسية من ملفك لانني لم استطع تحميله نظرا لكبر حجمه

لكنني قمت بالشرح داخل الملف

نفذ الخطوات على ملفك الاصلي

Book1.rar

[رعد العزاني]

شكرا جزيلا لأستاذنا الغالي ابو حنين

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

[flash012]

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

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

العفو أخي رعد العزاني

العفو أخي flash012