المشاركة الأصلية كتبت بواسطة: الصقر  » 
حياك الله استاذ ابراهيم واهلا بحضرتك للمنتدى

ولكن بعد الاطلاع على موضوعاتك داخل المنتدى وجدت فقط وجودك ومشاركاتك وتفاعلك كله داخل هذا الموضوع فقط

والمنتدى به ما يقرب من 1600 موضوع ارجوا ان تتفاعل مع الموضوعات الاخرى داخل المنتدى شعار المنتدى هو فيد واستفيد 

قد تكون معلومه صغيره بالنسبه لك لكن عند عضو اخر تكون جديده له ومفيده ايضا

ارجو ان تتقبل كلامى بصدر رحب 


اخى الفاضل

حسام خطاب

كل التحيه والتقدير لهذا المنتدى

ولكل اعضاءه

والقائمين عليه

ولكن ارجو التماس العزر لى اخى الحبيب

فكم اتمنى ان اكون متواجدا بكثره معكم

ولكن للاسف دائما ما تاتى السفن بما لا تشتهى الانفس

فضيق الوقت لدى شديد

اخرج مبكرا ف الثامنه ص

لاعود متاخرا ف العاشره مساء

على العموم

اشكرك على التوضيح

تقبل تحياتى

 
المشاركة الأصلية كتبت بواسطة: YasserKhalil  » 
رجاءً ارفق الملف الذي يعمل فيه الكود في وجود الفلترة للإطلاع عليه ..




اخى ياسر

الملف موجود ف المشاركه الاولى

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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

بالقعل اضافة سطر يلغى الفلتره

سينتج عنه الحصول على البيانات بصوره صحيحه

..................................................

ولكن اذا نظرنا الى الملف المرفق

ف المشاركه الاولى

وهو للاخ ياسر العربى

سنجد انه يعمل دون الحاجه لالغاء الفلتره

وهذا ما ابحث عنه

اى ما هو الخطأ فى الكود الذى لدى 

ف المشاركه 18

تقبل تحياتى

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

هذا ليس بطلب جديد

ولكنه مرتبط بالموضوع نفسه

وهو الكود الذى قدمه الاخ

ياسر العربى

المتعلق بالبحث باستخدام المصفوفات

استخدمت الكود ف ملف عندى

فوجدته يعمل بنجاح

ولكنه لا يعمل ف حالة الفلتره



مع ملاحظه انه يعمل مع الملف

الاصلى المرافق بواسطه الاستاذ ياسر



هذا كل ما ف الموضوع

ف انتظار رد اخونا ياسر

تقبل تحياتى

 

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

اخى الفاضل ياسر

معلش ممكن تبص على الكود ده

بحث بالمصفوفات

الكود شغال تمام

ولكن المشكله لما بيكون فيه فلتر مش بيشتغل

تقبل تحياتى

 

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

اخى ياسر

ممكن تبص على الكود ده

الكود شغال تمام

بس لما بعمل فلتر مش عارف ليه مش بيشتغل

تقبل تحياتى

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 اخى ياسر

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

تقبل تحياتى

 
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby  » 

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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


اخى ياسر

معلش

عايز اعرف ازاى توظف الكود

لاستخراج اعمده معينه

او

جعل مثلا العمود الاول ف الليست

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

والعمود الثانى ف الليست تظهر به

بيانات العمود الاول

وهكذا

تقبل تحياتى

 اخى حسام

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

بارك الله فيك

تقبل تحياتى

 تلاخوه والاساتذه التفاضل

مجهود كبير مبذول ف نشر العلم

بارك الله فيكم جميعا

يشرفنى الانضمام

الى المتعلمين

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

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

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

ولكن عندي سؤال لك لماذ لاتكون كل البيانات نصيه  .. مجرد سؤال ؟

 


اخى ناصر 

تفض الكود كما طلبت

Sub Yasser_Serch()

    Dim myArray, lr, X, targt, targtN

    Dim SERCH As Worksheet, DATA As Worksheet

    '____________________________________________

    Set DATA = Worksheets("Sheet2")    'ÇÓã ÔíÊ ÞÇÚÏÉ ÇáÈíÇäÇÊ

    Set SERCH = Worksheets("Sheet1")    'ÇÓã ÇáÔíÊ ÇáÎÇÕ ÈÇáÈÍË

    '____________________________________________

    lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row    'ÇÎÑ ÕÝ Èå ÈíÇäÇÊ

    SERCH.Range("A4:J" & SERCH.Cells(Rows.Count, 4).End(xlUp).Row + 1).ClearContents    'ãÓÍ äØÇÞ ÇáÈÍË ÇáÞÏíã

    targt = SERCH.Range("e1").Value    'ÎáíÉ ÇáÈÍË

    targtN = Application.WorksheetFunction.Match(SERCH.Range("D1"), SERCH.Range("A3:J3"), 0)    'ÏÇáÉ áÇíÌÇÏ ÑÞã ÚãæÏ ÇáÈÍË

    myArray = DATA.Range("A2:J" & lr + 1)    'äØÇÞ ÞÇÚÏÉÇáÈíÇäÇÊ ÇáÐí ÓíÊã ÇáÈÍË Ýíå

    '____________________________________________

    'ReDim Y(1 To lr, 1 To 5)

    'ReDim Y(1 To lr, 6 To 6) As String

    ReDim Y(1 To lr, 1 To 10)

    For X = 1 To lr

        If targt = "" Then Exit Sub

        If myArray(X, targtN) Like targt & "*" Then

            rw = rw + 1

            Y(rw, 1) = myArray(X, 1): Y(rw, 6) = "'" & CStr(myArray(X, 6))

            Y(rw, 2) = myArray(X, 2): Y(rw, 7) = myArray(X, 7)

            Y(rw, 3) = myArray(X, 3): Y(rw, 8) = myArray(X, 8)

            Y(rw, 4) = myArray(X, 4): Y(rw, 9) = myArray(X, 9)

            Y(rw, 5) = (myArray(X, 5)): Y(rw, 10) = myArray(X, 10)

        End If

    Next X

    If rw > 0 Then SERCH.Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(rw, 10).Value = Y()

End Sub



تقبل تحياتى

 
المشاركة الأصلية كتبت بواسطة: YasserKhalil  » 
مفيش نقرة على "أعجبني" يا هيما

ولا يهمك أنا نقرت لك على أعجبني 



بارك الله فيك .. والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات


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

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

متعوضه ان شاء الله

تقبل تحياتى