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

أخي الكريم قلم الإكسيل (لم نتشرف باسمك الحقيقي بعد) إليك الكود التالي عله يؤدي الغرض Sub ReverseRows() Dim I As Long, LastCol As Long, Counter As Long LastCol = Cells(4, Columns.Count).End(xlToLeft).Column Counter = 4 For I = LastCol To 4 Step -1 Cells(5, Counter).Value = Cells(4, I).Value Counter = Counter + 1 Next I End Sub Reverse Values In Row & Results In Another Row YasserKhalil.rar

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

أخي الكريم حسام هلا غيرت اسم الظهور للغة العربية ارفق ملف كنموذج به بايفوت تابل لمحاولة المساعدة .. تقبل تحياتي

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

ارفق ملفك اخي الفاضل لتسهيل الأمر على إخوانك ..

أخي الكريم أبو عبد الله يفضل عند طرح موضوع أن يتم إرفاق ملف وليس صورة توفيراً للوقت والجهد إليك المعادلة التالية علها تفي بالغرض =IFERROR(INDEX($A$2:$B$20,SMALL(IF((INDEX($A$2:$B$20,,2,1)="")*(INDEX($A$2:$B$20,,1,1)<>""),ROW($A$2:$B$20)-MIN(ROW($A$2:$B$20))+1,""),ROWS(C$2:$C2)),,1),"") وإليك الملف المرفق (طبقاً لما أدرجت من صورة في المشاركة السابقة) Extract Non-Blank Cells By Criteria In Another Column YasserKhalil.rar

الأخ العزيز زيزو (المحترف المتخفي) بارك الله فيك وجزاك الله كل خير الأخ الكريم محمد أهلاً بك في المنتدى ويرجى تغيير اسم الظهور للغة العربية

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

راجع موضوع التوجيهات

بسم الله ما شاء الله عليك أخي الحبيب محمد الريفي أنت متميز ورائع .. وموضوعاتك تعكس روحك الجميلة والمميزة تقبل وافر تقديري واحترامي

ارفق ملف الإكسيل الذي تريد نسخه للإطلاع عليه ..لربما يكون مختلف !

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

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

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

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

أخي الكريم حسام أهلاً بك في المنتدى ونورت بين إخوانك اذهب للتبويب المسمى View ستجد مربع صغير بجانب الأمر Headings علم عليه علامة صح لتظهر لك أسماء الأعمدة وأرقام الصفوف قم بتحديد الأعمدة المطلوب حذفها ثم كليك يمين ثم Delete .. بس خلاص

هل الملف الذي به المشكلة يحتوي على تعليقات Comments؟

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

أخي الكريم قم بإرفاق ملفك وإرفاق شكل النتائج المتوقعة أي اضرب مثال لما يجب أن تكون عليه شكل المخرجات تقبل تحياتي

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

مبدع كالعادة أخي الحبيب مختار كم أعشق موضوعاتك الجديدة وأتابعها بكل شغف تقبل وافر تقديري واحترامي

أخي الكريم يبدو من مشاركاتك أنك جديد بالمنتدى .. فأهلاً بك ونورت بين إخوانك عادةً لا يتم الرد في الموضوعات المبهمة أو الغير واضحة .. لقد قمت بإرفاق ملف بدون توضيح لمشكلتك .. ثم إن الردود قد تكون بطيئة أحياناً نظراً لانشغال الأخوة الأعضاء في مشاغلهم الخاصة فالرجاء التماس العذر لهم يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى إليك الملف المرفق فيه حل على حسب ما فهمت ، فإن لم يعجبك الحل يرجى إرفاق الملف مرة أخرى وبه شكل المخرجات أو النتائج المتوقعة تقبل تحياتي Sales Between Two Dates YasserKhalil.rar

أخي الكريم أبو عبد الله لا يوجد عضو في المنتدى يبخل بأي معلومة .. كل ما في الأمر أن الأعضاء قد ينشغلوا في مشاغلهم الخاصة أو أن الموضوع غير واضح بالنسبة لهم فالرجاء التماس العذر لهم إليك المعادلة التالية في الخلية C2 .. وهي معادلة صفيف أي بعد الإدخال يتم الضغط على Ctrl + Shift + Enter لتنفيذ المطلوب =IFERROR(INDEX($A$2:$B$20,SMALL(IF((INDEX($A$2:$B$20,,2,1)="مستبعد"),ROW($A$2:$B$20)-MIN(ROW($A$2:$B$20))+1,""),ROWS(C2:$C$2)),,1),"") إذا لم تعمل المعادلة قم بتغيير الفاصلة العادية إلى فاصلة منقوطة تقبل تحياتي Extract Non-Blank Cells By Criteria In Another Column YasserKhalil.rar

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

أخي الكريم أحمد قم بتحديد الجدول في الإكسيل وليكن النطاق A1:E15 ثم كليك يمين واختر الأمر Copy روح لملف الورد واعمل كليك يمين سيظهر معك مجموعة خيارات اختر الخيار الثاني (أقصد الخيارات الخاصة باللصق الموجودة على شكل أيقونات) ، اذهب للخيار المسمى Use Destination Style تقبل تحياتي