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

استاذي /سليم حاصبيا ادرجت الماكرو في موديول جديد ولا اعرف كيف يتم تشغيله ! لم يظهر ضمن قائمة الماكروات وفقك الله

السلام عليكم ورحمة الله وبركاته لدى هذا الكود Dim cell As Range Rows(709).Select For Each cell In Selection If cell.Value Like "*رصيد بداية*" Then cell.Interior.ColorIndex = 40 Next cell اريد تلوين ايضا خليتين على يسار الخلية التي تحتوي على ( رصيد بداية )

السلام عليكم الأخ / ابو البراء هل يمكن ان تكون مصفوفة النتائج اقل من مصفوفة البحث بعمود وهو عمود البحث فمثلا في مثالك عند البحث عن ناجح يظهر عمود ناجح ولا فائدة منه فاريد بارك الله فيك ان تكون مصفوفة النتائج اقل من مصفوفة البحث بالعمود الاول فلو كانت مصفوفة البحث مثلا من 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 و..... وهلم جرا وفقك الله الجميع لما يحب ويرضى

الأخ / ياسر العربي السلام عليكم هل المصفوفة لها حد اقصى من عدد الصفوف ؟ وماهو ؟

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

استاذي ياسر خليل ( ابو البراء ) اسعدك الله في الدارين لست متضايق من ردك بل على العكس ، احييت املي في تنفيذ الحل الترحيل من أين ؟ من صفحة ( قيود اليومية) الترحيل الى اين ؟ الى صفحة ( بنوك وصندوق) ترحيل ماذا ؟ ترحيل السطر الذي به رقم الحساب الموجود في صفحة ( بنوك وصندوق ) شروط الترحيل ؟ الشرط الأول رقم الحساب وهو موجود في الخلية 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

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

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

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

احسنت جزاك الله خيرا وهذا هو الملف للتطبيق عليه ( كما سبق وطلبت ) نموذج حسابات.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