أ / محمد صالح

الأمر بسيط جدا يمكنك استعمال هذا الكود Sub export2pdf() For r = 3 To Sheet1.Cells(Rows.Count, 1).End(3).Row Sheet2.Range("b4") = Sheet1.Range("a" & r) Sheet2.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheet2.Range("b4") & ".pdf" Next r MsgBox "Done by mr-mas.com" End Sub بالتوفيق

جميعا بإذن الله

الشكر لله الذي وفقنا لهذا

عليكم السلام الكلام النظري لا يوصل المعلومة صحيحة في أغلب الحالات يفضل إرفاق الملف أو مثال للمطلوب

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

عليكم السلام و رحمة الله وبركاته علي افتراض أن العمود المطلوب هو B يمكنك استعمال هذه المعادلة وهي أحد الحلول وليست الحل الوحيد =INDEX(B:B,COUNTA(B:B)) فجميع دوال البحث تجدي في هذه الحالة ويمكن سحب المعادلة أفقيا للتطبيق على أكثر من عمود بالتوفيق

قرار صائب من إدارة حكيمة @lionheartمنذ مشاركاته الأولى وأنا أشعر أنه أحد عمالقة هذا الصرح مليون مليار مبارك وأقترح عليه استعمال osk الموجودة في جميع إصدارات الويندوز أو touch keyboard الموجودة في ويندوز 10 فهما يدعمان اللغة العربية حتى وإن كانت لوحة المفاتيح hardware لا تدعمها خالص دعواتي بالتوفيق للجميع

رغم أن المطلوب غير واضح لي بصورة كافية إلا أنه * مشكلة ملفك هي أن عمود التاريخ E وعمود الوقت F تم تخزينهم وتنسيقهم كنص وحتى بعد تغيير التنسيق إلى وقت أو تاريخ لا تكون قيمته تاريخ ولا وقت لذا تم استخدام عمود G & H للحصول على قيم الوقت والتاريخ وتنسيقهم بصورة صحيحة واستعمالهم في المعادلات ويمكن إخفاؤهما * وتم تغيير قيمة وتنسيق خلايا الوقت في العمودين I & M ربما يكون هذا هو المطلوب بالتوفيق TQ.xlsx

يمكنك استعمال برامج كثيرة لهذا الغرض منها aopr advanced office password recovery بالتوفيق

جميعا بإذنه تعالى

إن شاء اللّه يكون هذا هو المطلوب في حالة زيادة أسماء المصنفات يتم نسخ المعادلة لأسفل وتغيير اسم المصنف يدويا في اول خلية فقط ثم النسخ أفقيا بالتوفيق sumif in closed workbooks.rar

الشكر لله وفقنا الله جميعا لكل خير

آمين ولك مثل ما دعوت وزيادة وفقنا الله جميعا لكل خير

فكرة التقرير جيدة وكما قلت سابقا يمكن الاستغناء عنها بعمل فلتر وطباعة الصفحة ومادامت المدة تتجاوز الشهر فلابد من تسجيل بيانات جميع الشهور في شيت واحد مثلا all تم ضبط معادلة البحث وجمع بيانات الشهرين في شيت واحد بالتوفيق حضور وانصراف الموظفين - Copy (2).xlsx

يمكنك تغيير سطر الشرط If C = Val(Me.TextBox6) Then إلى If C = Val(IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6)) Then وتغيير آخر سطر قبل نهاية الإجراء Call TextBox6_Change إلى Me.TextBox6 = IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6) بالتوفيق

جميعا بإذن الله

الشكر لله وفقنا الله جميعا لكل خير

عذرا لتأخر الرد ما رأيت المشاركة إلا الآن وبعد تجارب بسيطة تم تبسيط المعادلتين الاضافي والانصراف المبكر انصراف مبكر: Round (IIf([بدايه الانصراف]-[الانصراف]>0 and [بدايه الانصراف]-[الانصراف]<0.5,[بدايه الانصراف]-[الانصراف],0)*24,2) الإضافي: round(IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,1-([بدايه الانصراف]-[الانصراف])))*24,2) ويمكن تطبيق المنازل العشرية 2 للحفاظ على. تنسيق الرقم بالتوفيق

جميعا بإذنه تعالى فلله الحمد والشكر

أولا أحييك تعديلاتك رائعة تدل على فهم لمضمون الكود ثانيا رقم 4 في هذا السطر هو رقم عمود النهاية في الخلايا التي يتم الكتابة فيها ورقم 2 هو عمود البداية r = IIf(c = 4, r + 1, r): c = IIf(c = 4, 2, c + 1) حيث يتم الكتابة في عمود 2 و3 و4 في حالتك الجديدة يتم الكتابة في العمود 10 و11 و12 لذا نغير 4 إلى. 12 وتعدل بداية العمود c من 2 إلى 10 وسيعمل الكود بنجاح r = IIf(c = 12, r + 1, r): c = IIf(c = 12, 10, c + 1) بالتوفيق

جميعا بإذن الله ✌👍

لا يحدث هذا إلا إذا جعلت النموذج يظهر عند فتح المصنف لحل هذه المشكلة: * إذا كان الملف مفتوحا يجب إنهاء مهمة الإكسل كله لغلق الملف كلك يمين على شربط المهام ثم task manager مدير المهام * افتح اكسل وأنشئ مصنفا جديدا أو افتح مصنفا تملك الدخول إلى أكواده * افتح نافذة محرر الفيجوال بيسك alt+f11 * افتح الملف صاحب المشكلة ثم توجه إلى نافذة الفيجوال: alt+tab والوصول للملف المسموح للوصول لنافذة الفيجوال بيسك أو الوقوف بمؤشر الفارة على زر اكسل في شريط المهام ثم اختيار نافذة الفيجوال بيسك * وهناك تضغط على اسم الملف صاحب المشكلة في أعلى يسار النافذة لترى أكواده وتعدل عليها بالتوفيق

الشكر لله تحياتي

الشكر لله وفقنا الله جميعا لكل خير

جميعا بإذن الله