Mahmoud Atef

تنفيذ ماكرو بناء على قيمة خليه2.xlsb تفضل - الملف الأن يرحل تلقائى بدون الحاجة إلى زر للعمل طوال فترة العمل عليه تنفيذ ماكرو بناء على قيمة خليه2.xlsb

السلام عليكم برجاء المساعدة فى هذا الملف المطلوب أنه عند وضع مبلغ فى الخلية E2 يبحث عن أعلى شريحة موجودة من H:I وإذا كانت الشريحة أكبر من القيمة E2 يبحث عن القيمة الأصغر التى تلى الكبرى وهكذا إلى أن يصل إلى إجمالى المبلغ الموجود فى الخلية E2 بمعنى أن يتم تقسيم المبلغ الموجود فى الخلية E2 فى العمود B بداية من الخلية B4 حتى يكون المجموع مساوياً للخلية E2 وشكراً جزيلاً مقدماً ❤ شرائح - Copy.xlsx

تفضل hakim11.xlsm

شكراً لك على مجهودك الذى لا يوصف جزاك الله كل الخير

@محمد هشام. أستأذنك إستفسار بسيط عند أخذ أمر النسخ تكون النسخ الجديدة كلها ( Values & Sources Formatting ) ، هل يمكن أن تكون النسخ التى تتم تكون كما هى بالمعادلات و الـ Format بعتذر لك على الإزعاج

@محمد هشام. جزيت خيراً ربنا يجعله فى ميزان حسناتك

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

السلام عليكم الكود التالى وظيفة عمله تحديد الخلايا التي تحتوي على الاسماء ومن ثم سيتم عمل شيتات بنفس الأسماء الموجودة فى النطاق الذى تم تحيده Sub addsheet() Dim x As Object For Each x In Selection Worksheets.Add().Name = x Next x End Sub فـ كنت محتاج أدمج الكود التالى به Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub الكود ده بيجى رسالة تكتب رقم لـ عدد النسخ المراد نسخها وبعدها بوكس تانى لإسم الشيت المراد نسخه فـ بالتالى محتاج أدمج الكود ده عشان أحدد أسماء الشيتات الـ هتتنسخ من خلال النطاق الذى يتم تحديده فـ النتيجة إن شاء الله هتكون بالضغط على الزر أولاً.. بوكس بتحديد عدد النسخ ثانياً.. بوكس بيطلب مننا نكتب اسم الشيت المراد نسخه ثالثاً.. بوكس بتحديد النطاق الـ هيكون فيه أسماء الشيتات الجديدة الـ هيتعملها Create وفى ننفس الوقت النقطة ( أولاً ) سيتم إلغاؤها لأن النقطة ( ثالثاً ) ستغنى عنها لوجود نطاق يحدد عدد النسخ وشكراً جزيلاً مقدماً لتفهمكم وتعاونكم

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

أساتذتى الكرام أرجو المساعدة @Moosak @jjafferr @ابوخليل @ابو جودي @صالح حمادي @ابراهيم الحداد @محمد طاهر @ناقل @Ali Mohamed Ali @kanory هذا الموضوع تم نشره من يوم الأحد هذا الأسبوع وشكراً جزيلاً

@سمير نجار أشكرك على الإهتمام والمساعدة ولكن أرجو لو يوجد تعديل على module3 فى الماكرو الخاص بـ save بحيث يكون النسخ بنفس إسم الخلية B10 وفى نفس الوقت بنفس التنسيق وتكون الصفحة الجديدة من جهة اليمين وشكراً المشكلة بسيطة إن شاء الله ...

المشكلة تكون عند عمل save لا تكون بنفس التنسيق ولا بنفس إتجاه الصفة (من اليمين إلى اليسار) أرجوا المساعدة فى إتمام هذا الكود من بعد إذنكم وشكراً جزيلاً مقدماً كشف المقبوضات.xlsm

بمعنى الصورة الأولى (untitled1) يوجد على الخلايا border أى خطوط سواء على التى يوجد بها بيانات أو لا يوجد بها أما الصورة الثانية (untitled2) لا يوجد borders فى الخلايا التى يوجد بها بيانات وهو المطلوب فى حالة الأخذ بأمر الطباعة أى أن جدول العمل يبقى كما هو بالخطوط إلا فى حالة أمر الطباعة يتم حذف الخطوط من الخلايا التى لا يوجد بها بيانات.

أرجو الإفادة إذا كان يوجد هناك فعلا شئ مما أطلبه أو لا وشكرا

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