عاطف عبد العليم محمد

السلام عليكم 

الأخ / ابو البراء

هل يمكن ان تكون مصفوفة النتائج اقل من مصفوفة البحث بعمود وهو عمود البحث

فمثلا في مثالك عند البحث عن ناجح يظهر عمود ناجح ولا فائدة منه 

فاريد بارك الله فيك ان تكون مصفوفة النتائج اقل من مصفوفة البحث بالعمود الاول

فلو كانت مصفوفة البحث مثلا من a الى j  تكون النتائج المرحلة تبدء من b الى j

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

الاخ الكريم / ياسر العربي 

جزاك الله خيرا على تفضلك بالرد

والحمد الله استطعت استخدام كود الاخ / ابو البراء واستطعت التعديل فيه حسب ما يناسبني

و الآن لو تتفضلا اريد تعديل تحديد صفحة النتائج لتكون الصفحة النشطة بدون تسميتها

لاني سأستخدم نفس الكود في اكثر من صفحة وقد استخدمت الاتي ولم يفلح

Set wsResult = ActiveWorkbook    

وايضا لم يفلح

 Set wsResult = thisWorkbook

            فهل من حل ؟ بارك الله فيكما

وجدت الحل الحمد لله Set wsResult = ThisWorkbook.ActiveSheet

السلام عليكم  أخي أبو البراء 

اولا شكرا على الرد

ثانيا انا استخدم كود أخونا ياسر العربي جزاه الله واياك خير وعرفت أين أغير وتمام 

ثالثا حاولت ان اكتب لك على مدونتك فلم اعرف

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

و خدمة أخرى لو تكرمت  في كود أخونا ياسر العربي

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
        If myArray(X, targtN) Like targt Then
            rw = rw + 1
            y(rw, 1) = myArray(X, 1): y(rw, 6) = 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()

اريد بدلا من ان تكون النتائج بدلا من بداية العمود رقم 1  تكون من بداية العمود رقم 12 

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

السلام عليكم

هل يمكن تدارك العيب الآتي

لو البحث عن القيود المتعلقة بالحساب رقم  1 فستكون نتيجة البحث كل القيود المتعلقة بالحساب 1 و 21 و31 و41 و..... وهلم جرا

وفقك الله الجميع لما يحب ويرضى

الأخ / ياسر العربي

السلام عليكم

هل المصفوفة لها حد اقصى من عدد الصفوف ؟ وماهو ؟

في ١١‏/١٠‏/٢٠١٦ at 19:32, ياسر خليل أبو البراء said:

وعليكم السلام أخي الكريم عاطف

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

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

والترحيل من أين سيتم وإلى أين سيتم وما هي شروط الترحيل بالتفصيل

أرجو ألا تكون متضايق من ردي هذا

 

ارجو الا تكون متضايق من استجابتي 

استاذي ياسر خليل ( ابو البراء )  اسعدك الله في الدارين  

لست متضايق من ردك بل على العكس ، احييت املي في تنفيذ الحل

الترحيل من أين ؟ من صفحة ( قيود اليومية) 

الترحيل الى اين ؟ الى صفحة ( بنوك وصندوق) 

ترحيل ماذا ؟ ترحيل السطر الذي به رقم الحساب الموجود في صفحة ( بنوك وصندوق )

شروط الترحيل ؟

الشرط الأول رقم الحساب   وهو موجود في الخلية m705   والرقم الثاني في الخلية v705  والرقم الثالث في الخلية ae705  وهكذا الفرق بينهم 9 

والشرط الثاني التاريخ يكون بين  ويشمل  التاريخين الموجودين في اعلى صفحة ( بنوك وصندوق) 

ما الخلايا  التي ترحل ؟    التاريخ الهجري والتاريخ الميلادي ونوع سند القيد ورقم سند القيد والبيان ومدين ودائن 

خانة الرصيد تحسب تلقائيا من نتيجة الترحيل

أين يوضع الترحيل ؟ في صفحة ( بنوك وصندوق )  لكل حساب على حدة والترحيل يبدء من صف رقم 709 

كيف اذهب الى صف رقم 709 ؟ اضغط على رقم الحساب (   الموجود في عمود f  صفحة بنوك وصندوق )

ماهي شكل النتائج الأخيرة ؟ النتيجة الأخيرة هي  البيانات الموجودة الأن في صفحة ( بنوك وصندوق ) فيكون أرصدة الحسابات 

على التوالي 10 و20 و30و 40 و50

هل من مزيد من التوضيح ؟      لو قرأت استاذي الماكرو  لتبين لك الامر

Sub ترحيـــــ1صفحة()
Application.EnableEvents = False
Application.ScreenUpdating = False
  
   
    d = Range("f7", Range("f7").End(xlDown)).Count
    a = 13: b = 19 'رقم 13 تمثل العمود m     ,  رقم 19 تمثل العمود s
        For I = 1 To d
        Range(Cells(709, a), Cells(1100, b)).ClearContents
        a = a + 9
        b = b + 9
    Next I
    
     
    dat1 = Range("e1").Value      ' شهر البداية
    dat2 = Range("e2").Value       ' شهر النهاية
    rng1 = Sheets("قيوداليومية").Range("m11").Value   'عدد الادخالات موجودة في هذه الخانة
    
    For P = 13 To ((d + 1) * 9) Step 9
        s = 709
        X = Cells(705, P).Value      ' رقم الحساب المطلوب الكشف له
        
        For I = 6 To rng1 + 6  ' ستة لأن البيانات في قيود اليومية من السطر السادس
            x1 = Sheets("قيوداليومية").Cells(I, 3).Value
            date9 = Sheets("قيوداليومية").Cells(I, 5).Value                 '        تاريخ الحساب المتواجد في جدول القيود
            If X <> x1 Or dat1 > date9 Or dat2 < date9 Then GoTo out1     'اذا الحساب ليس هو أو التاريخ ليس بين التاريخ الأدنى والأعلي فلا تنفذ
                    
            Dim m, C, e As Integer
            e = 4
            C = P
           
            For m = 1 To 7
                Cells(s, C).Value = Sheets("قيوداليومية").Cells(I, e).Value
                e = e + 1
                C = C + 1
            Next m
            s = s + 1
out1:
        Next I
       Next P
 
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

ارجو ان أكون وضحت 

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

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

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

والمرجو من    استاذنا    الاخ / ياسر العربي    صاحب كود البحث باستخدام المصفوفات 

                     استاذنا  الأخ / ياسر خليل       صاحب شرح الكود وتعديله

                      او من اي اخ كريم

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

وفق الله الجميع 

نموذج حسابات.rar

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

وفقك الله أخ ياسر العربي  وجزاك الله خيرا 

13 ساعات مضت, ياسر خليل أبو البراء said:

سأحاول العمل على ملفك إن شاء الله .. لكن هناك بعض الظروف لدي تمنعني من المشاركة بشكل إيجابي

مشكور مقدما واسأل الله ان ييسر لك الامور

اخي الكريم  

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

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

احسنت جزاك الله خيرا وهذا هو الملف للتطبيق عليه  ( كما سبق وطلبت ) 

نموذج حسابات.rar

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

وفقكم الله 

استاذنا العزيز / ياسر العربي  

ممكن مثال البحث يكون على شرطين  مثلا ( الأسم ) والتاريخ  والتاريخ يكون  مثلا بين 2016/1/01 و 2016/10/10

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

شكرا لكم  اساتذتي الكرام 

ولكن أليس بهذا  إن أردت طباعة بيانات في صفحة أخرى  ستأتيني نفس الرسالة ؟

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

شكرا جزيلا لإهتمامك  ،  ويبدو لأنني صائم غير منتبه لشيء لا اعلمه 

جربت على الملف الأصلي فكان ما بلغتكم والآن جربت على ملف التجارب فكان مثل مابلغتكم  وارفقه لحضراتكم  وأعتذر عن إشغالكم

طباعة.rar

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

ولكن  كلما وضعت المؤشر على اي خانة تظهر الرسالة فاصبحت محاصر ادور في دائرة مغلقة

سأكتفى بالكود في غير حدث الورقة  

وفقكم الله جميعا 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

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

ما وجدت غير هذا     اظن ان الكود ناقص

اخي / ياسر العربي 

شكرا جزيلا  

ولكني اسأل إن كان يمكن ذلك إذا اخترت  أمر طباعة من الاكسيل وليس عن طريق ماكرو

استاذي / أبو عيد 

تفضل الملف و  جزاك الله خيرا 

طباعة.rar

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

كل لحظة وانتم طيبين

إن أمكن جزاكم الله خيرا  ، عندي صفحة ولتكن (طباعة القيود ) وخانة لشرح القيد ـ أريد إذا طلبت طباعة القيد وكانت خانة شرح القيد  ولتكن مثلا ax100 = لا شيء ـ خالية  ـ تظهر رسالة بذلك 

وفقكم الله

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

أخي ياسر  خليل ـ أبو البراء

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

إذا حدث تكرار لنفس البيانات ( مثلا يعني إذا كان الاسم أحمد 1 موجود في لجنة القرآن الكريم وتكرر نفس الاسم في نفس اللجنة 

فهل يمكن عدم لصق المكرر  ( لا يحذف البيانات المتكررة ولكن القائمة الجديدة لايكون فيها متكرر) 

أنا بياناتي موجودة في أكثر من 3 أعمدة مثلا على المثال  موجود  عمود م    وعمود الاسماء وعمود اللجان ونضيف عمود لموقع اللجنة  وأريد العمل على عمودين فقط عمود الاسماء وعمود اللجان 

وشكرا جزيلا

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

ولكن  ماذا في حالة حذف الأعمدة ، وحتى مع استخدام الأكواد في اللصق أو حذف الاعمدة المشكلة موجودة

وقد بحث  بالانجليزي ووجدت هذا  الفيديو  وفيه شرح لتنظيف الذاكرة  ، ولكم لأن قدراتي ضعيفة  فلم استفد منه لعلكم او احد الاخوة يراه ويخبرنا  جزاكم الله خيرا

https://www.google.com.sa/search?q=vba+clear+memory&oq=vba+&aqs=chrome.1.69i59l3j69i57j69i59j69i65.7081j0j4&sourceid=chrome&ie=UTF-8

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

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

وفقني الله واياكم جميعا

شكرا لك اخي محمد عبد الناصر

أخي سليم  هل يمكن ان تشرح الكود لنتعلم منه

 والكود يعمل في اي عمود ليس فقط في عمود 1 و 2  إذا كان العمود غير خالي والاعمدة التي بعده ب8 عمود غير خالية

فأرجو إصلاح ذلك وجعله يعمل في عمود 1 و 2 فقط