أ / محمد صالح

معادلة الأستاذ ياسر صحيحة ولكن يبدو أنك لم تضغط على CTRL+SHIFT+ENTER حتى تحولها لمعادلة صفيف

الحمد لله بخير كل عام أنتم بخير لم أفهم ما بعد لكن برجاء التوضيح أكثر ما في المعادلة من عيوب من وجهة نظرك حيث أنها تقارن بين القيم الموجودة في العمود k بالقيمة الموجودة في العمود b ثم تأتي بأكبر قيمة في العمود l

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

المعادلة صحيحة ولا تعطي خطأ وللحصول على أكبر سعر مطابق للبحث يمكنك استعمال هذه المعادلة في الخلية F8 =MAX(IF($K$8:$K$130=B8,$L$8:$L$130)) ولا تنس أن تضغط CTRL+SHIFT+ENTER

لو أمكن توضح أكتر وبالتفصيل

تظهر رسالة تحديث البيانات حينما يكون الملف مرتبطا بملف آخر ولإلغائها يجب وضع جميع الشيتات في ملف واحد

كل عام أنتم بخير أخي الكريم سليم سلمك الله من كل سوء أحب الفوازير جدا ولكن بداية اللغز غير واضحة حيث يوجد كتابة في الخلية 3و5و6 فقط وليسوا 4 خلايا كما هو مطلوب وهل المطلوب استعمال النطاق مرة أخرى؟ الطبيعي أن نجميع أول 4 صفوف غير فارغة ثم نبدأ من الخامس ونعد أربعة أخرى لا أن نبدأ من الثاني ونكرر الثاني والثالث والرابع برجاء التوضيح

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

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

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

طبعا ممكن الكود يقوم بنسخ النطاق بداية من b7 إلى صف النهاية السفلية للنطاق d6 (بحيث إذا كانت الفاتورة صف واحد يكون النطاق المنسوخ من b7 إلى m7) ثم يقوم بلصق قيم النطاق المنسوخ في الصفحة الموجودة في الخلية k1 وفي أول خلية فارغة في العمود b ثم يحدد الصفحة المكتوبة في k1 حتى يحدد أول خلية فارغة في العمود d ثم يعود لصفحة الفاتورة ويحدد الخلية d7

الكود يعمل 100% على اعتبار أن صفوف الفاتورة أكثر من صف (صفين أو أكثر) ويوجد ملاحظة أخرى يبدو أنك لم تلاحظها: وهي أن الكود يقوم بمسح محتويات الفاتورة كلها بما فيها المعادلة الموجودة في عمود (الإجمالي) لذا ينبغي تعديل الكود إلى ما يلي: Sub tarheel() Sheets("فاتوره").Range("b7:m" & Range("d6").End(xlDown).Row).Copy Sheets(Sheets("فاتوره").Range("k1").Value).Range("b" & Sheets(Sheets("فاتوره").Range("k1").Value).Range("b10000").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues Sheets(Sheets("فاتوره").Range("k1").Value).Select Range("b" & Range("b10000").End(xlUp).Row + 1).Select Sheets("فاتوره").Range("d7:i" & Range("d6").End(xlDown).Row & ", k7:m" & Range("d6").End(xlDown).Row).ClearContents Sheets("فاتوره").Select Sheets("فاتوره").Range("d7").Select End Sub ما تم تعديله: الرقم 7 إلى 6 وتعديل كود مسح المحتويات ليترك العمود J بدون حذف رغم أنك جديد في الأكواد إلا أنك وضعت الكود الجديد في مكانه والكود عندي يعمل بكفاءة عالية على صف 1 أو 4 أو أكثر ولا يوجد مشكلة .... توضيح بسيط: معنى كود مسح المحتويات أنه يبدأ من الخلية D7 إلى صف آخر خلية في العمود D (الكود) فربما لم يكتب الكود في الصف الرابع لذلك لم يتم حسابه من النطاق

الكود يعمل 100% على اعتبار أن صفوف الفاتورة أكثر من صف (صفين أو أكثر) ويوجد ملاحظة أخرى يبدو أنك لم تلاحظها: وهي أن الكود يقوم بمسح محتويات الفاتورة كلها بما فيها المعادلة الموجودة في عمود (الإجمالي) لذا ينبغي تعديل الكود إلى ما يلي: Sub tarheel() Sheets("فاتوره").Range("b7:m" & Range("d6").End(xlDown).Row).Copy Sheets(Sheets("فاتوره").Range("k1").Value).Range("b" & Sheets(Sheets("فاتوره").Range("k1").Value).Range("b10000").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues Sheets(Sheets("فاتوره").Range("k1").Value).Select Range("b" & Range("b10000").End(xlUp).Row + 1).Select Sheets("فاتوره").Range("d7:i" & Range("d6").End(xlDown).Row & ", k7:m" & Range("d6").End(xlDown).Row).ClearContents Sheets("فاتوره").Select Sheets("فاتوره").Range("d7").Select End Sub ما تم تعديله: الرقم 7 إلى 6 وتعديل كود مسح المحتويات ليترك العمود J بدون حذف

بسم الله الرحمن الرحيم كل عام وجميع من يزور منتدانا الغالي بخير ورمضان كريم ............. تفضل أخي الكريم تم تعديل ملفك حتى يكون عدد الأعمدة متساويا في كل الصفحات والترحيل وحذف بيانات الفاتورة mas_دفتر حسابات 2016.rar

بارك الله لك وتقبل الله منا ومنكم صالح الأعمال

ما شاء الله بارك الله لك أخي علي الشيخ وكل عام أنت والأمة الإسلامية بكل خير بمناسبة شهر رمضان

تفضل أخي الكريم ضع هذه المعادلة في الخلية I14 =SUM($B14:$H14*TRANSPOSE(B$3:B$9)) ولا تنس أن تضغط CTRL+SHIFT+ENTER لأنها معادلة صفيف وانسخ المعادلة أفقيا ورأسيا

ما هي المشكلة المرفق اللي في المشاركة 4 إزاي حصل اللي فيه ده؟؟؟!!! الطبيعي إن حضرتك جملت الملف المستعمل في المشاركة 4 من المشاركة 3 ولا حضرتك حملته منين بالظبط؟؟!! ...................... الفجوة هنا في المسافة بين تحميلك الملف من المشاركة 3 وتجربتك له وظهور الخطأ معك في جلب البيانات ثم مشاركتك للملف الذي به الخطأ في المشاركة رقم 4 ............ ربنا يهدينا ويهديك لسبب الخطأ ده وأنا متأكد 100% إنه مش في الكود ولا يلزم مراجعة الكود وإنما يلزم مراجعة طريقة استخدام الملف

سبحان الله ما سبب هذه المفاجأة؟؟ إذا حملت الملف المرفق في المشاركة 3 وفتحت الملف ستجد أن الصفحة فارغة ولا يوجد بها غير سطر العنوان والزر وبالضغط على الزر يقوم بجلب البيانات 100% وهذا فيديو يوضح ما يحدث معي فيا ريت تسجل لنا اللي بيحصل معاك ..................... ويا ريت حد من الأعضاء الموقرين يجرب يتعامل مع الملف الموجود في المشاركة 3 بطريقة صحيحة ويوقول لنا هل تم جلب البيانات بطريقة صحيحة ولا هيتفاجئ بحاجات تانية ؟؟؟!!

الكود نفسه يقوم بمسح المحتويات أولا ثم جلب البيانات ثانيا (على نضيف يعني) فلا نحتاج لمسح المحتويات بأنفسنا Range("a2:e" & Range("a1000").End(xlUp).Row + 1).ClearContents وبتجربته مئات المرات لا يوجد مشكلة ولا يعطي الشكل الذي أرفقه الأخ الكريم في المشاركة رقم #4 ولا أدري ما السبب الذي جعل الأخ الكريم يطلب مراجعة الكود (وكأن الكود به خطأ) وأسلوبي الشخصي في الأكواد أن أهتم بالاختصار وما يمكن عمله بسطر واحد لا يجب كتابته في سطرين حيث يستهلك ذلك امكانيات الجهاز .................... وأعتقد ليس من أسلوب الحوار الراقي أن يطلب السائل المراجعة والإفادة وأقوم بالمراجعة والإفادة ولا يقوم هو بالرد

الأخ الكريم أستاذ محمد صالح أشكر حضرتك لاهتمامك الكبير وشكرا على المجهود الفائق للوصول لهذه النتيجة ولكن النتيجة بعد أن تم العمل على الشيت وبعد الضغط على زر جلب البيانات كانت النتائج غير منسقة ولا أدري ما السبب في ذلك ومرفق شكل الشيت بعد أن تم العمل عليه برجاء المراجعة والإفادة وجزاك الله عنا خيرا هل توصلت للسبب الذي جعل نتائج جلب البيانات ليست كما يجب عندك؟؟ حيث أن الكود يجلب البيانات بصورة صحيحة 100% عندي للعلم : بعد مسح جميع محتويات ملفك السابقة والضغط على الزر تم جلب البيانات بصورة صحيحة 100% برجاء مراجعة ما تم عمله من جانبكم حتى يخرج الشكل على غير المطلوب برجاء التكرم بالرد إن أمكن!!! لمعرفة سبب الخطأ الموجود في ملفك

الأخ الكريم أستاذ محمد صالح أشكر حضرتك لاهتمامك الكبير وشكرا على المجهود الفائق للوصول لهذه النتيجة ولكن النتيجة بعد أن تم العمل على الشيت وبعد الضغط على زر جلب البيانات كانت النتائج غير منسقة ولا أدري ما السبب في ذلك ومرفق شكل الشيت بعد أن تم العمل عليه برجاء المراجعة والإفادة وجزاك الله عنا خيرا هل توصلت للسبب الذي جعل نتائج جلب البيانات ليست كما يجب عندك؟؟ حيث أن الكود يجلب البيانات بصورة صحيحة 100% عندي للعلم : بعد مسح جميع محتويات ملفك السابقة والضغط على الزر تم جلب البيانات بصورة صحيحة 100% برجاء مراجعة ما تم عمله من جانبكم حتى يخرج الشكل على غير المطلوب

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

تفضل أخي الكريم أتمنى أن يكون هذا هو المطلوب تم عمله بالكود مع ملاحظة عدم ترك بيانات فارغة في صفحة الإدخال كما هو موجود في الملف حيث يوجد الفرع والحركة والأصناف ولا يوجد التاريخ والكود يجلب البيانات الكاملة وكل عام أنتم جميعا بكل خير mas_Recipe YasserKhalil.rar

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