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

جرب تعيد تنصيب الأوفيس من جديد

تسلم أخي خزاني على هذه الأفكار الرائعة بارك الله فيك وجزاك الله كل خير

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

لم يفدني أحد الخبراء في هذا الأمر .. إذا كان هناك من يريد عمل البرنامج ، ولديه الخبرة الكافية ، بأن يكون ملماً بأمور الماليات ...فليتفضل ويدلي دلوه ..

تفضل أخي الحبيب الملف المرفق فيه طلبك وبدون أعمدة مساعدة ..وفرت عليك عمود Salaries GoalSeek.rar

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

20 دقيقة في الحفظ !! يا صبر أيوووووووووووب والله إنت بطل .. أنا لو عندي ملف بياخد دقيقتين حفظ ..هجيبله شلل قبل ما يجيني أنا الشلل .. ليه 20 دقيقة حفظ ..الملف فيه ايه ؟؟ عفريت ولا خاتم !! انطق قوووووووول

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

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

تسلم الأيادي وتكيد الأعادي جزيت خيرا أخي الحبيب مختار على هذا العمل الرائع تقبل تحياتي

تسلم الأيادي وتعيش يا مستر ياسر بارك الله فيك وفي أهلك

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

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

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

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

الأخ الفاضل احذف الزر الموجود ..لأنه شكل من الأشكال وهيطلع في الطباعة وارسم زر Form Button من التبويب Developer هتلاقي كلمة Insert افتحها واختار أول شكل وارسمه وبعدين كليك يمين على الشكل ثم Assign Macro واختار اسم الماكرو ..

الأخ الفاضل أبو عاصم تفصل الملف المرفق (ومتنساش تحدد مشاركتي كأفضل إجابة ..دا إذا مكانش يضايقك طبعاً ..) Transpose Data YasserKhalil V2.rar

يعني ايه ترصيد !!؟؟ اعذرني لجهلي بالألفاظ يرجى تحديد شكل النتائج

بارك الله فيك أخي الغالي بن عليه .. الأخ الموسطي الدالة المقدمة هي دالة معرفة .. موجودة في محرر الأكواد VBE يمكن الوصول إليها عن طريق AlT + F11 ، ولاستخدامها في ملفك يمكنك نسخها .. اطلع على هذا الرابط لمعرفة كيفية نسخ الكود من ملف لملف آخر

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

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

أخي الحبيب .. ارفق ملف للعمل عليه .. لأن الوضع هيكون مختلف قليلا .. في انتظار ملفك المرفق

بارك الله فيك أخ ياسر فتحي تقبل تحياتي

أخي الباحث العربي هكذا يكون الشرح ..لتحصل على النتيجة المطلوبة بإذن الواحد الأحد .. تقبل تحياتي (ولا تنسى أن تختار المشاركة إذا أعجبتك بالطبع !! كأفضل إجابة) :rol: Goal Seek YasserKhalil.rar

الأخ الحبيب والأستاذ الكبير بن عليه بارك الله فيك وجزاك الله خير الجزاء إثراءً للحل حيث أن الحل المقدم من قبلكم قد تم اقتراحه في بداية الأمر .. اقترحت على الأخ صلاح أن يقوم بإخفاء الصفوف ثم إعادة إظهارها مرة أخرى بعد الطباعة .. فلاحظت أنه لا يرغب في تلك الطريقة .. رغم بساطتها وفعاليتها عموما هذا حل آخر يعتمد على التصفية AutoFilter بحيث يتم تصفية الصفوف لتظهر الصفوف الغير فارغة فقط .. وبهذا يتحقق المطلوب أيضاً .. Sub PrintData() Application.ScreenUpdating = False With Sheet4 .AutoFilterMode = False .Range("D4:S5").AutoFilter Field:=1, Criteria1:="<>" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Cells.AutoFilter End With Application.ScreenUpdating = True End Sub Hide Blank Rows Using AutoFilter.rar