تعديل على كود ومعادلة للأستاذ سليم حسب متطلبات عملي

[ابو عبدالرحمن البغدادي]

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

عندي مشكلةفي المعادلة والكود ، فكلما حاولت تغيير المدى الى أكبر لا ينفذ

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

وارف ملف يوضح المطلوب

تعديل على معادلة وكود الاستاذ سليم حسب متطلبات العمل.rar

تعديل على معادلة وكود الاستاذ سليم حسب متطلبات العمل.rar

[ابو عبدالرحمن البغدادي]

السلام عليكم

حياكم الله

 

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

أخي الحبيب أبو عبد الرحمن

هلا وضحت المطلوب بدلاً من طلب التعديل ، حيث أن التعديل يكون أحياناً صعب حتى على من قدم الحل ربما لنسيانه أو خلافه

وضح المطلوب وارفق شكل النتائج المتوقعة وضع بيانات كافية لتعبر عن الملف الأصلي ..

تقبل تحياتي

[ابو عبدالرحمن البغدادي]

السلام عليكم - حياكم الله 

طلبي اعزكم الله

عندي ثلاث شيتات ، الشيت الاول هو البيانات الرئيسية ، الشيت الثاني الاخطاء في القاعدة ، والشيت الثالث الاخطاء في البطاقة 

الاسم والكود الموجود في البيانات الرئيسية احياناً يحتوي على خطأ أما في القاعدة أو البطاقة فيكون الاسم والكود متشابه

فعند البحث عن الاسم تأتي البيانات الموجودة في كل الشيتات (فيكون البحثعن الاسم في كل الشيتات)

المسألة المهمة في الموضوع

تأتي البيانات مرة في الشيت الاول  (الاسم الرباعي واللقب) وفي الشيت الثاني يأتي (الاسم الرباعي ) وفي الشيت الثالث (الاسم الثلاثي)

فالمطلوب : محرك بحث بمجرد كتابة الاسم الاول تأتي البيانات مع الكود ، وعند الضغط على الاسم المراد تأتي البيانات ، مع العلم بان الكود لا يتغير بين الشيتات

وأرفق ملف جديد يوضح أكثر ، وأن شاء الله أكون قد وفقت بايصال الفكرة 

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

حفظكم الله

 

 

 

محرك بحث بمجرد كتابة الاسم الاول تظهر البيانات الموجودة في الشيتات.rar

ملف جديد.rar

تم تعديل مارس 11, 2016 بواسطه ابو عبدالرحمن البغدادي
الملف الاول يحتوي على معادلات أما الملف الجديد خالي من المعادلات وارجو العمل عليه

[أبوعيد]

السلام عليكم

أخي أبوعبدالرحمن البغدادي

إن شاء الله يكون هذا هو مطلوبك

إلى أقصى حد يتحمله الأكسل وهو مليون اسم ّ!!!!

تعديل على معادلة وكود 1.rar

تم حذف الورقة المخفية sapas

تم تعديل مارس 13, 2016 بواسطه أبوعيد

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

اخي الفاضل

محاولة بعد ادن الفاضل حفظه الله ورعاه ياسر خليل ابو البراء

كل ما عملته زيادة المدي في صفحة  sapas المخفية  الى 1000 اسم

اتمنى ان يكون طلبك

 

 

 

تعديل على معادلة وكود الاستاذ سليم حسب متطلبات العمل.rar

[ابو عبدالرحمن البغدادي]

احسنت

[ابو عبدالرحمن البغدادي]

السلام عليكم - حياكم الله

عند اضافة البيانات ( شيت الاسماء بحدود 850000 الف اسم ) وشيت البطاقة (600000 الف اسم ) وشيت القاعدة (650000 اسم )

تتوقف المعادلات على العمل ويجمد الملف 

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

أخي الكريم أبو عبد الرحمن

حينما تكون البيانات بهذا الحجم الهائل .. فيفضل استخدام أحد برامج قواعد البيانات كالأكسيس أو الأوراكل ..أما الإكسيل فلن يتحمل العمل على هذا الكم الهائل في مصنف واحد

أو يمكنك تجزئة المصنف إلى مصنفات عديدة بحيث تستطيع التعامل معها ..

 

[ابو عبدالرحمن البغدادي]

السلام عليكم

خير ان شاء الله - اشكرك على الاهتمام

استاذ ياسر

ماذا يخظر في بالك في فكرة تجزئة المصف 

احب العمل على الاكسل

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

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

صراحة يعصب التخمين في مثل حالتك لأنني لا أدري شكل البيانات .. وأول مرة أرى أن أحد ما يحتاج لهذا الكم الهائل .. إنت شغال شغل محافظة بالكامل !!؟؟؟

[ابو عبدالرحمن البغدادي]

السلام عليكم - حياك استاذ ابو عيد

جزيت خيرا

تمام 100 %

اشكرك

حفظك الله وسلمك

اشكرك - هو المطلوب - شغل حلوه وسهل ويكفي

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

[أبوعيد]

السلام عليكم

أخي أبوعبدالرحمن

هذا حل آخر بكود أسرع إلى آخر صف في  الأكسل

جرب المرفق

تعديل على معادلة وكود 2.rar

تم تعديل مارس 14, 2016 بواسطه أبوعيد

[ابو عبدالرحمن البغدادي]

السلام عليكم

جزيت خيرا - بارك الله في وقتك وعمرك

هذا كود اسرع

 

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

أخي الكريم أبو عبد الرحمن

في ورقة البحث قم بوضع الكود التالي ..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("J3:J" & Rows.Count)) Is Nothing Then
        Application.EnableEvents = False
            If IsError(Application.Match(Target.Value, Sheet1.Columns(1), 0)) Then
                Range("B3").Value = ""
            Else
                Range("B3").Value = Target.Value
            End If
            
            If IsError(Application.Match(Target.Value, Sheet2.Columns(1), 0)) Then
                Range("E3").Value = ""
            Else
                Range("E3").Value = Target.Value
            End If
            
            If IsError(Application.Match(Target.Value, Sheet3.Columns(1), 0)) Then
                Range("H3").Value = ""
            Else
                Range("H3").Value = Target.Value
            End If
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myVAL As String, LR As Long, NR As Long, ws As Worksheet
    
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address = "$K$2" Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        
        Range("J3:K" & Rows.Count).ClearContents
        NR = 3
        myVAL = Target.Value
        
        For Each ws In Sheets(Array("الأسماء المرسلة", "أخطاء القاعدة", "أخطاء البطاقة"))
            With ws
                .AutoFilterMode = False
                .Rows(1).AutoFilter 2, "*" & myVAL & "*"
                LR = .Range("A" & .Rows.Count).End(xlUp).Row
                If LR > 1 Then
                    .Range("A2:B" & LR).SpecialCells(xlVisible).Copy
                    Range("J" & NR).PasteSpecial xlPasteValues
                    NR = Range("J" & Rows.Count).End(xlUp).Row + 1
                End If
                .AutoFilterMode = False
            End With
        Next ws
        
        Target.Activate
        
        Application.CutCopyMode = False
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

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

بعدها قم بتنسيق المصنف كما يحلو لك ، وأعتذر عن أنني اقوم بالتنسيق بأسلوبي فهذا يريحني ويجعلني أستطيع التعامل مع الملف بشكل أوضح

وإليك الملف المرفق

تقبل تحياتي

 

Search Process In Specific Multiple Sheets For Specific String YasserKhalil.rar

[ابو عبدالرحمن البغدادي]

السلام عليكم - حياكم الله - سلمك الله - زادتك الله علماً وفضلاً ، بارك الله في وقتك وعمرك

اشكرك

كود سريع 

ممنون

السلام عليكم

سؤال استاذ ياسر 

عندما اقوم بحماية المعادلات أو حماية الورقة

وعند الضغط على الكود لا تأتي البيانات بعد وضع الحماية

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

يمكن إضافة أسطر قبل الكود لفك الحماية بشكل مؤقت ثم إرجاع الحماية مرة أخرى ..

وإن كنت لا أحبذ الحماية لورقة العمل نفسها .. يمكنك حماية المصنف بالكامل عند فتح المصنف في البداية فهذا أقوى في حماية المصنف من حماية أوراق العمل التي يمكن كسرها بسهولة ..