رعد داود قام بنشر يونيو 26, 2008 مشاركة قام بنشر يونيو 26, 2008 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ارفق هذا الملف وفيه خلاصة من بعض اعمال الاساتذة ارجو ان يتم الاستفادة منه من الاخوة وان كان مفيدا سيتم التواصل لجمع هذه الاعمال __________.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يونيو 26, 2008 مشاركة قام بنشر يونيو 26, 2008 السلام عليكم و رحمة الله وبركاته اخي الفاضل واستاذي القدير رعد داوود شكرا جزيلا على هذا الملف الرائع وفي انتظار المزيد جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يونيو 26, 2008 مشاركة قام بنشر يونيو 26, 2008 الأستاذ الفاضل : RAAD ألف شكر على هديتك الغالية و التى تحوى دالة بحث طالما بحثت عنها بالمنتدى أرجو منك بعض التوضيح بخصوص توسيع مدى بحث الدالة و كذالك كيفية نسخها فى ملف آخر هنا دالة بحث افضل من دالة VLOOKUPوهي من عمل الاستاذ هادي وبامكانك التوسيع من جلب البيانات او تقليلها حسب ماتشاء بنسخ الجملة الاخيرة من الكودوتغيير مجال الخلايا الى D,F..او بحذف الجملة الاخيرة وماقبله لتنقل عمودين فقط والكود يكتب في ورقة تثبيت الاسماء والكود الاخر الاكبر في الورقة المراد عرض المعلومات فيها مطلوب مزيد من الشرح و التوضيح لهذا الكلام رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يونيو 27, 2008 مشاركة قام بنشر يونيو 27, 2008 الأستاذ الفاضل : RAAD السلام عليكم و رحمة الله وبركاته ما زلت فى انتظار الرد و الشرح ضرورى جدااااااااااااااااااااااااااااااا و لكم الشكر رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر يونيو 28, 2008 الكاتب مشاركة قام بنشر يونيو 28, 2008 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أخي العزيز aysam المحترم أنا في خدمتكم ارجو أمهالي لكي أعمل لكم شرح على توسيع النطاق لليحث لكوني حاليا مشغول بأعمال أخرى وانشاء الله اكون في خدمتكم رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر يونيو 28, 2008 الكاتب مشاركة قام بنشر يونيو 28, 2008 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)اذا لم يكن لديك العموداو لاتحب ان يظهر وهكذا ارجو ان تكون الفكرة واضحة هذا الرد على عجالة تلبية لطلبك واذا غير واضح ساشرح بالتفصيل رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يونيو 28, 2008 مشاركة قام بنشر يونيو 28, 2008 الأستاذ الفاضل : RAAD السلام عليكم و رحمة الله وبركاته ألف شكر على هديتك الغالية و على الشرح نسخت الكود الى ملفى و يعمل بشكل جيد ألف شكر مرة اخرى ولكن لى طلب الكود يعمل على البحث فى كل ملف الاكسل (Set my search = .Find(S, Look at:=xlwhole ) الا يمكن ان يتم تحديد مدى البحث ليكون بمعلومية عمود واحد انا فى انتظار حضرتك حتى تفرغ من كل اعمالك و لو الى حين جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يونيو 28, 2008 مشاركة قام بنشر يونيو 28, 2008 السلام عليكم اخي الحبيب RAAD الملف رائع يا اخي و منتظرين ابداعات اكبر ان شاء الله خالص تحياتي و الي الامام رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر يونيو 29, 2008 الكاتب مشاركة قام بنشر يونيو 29, 2008 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاخ aysam المحترم اذا كان مقصودك هو جلب معلومات عمود واحد مثلا فقط معلومات عمود b بامكانك في الكود تكتب فقط range b والباقي تحذفه ان كان هذا قصدك والا ارفق ملف لنعرف مالمقصود وشكرا لكم رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يونيو 29, 2008 مشاركة قام بنشر يونيو 29, 2008 الأستاذ الفاضل : RAAD السلام عليكم و رحمة الله وبركاته ألف شكر مرة اخرى مرفق ملف كما امرت وبه توضيح المطلوب جزاكم الله خيرا على صبرك علي Book1.rar Book1.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يونيو 29, 2008 مشاركة قام بنشر يونيو 29, 2008 (معدل) السلام عليكم testt.rar تم تعديل يونيو 30, 2008 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر يونيو 30, 2008 الكاتب مشاركة قام بنشر يونيو 30, 2008 بسم الله الرحمن الرحيم السلام عليكم ورحمة وبركاته استاذنا العزيز ابو اسامة المحترم مشكور على هذه المشاركة الطيبة وفقكم الله لمرضاته رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.