دالة للبحث و احضار المعلومات

[ربا]

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

 

اخواني و اخواتي بالمنتدى المميز

اسعد الله اوقاتكم بكل خير ،،،

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

1.       يوجد 3 شيتات من البيانات لسنوات سابقة

2.       يوجد شيت النتيحة للرقم المراد التحري عنه وهي أن يضع اسم الخلية و اسم الصفحة

الهدف من الكود :

السرعة بأنجازأي عملية بحث لارقام محددة وعدم استخدام دالة البحث F

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

 

مثال.rar

تم تعديل يناير 28, 2016 بواسطه دغيدى
تنسيق الخط

[الصـقر]

الاخت الفاضله ربى

جربى المرفق هل هو طلبك 

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

وممكن تسحبى المعادلات اللى بالعمود B & C  لاسفل الى ما تريد من صفوف

تقبل تحياتى

========================================================

 

 

 

مثال.zip

[ربا]

اخي الفاضل الصقر 

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

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

[ياسر خليل أبو البراء]

الأخت الكريمة ربا

إليك الكود التالي عله يفي بالغرض

Sub SearchSheets()
    Dim Cel As Range, strSheet As String, strAddress As String
    
    For Each Cel In Sheet4.Range("B3:B" & Sheet4.Cells(Rows.Count, 2).End(xlUp).Row)
        strSheet = Cel.Value: strAddress = Cel.Offset(, 1).Value
        If Evaluate("ISREF('" & strSheet & "'!A1)") And strAddress <> "" Then Cel.Offset(, -1).Value = Sheets(strSheet).Range(strAddress).Value
    Next Cel
End Sub

 

 

[رجب جاويش]

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

هذا كود آخر

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long, x As Long, i As Integer, D As Boolean
Dim ws As Worksheet, cl As Range
'==================================================
If Target.Address = [A3].Address Then
x = Val([A3])
For i = 1 To 3
    LR = Sheets(i).Range("A10000").End(xlUp).Row
    For Each cl In Sheets(i).Range("A1:A" & LR)
        If cl = x Then
            [B3] = Sheets(i).Name
            [C3] = cl.Address(0, 0)
            D = True
            Exit For
        End If
    Next
Next
If Not D Then Range("B3:C3") = "رقم غير موجود"
End If
End Sub

 

مثال2.rar

[رجب جاويش]

أخى الصقر

أخى ياسر

ما فهمته أنا من سؤال الأخت الفاضلة كالاتى :

يوضع رقم فى الخلية A3 

ثم يتم البحث عنه وعند ايجاده يتم وضع اسم الصفحة التى يوجد بها فى الخلية B3 واسم الخلية الذى يوجد بها الرقم فى الخلية C3

[الصـقر]

بعد اذن استاذى الفاضل / رجب جاويش والاستاذ الفاضل / ياسر خليل

مرفق حل اخر باستخدام الاكواد بالفورم

يتم كتابه الرقم المطلوب فى التكست بوكس باللون الابيض وشاهد النتائج فى اليست بوكس باللون الاصفر

ولاظهار الفورم يتم الضغط على f6   سيظهر الفورم 

تقبلوا تحياتى

========================================

 

مثال.zip

[ياسر خليل أبو البراء]

أخي وحبيبي في الله حسام

اسمح لي أن أصفق لك بحرارة (خصوصاً إن الجو برد والتصفيق في هذه الحالة سيشعرني بالدفء)

صراحة والله عمل رائع وجميل والفورم مفيد جداً للبحث .. جزيت خيراً على هذه الهدية القيمة ولا حرمنا الله منك ولا من هداياك الثمينة (بالثاء وليس بالسين)

 

الأخت الفاضلة ربا

هل يمكن أن يتكرر الرقم في أكثر من ورقة عمل .. إذ أن الكود المقدم من أخونا رجب يعتمد على ايجاد أول قيمة للبحث فقط ، فهل هذا هو المطلوب ؟

 

الأخ الحبيب رجب جاويش

كود رائع وجميل ولكن كما أسلفت يبحث عن أول قيمة فقط ..ماذا لو كان هناك أكثر من قيمة في أكثر من ورقة وربما كانت القيمة أكثر من مرة في الورقة الواحدة ؟؟

تقبلوا تحياتي

 

[نايف - م]

يا سلام

شو هالكود أستاذ ياسر

روعة

يعني : نضع الكود في مودول ثم نكتب الرقم المراد البحث عنه ثم نشغل الكود

 

[الصـقر]

اخى الحبيب والغالى ابوالبراء

هذه نقطه فى بحر علمكم الفياض

وما العبد الا قطره فى بحر علمكم

اسعد الله صباحك بكل خير

تقبل تحياتى

====================

 

[ياسر خليل أبو البراء]

14 دقائق مضت, نايف - م said:

يا سلام

شو هالكود أستاذ ياسر

روعة

يعني : نضع الكود في مودول ثم نكتب الرقم المراد البحث عنه ثم نشغل الكود

 

أخي الكريم نايف

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

الكود المقدم من قبل أخونا رجب يقوم بالبحث عن الرقم وجلب اسم ورقة العمل وعنوان الخلية ، وكذلك الفورم الرائع الذي قدمه أخونا حسام يقوم بنفس المهمة

يعني تجيبها كدا شغالة وكدا شغالة ..

تقبل تحياتي

[رجب جاويش]

أخى الصقر

بالفعل فورم جميل ورائع تسلم ايديك

أخى ياسر

أنا فعلا أعتمدت فى الكود على ان الارقام غير مكررة

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

 

[ربا]

يسعد صباحكم جميعا 

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

كما ان الارقام بالشيتات لا تتكرر نهائيا 

لكم مني جميعا كل تحية

تم تعديل يناير 31, 2016 بواسطه ربا

[قلم-الاكسل(عبدالعزيز)]

يا اخت ربا انتي اطرحي مبتغاك وطلبك بشيء من التفصيل الممل

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

 

تم تعديل يناير 31, 2016 بواسطه قلم-الاكسل(عبدالعزيز)

[ياسر خليل أبو البراء]

الأخت الكريمة ربا

يفضل دائماً أن يكون الملف المرفق معبر عن الملف الأصلي بشكل كبير حتى يسهل عليك التعديل على الكود

هل قمت بتجربة الأكواد المقدمة أم أنك واجهت صعوبة في تنفيذها ...إذا كان الأمر كذلك يمكنك إرفاق الملف الأصلي للعمل عليه وإن شاء الله ستجدين المساعدة كما أخبرك أخونا العزيز قلم الإكسيل عبد العزيز ...

تقبلوا تحياتي

[ربا]

صباح الخير للجميع واسعد الله ايامكم بكل خير

اخي السيد ابو البراء انتو ما قصرتو معي و ساعدتوني وانا بقدر هادا الشي وممتنه لاهتمامكم و رحابة صدركم ، وعزيزي السيد عبد العزيز سامحك الله - لم تكن معلوماتي مملة بالعكس ارت ان تكون ميسرة و قريبة للاستيعاب ، وربي يجعل تعاونك بالمنتدى بميزات حسناتك .

قال صلى الله عليه وسلم: (وعَوْنُكَ الضعيفَ بِفَضْلِ قُوَّتِكَ صدقة)

[الصـقر]

الاخت الفاضله ربا

يبدو انك فهمتى كلام الاخ عبدالعزيز خطأ هو يقصد انك تطلبى ما تشاء وان طلبك يكون بالتفاصيل الممله يعنى هو يقصد ان طلبك مش واضح وغير مصحوب بالتفاصيل

فهو يطلب منك انك توضحى لنا ادق التفاصيل حتى الممله من وجهة نظرك فهى لنا قد تكون النور اللى نفهم فيه طلبك ونقدر نقدم لك الحل

قد تكون معلومه بالنسبه لك صغيره لكن بالنسبه لنا لو عرفناها من خلالها نقدر نفهم طلبك بشكل ادق ونساعدك فى اسرع وقت

فأنا اضم صوتى لصوت الاخ عبدالعزيز من فضلك قولى طلبك مصحوب بالتفاصيل الممله وشكل النتائج المتوقعه 

منتظرين التفاصيل الممله منك 

تقبل تحياتى

=======================================