Mahmoud Atef

السلام عليكم برجاء المساعدة فى هذا الملف المطلوب أنه عند وضع مبلغ فى الخلية 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 الموجودة بكل خلية فارغة لا يوجد بها بيانات عند الأخذ بأمر الطباعة وشكرا لك مرة أخرى للمساهمة

برجاء عمل زر ماكرو عند الضغط عليه يظهر معاينة قبل الطباعة مع العلم أنه عند طباعة الجدول الموجود بالملف المرفق يتم إخفاء أو عم No Border للخلايا الفارغة فقط والإبقاء للخلايا التى يوجد بها ملفات وشكرا جزيلا لكم جميعا New.xlsx

أرجوا من فضلكم إضافة كود ب module3 فى الماكرو save لأخد ما بهذه الخلية (F5) ليكون هو عنوان (إسم) الشيت الجديد الذى يتم الترحيل إليه بإستمرار بعد الضغط على زر save بالأحمر أريد فى القوائم المنسدلة ان يكون عندما أكتب حرف مثلا أو شئ يعطينى ما هو مقارب فى هذه القائمة أو غيرها وهل ماكرو الطباعة صحيح أم لا بحيث انه قبل الضغط على زر طباعة يعطينى معاينة قبل تنفيذ الأمر أم لا أريد عند وضع صورة تأخذ الحجم الكامل ل A51 المدمجة والتى تليها مباشرة A75 ولو أمكن أيضا عمل زر Attach .... وعند الطباعة تكون صفحة الشكوى منفرده والصورتين بصفحة أخرى ولك الشكر والتقدير ولكم جزيل الشكر Complaints_new edit_1.xlsm

بعد إذنكم ده ملف PDF محتاج أحوله ل Word بس كل اما أحوله بيتحول لحروف متفرقه ومش عارف أوصل لحل !!!! أى حد يساعدنى بعد إذنكم ضرورى ... وشكرا Untitled.pdf

أستاذ سليم ألف شكر على الإفادة . شكرا جزيلا

تفضل ______12.xlsx

بعد اذنكم عايز أفك حماية الملف ده https://drive.google.com/open?id=1WfBPR2-OEsyUxh4QCBPvJ4yj39sKji11