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

[رعد داود]

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

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

ارفق هذا الملف وفيه خلاصة من بعض اعمال الاساتذة

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

سيتم التواصل لجمع هذه الاعمال

__________.rar

[احمدزمان]

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

اخي الفاضل واستاذي القدير رعد داوود

شكرا جزيلا على هذا الملف الرائع

وفي انتظار المزيد

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

[أيسم إبراهيم]

الأستاذ الفاضل : RAAD

ألف شكر على هديتك الغالية و التى تحوى دالة بحث طالما بحثت عنها بالمنتدى

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

هنا دالة بحث افضل من دالة VLOOKUPوهي من عمل الاستاذ هادي

وبامكانك التوسيع من جلب البيانات او تقليلها حسب ماتشاء بنسخ الجملة الاخيرة من الكودوتغيير مجال الخلايا الى D,F..او بحذف الجملة الاخيرة وماقبله لتنقل عمودين فقط والكود يكتب في ورقة تثبيت الاسماء والكود الاخر الاكبر في الورقة المراد عرض المعلومات فيها

مطلوب مزيد من الشرح و التوضيح لهذا الكلام

[أيسم إبراهيم]

الأستاذ الفاضل : RAAD

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

ما زلت فى انتظار الرد و الشرح

ضرورى جدااااااااااااااااااااااااااااااا

و لكم الشكر

[رعد داود]

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

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

أخي العزيز aysam المحترم أنا في خدمتكم

ارجو أمهالي لكي أعمل لكم شرح على توسيع النطاق لليحث

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

[رعد داود]

Private Const str As String = "قائمةالاسماء"

Private Sub Worksheet_change(ByVal Target As Range)
Application.ScreenUpdating = False

If Target.Column <> 1 Then Exit Sub

If Not Range("A" & Target.Row) = "" Then
     For i = 2 To Sheets(str).ER
         If Range("A" & Target.Row) = Sheets(str).Cells(i, "A") Then
            Range("B" & Target.Row) = Sheets(str).Cells(i, "B")
            Range("C" & Target.Row) = Sheets(str).Cells(i, "C")
            Range("D" & Target.Row) = Sheets(str).Cells(i, "D")
            End If
            Next i
        Else
            Range("A" & Target.Row).Offset(0, 1).ClearContents
        End If

        Application.ScreenUpdating = True

End Sub
في هذا الكودبامكانك الاضافة في المجال rangeمثلا تضيف هذا المجال  Range("D" & Target.Row) = Sheets(str).Cells(i, "D")بحيث dتغيرها الى fاذا كان عندك عمود في ورقةقائمة الاسماءوتريده ان يظهر وبالعكس تحذف مجالات الاعمدة من الكود (range)اذا لم يكن لديك العموداو لاتحب ان يظهر وهكذا ارجو ان تكون الفكرة واضحة هذا الرد على عجالة تلبية لطلبك واذا غير واضح ساشرح بالتفصيل 

[أيسم إبراهيم]

الأستاذ الفاضل : RAAD

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

ألف شكر على هديتك الغالية و على الشرح

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

ألف شكر مرة اخرى ولكن لى طلب

الكود يعمل على البحث فى كل ملف الاكسل (Set my search = .Find(S, Look at:=xlwhole )

الا يمكن ان يتم تحديد مدى البحث ليكون بمعلومية عمود واحد

انا فى انتظار حضرتك حتى تفرغ من كل اعمالك و لو الى حين

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

[عادل حنفي]

السلام عليكم

اخي الحبيب RAAD

الملف رائع يا اخي

و منتظرين ابداعات اكبر ان شاء الله

خالص تحياتي

و الي الامام

[رعد داود]

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

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

الاخ aysam المحترم

اذا كان مقصودك هو جلب معلومات عمود واحد مثلا فقط معلومات عمود b

بامكانك في الكود تكتب فقط range b والباقي تحذفه ان كان هذا قصدك

والا ارفق ملف لنعرف مالمقصود وشكرا لكم

[أيسم إبراهيم]

الأستاذ الفاضل : RAAD

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

ألف شكر مرة اخرى

مرفق ملف كما امرت وبه توضيح المطلوب

جزاكم الله خيرا على صبرك علي

Book1.rar

Book1.rar

[ابو اسامة العينبوسي]

السلام عليكم

testt.rar

تم تعديل يونيو 30, 2008 بواسطه ابو اسامة العينبوسي

[رعد داود]

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

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

استاذنا العزيز ابو اسامة المحترم

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

وفقكم الله لمرضاته