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

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

جزيت خير الجزاء أخي وحبيبي وأستاذي محمد صالح تسلم وتعيش وربنا يبارك فيك

أنا مش فاهم فين اللخبطة عموما أنا حملت الملف الأول في المشاركة الأولى وعدلت عليها إليك الملف المعدل File Zizo.rar

بسم الله ما شاء الله ملفاتك فيها حس إبداعي يفوق الخيال بارك الله فيك أخي وحبيبي في الله ضاحي ممكن أعرف بقا كلمة عدد النسخ والصورة الخاصة بالطابعة دي عبارة عن : صورة - ولا مدمجة في الفورم - ولا الفورم دا جاهز ...؟ اعذرني لجهلي بالفورم أخوك ضعيف جداً في الفورم تقبل تحياتي

أخي الفاضل أهلا ومرحبا بك في المنتدى ونورت بين إخوانك يرجى مراجعة الرابط التالي http://www.officena.net/ib/index.php?s=bb57519439b6d585904dadbb11afc2f1&showtopic=60147 كما يرجى إرفاق ملف توضح فيه المطلوب بالضبط

أخي الفاضل يرجى الإطلاع على موضوع التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 إذا انتهى الطلب يرجى اختيار أفضل إجابة ليظهر الموضوع مجاب إذا كان طلب جديد يرجى طرحه في موضوع مستقل

أخي الحبيب أحمد مرجان شكرك لوحده مش كفاااااااااية .. متحاولش تهرب من عزومتي عندك ع العشا ..ودا العشم بردو إنك توافق على العشا المهم جربت الملف الأخير ، وهو دا المطلوب إن شاء الله ؟ تقبل تحياتي

أخي الحبيب سليم من غير ما اطلع على الملف إنت دلوقتي فيه متغيرين q و r ولهم نفس قيمة البداية ، وبيتم التعامل معهم في الكود بزيادة 1 في كل مرة طيب سؤال : مكانش ينفع تستخدم متغير واحد بس دا مجرد سؤال وإنت أدرى مني بالملف

والله إنت بتهزر يعني كل الدوشة دي على الحتة دي ...طيب ما توضح كدا من البداية .. والله إنت نرفزتني ..بس ميهمكش ملحوقة هنغرمك عشا ودا العشم بردو . الموضوع مش صعب على الإطلاق فقط هتغير كلمة ActiveSheet في الكود ، باسم الشيت Sheets وبعديها فنتح قوس وأقواس تنصيص ونكتب اسم الشيت وبعدين نقفل أقواس التنصيص والقوس .. أنا افترضت إن مفيش غير شيت واحد ...عشان كدا بطلب إن اللي يرفق ملف يكون مطابق للملفات الأصلية عشان تكون الامور واضحة Grab Data From CLosed Workbook YasserKhalil.rar

بالنسبة لحماية محرر الأكواد هتلاقي في الفيديو التالي إزاي تحمي محرر الأكواد تقبل تحياتي

بالنسبة لطلبك الأول جرب الآتي من قايمة Start ومن Run اكتب كلمة Regedit وروح لهذا المسار HKEY_CURRENT_USER\Software\Microsoft\VBA\6.0\Common\ طبعاً تكون قافل تطبيق الإكسيل المهم تحذف المجلد وتفتح تطبيق الإكسيل مرة أخرى ، هتلاقي الدنيا رجعت حلوة تقبل تحياتي

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

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

بص عشان أريحك وتريحني صمم الملف بالشكل الذي تريده ثم ارفق الملف للعمل عليه ولازم تكون أوراق العمل متشابهة تماماً لأنه سيكون هناك حلقة تكرارية لكل ورقة عمل . وبلاش الأعمدة اللي ملهاش لازمة !! ههههههه 546 عمود يا راااااااجل!!

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

الأخ الفاضل رضا أبو مريم يرجى فيما بعد عند طرح موضوع أن يكون الموضوع ذو طلب واحد فقط ليسهل المساعدة من قبل الأخوة الأعضاء إليك الملف التالي تم التعديل على الكود ، حيث أنني ظننت أن المرحل صف واحد فقط ..... تم التعديل ليناسب طلبك Sales Tax V5.rar

جزيت خيراً أخي الغالي إبراهيم وجعله الله في ميزان حسناتك واصل واصل بلا فواصل تقبل تحياتي

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

الحمد لله أن تم المطلوب على خير يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

الأخ الكريم عبد العزيز شوف الكود الخاص بالحذف واستبدل الموجود عند بالسطر ده If Me.TextBox1.Text = Cells(I, 1) Then Range(Cells(I, 1), Cells(I, 54)).SpecialCells(xlCellTypeConstants).ClearContents: Exit For

الأخت الفاضلة ريم في الخلية C9 ضعي المعادلة بهذا الشكل =IFERROR((C8/($B8-2*COUNTIF(C2:C7,"n"))),"n") وقومي بسحبها ... إذا صادفتك مشكلة في المعادلة استبدلي الفاصلة , بفاصلة منقوطة ; وذلك حيث أنني غيرت في الإعدادات الإقليمية في الويندوز لدي (محرد ارتياح للتعامل مع الفاصلة بدلاً من الفاصلة المنقوطة)

الأخ الحبيب أحمد مرجان لكم أسعدتني كلماتك ، ونصيحة مني لا تيأس أبداً لأن كلمة مستحيل خلقت للضعفاء ، فلا تكن ضعيفاً وحاول ولو بلغت محاولاتك الآف المرات ، فالفشل لا يعني أن تخسر المحاولات ولكن الفشل هو أن تكف عن المحاولات الواحد بقا حكيم ومش واخد باله ههههههه الحمد لله أن تم المطلوب على خير ، وأرجو أن تكون قد استفدت أقصى استفادة من الموضوع ، وأخيراً تقبل تحياتي

يبدو أن المشكلة ليست في الطلب ، ولكن أخي الحبيب النصيحة أولا واجبة قم الإطلاع على التوجيهات لتعرف سبب عدم الرد من قبل الأعضاء http://www.officena.net/ib/index.php?showtopic=60147 أؤكد لابد من الإطلاع على التوجيهات حملت الملف الخاص بك ، ولم أجد فورم ولا حتى لشكل الفورم المتوقع ، ولا ماهية البيانات التي يجب أن تكون على الفورم ، ولا حتى قاعدة بيانات للعملاء .. يرجى التوضيح ثم التوضيح م التفصيل لكل ما تريده ورويداً حتى تستطيع أن تنجز المطلوب وضح المطلوب .. وأكرر وضح المطلوب .. إذا كنت تريد العمل من البداية فقط وضح ما تريده ، وواحدة واحدة ، وكلما اكتمل طلب انتقلت للآخر .. الأعضاء لن يقدموا لك برنامج جاهز ، وحتى لو كان لديهم الإمكانيات لصنع برنامج جاهز ..هل تعلم ما الوقت الذي يمكن أن يستغرقه بناء برنامج كامل متكامل ؟ إنت ابني تصورك واطلب وإن شاء الله تجد المساعدة أمر آخر لا تدخل المنتدى مرة واحدة وتقول طلبك وتمشى لازم تتابع الطلب وتتابع الردود عشان توصل للمطلوب وفقك الله لما يحبه ويرضاه

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

الأعضاء هيقولوا علينا سبنا الإكسيل ، وبنكتب أشعار .. ومش بعيد يدعوا علينا ندخل النار .. عشان ساينين طلباتهم ونازلين يا هزار .. تقبل ودي وأشعاري أخي الحبيب مختار ..