hicham2610

الأستاذ:بن علية حاجي جزاك الله خيرا وأتابك الجنة ، هذا ماكنت أبحث عنه جزاك الله خيرا وأثابك الجنة

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

السلام عليكم جزاك الله خيرا وأحسن إليك لكن لم ينجح معي هل ستظهر نافذة تطلب مكان حفظ الPDF لأنها لم تظهر معي؟ وجزاكم الله خيرا الجداول المراد طبعها PDF هي الجداول الأربعة التي فوقها:=0 ، =1 ، =2 ، =3 قمنت بتعديل وحصلت على ملف لحفظ الجداول يحدث في مكان تواحد الملف لكن لم يكتمل بعد فالمرجو من الإخوة المساعدة على إتمامه بحيث تخرج رسالة هل يريد المستعمل طبع جداول مستقلة يعني كل جدول في ملف مستقل أم يريد طبعها مجتمعة في ملف واحد Sub IMP_3() If Not ActiveSheet.Name Like "ÊÑÇßíÈ*" Then Exit Sub 'sécurité Dim chemin$, rep As Byte, a$, h&, i& chemin = ThisWorkbook.Path & "\ãáÝ ÍÝÙ ÌÏÇæá ÇáÊÝííÁ\" If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'création du dossier MsgBox "åÔÇã: ÇáÓáÇã Úáíßã¡Êã ÅäÔÇÁ ãáÝ ÍÝÙ ÇáÌÏÇæá Ýí äÝÓ ãßÇä ÊæÇÌÏ ÇáÈÑäÇãÌ Åä áã íßä ãæÌæÏÇ ãÓÈÞÇÈÇÓã:ãáÝ ÍÝÙ ÌÏÇæá ÇáÊÝííÁ." Application.ScreenUpdating = False With ActiveSheet .PageSetup.Zoom = False .PageSetup.FitToPagesTall = 1 '1 page en hauteur, détermine le zoom If rep = 6 Then 'Oui a = .PageSetup.PrintArea h = .Range(a).Rows.Count .Copy 'nouveau document With ActiveSheet .PageSetup.PrintArea = "" For i = 1 To Val(.[N7] - 1) .Range(a).EntireRow.Offset(h * i - h).Copy .[A1].Offset(h * i) .[N5].Offset(h * i) = i + 1 .HPageBreaks.Add Before:=.[A1].Offset(h * i) 'saut de page Next .PageSetup.PrintArea = .Range(a).Resize(h * i).Address .PageSetup.FitToPagesTall = i .ExportAsFixedFormat xlTypePDF, chemin & "Groupé.pdf" .Parent.Close False 'fermeture du document End With MsgBox "åÔÇã: ãÈÑæß¡Êã ÍÝÙ ÇáÌÏÇæá" Else 'Non For i = 1 To Val(.[N7]) .[N5] = i .ExportAsFixedFormat xlTypePDF, chemin & .[N5] & ".pdf" Next .[N5] = 1 MsgBox i - 1 & " :ÚÏÏ ÇáÌÏÇæá ÈÏÅÝ ÇáÊí Êã ÍÝÙåÇ ÈäÌÇÍ åæ" End If End With End Sub الكود مدمج في الزر:x9 آسف ظهرت الحروف العربيةبهذا الشكل وجزاكم الله خيرا ملف 11.xlsm

السلام عليكم من فضلكم أحتاج كود vba ليوضع في زر "طبع" ليطبع خلايا جدول بصيغة PDF إلى غاية آخر سطر به بيانات مثلا الجدول في الجدول الأول : ليطبع من X9 إلى غاية آخر سطر به بيانات وفي هذه الحالةAA35 لأن مثل هذه الجداول تكون بياناتها متغيرة وجزاكم الله خيرا ملف.xlsm

السلام عليكم تفضل تدخلي بحسب مافهمت أتمنى أن يفي بالغرض req.xlsx

السلام عليكم أدخلت كودا منحه إلي الأخ الفاضل سليم حاصبيا ، جزاه الله خيرا،هذا الكود يمنع كتابة أكثر من علامة في الموضوع الواحد، في المجال:B9:Q45 ورقة"تراكيب"، ومن وضع أكثر من علامة تخرج رسالة الحطأ هذه الرسالة هي الإفتراضية في إكسيل 1- هل من تدخل لتغييرها برسالة:"أخطأت في الكتابة، لاتدخل أكثر من علامة"؟ 2-بإدخالي لهذا الكود ، حذف لي لائحة منسدلة بها:x و فراغ وهذه اللائحة موجودة ب:DD1:DD2،هذه اللائحة كانت مبرمجة في في المجال:B9:Q45 ورقة"تراكيب"؟ وكانت رسالة الخطأ "اكتب علامة أو اتركها فارغة، أو اختر من اللائحة" هل من تدخل لإرجاع هذه اللائحة المنسدلة لتعمل مع هذا الكود؟ وجزاكم الله خيرا ملف.xlsm

شكرا لاهتمامك وردك هل جربتها في ملفي ونجحت معك؟ إن كان نعم فالمرجو مزيدا من التوضيح جزاك الله خيرا

السلام عليكم في الورقة الأولى فيها جداول مسماة (0،1،2،3=) بها أسماء ، هذه الأسماء بها فراغات كثيرة ولم أجد طريقة لحذف تلك الفراغات وكذلك الأسطر الفارغة دون المس بالجدول الكبير الذي به علامات(x) ففكرت في نقل كل جدول من الجداول الأربعة في ورقة مستقلة(T0.T1.T2.T3) وأشتغل عليه بحذف الأسطر الفارغة لكن بطريقة F5 يجد التي أظنها فارغة ممتلئة رغم أني في اللصق اعتمدت فقط لصق القيم وكذلك بمعادلة si، في ورقة:T0بحيث إن كانت خلايا الأسطر الأربعة بها فراغ يضع 0 ام في خاة العكس يضع 1 ليسهل علي حذف من بها 0 لكن المفاجأة أنه يضع لي 1 ماحل هذه المشكلة؟ وجزاكم الله خيرا 3.xlsm

السلام عليكم الإخوة الكرام المطلوب هنا:بالنسبةللجداول الأربعة: x11 : AA60 AC11 : AF60 AH11 :AK60 AM11:AP60 هل من طريقةأوكود لنسخ النطاق أو هذه الجدول في مكانها لكن بحذف الخلايا أو الأسطر الفارغة، الملف مرفق وشكرا جزيلا 3.xlsm

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

ممكن إخوتي التعديل في الكود، لتسمية الأوراق الأربعة المضافة بتسمية معينة وعدم ترك إكسيل يسميها مثلا ب:F0/F1/F2/F3 أو 100/101/102/103 لأن الاشتغال يكون عليه أكثر من مرة وستنضاف إليه برمجات أخرى وفي كل مرة تتغير الأسماء إن تركت لإكسيل حرية التسمية ================================ جزاكم الله خيرا وأحسن إليكم ===============================

جربته، جيد ================================ جزاك الله خيرا وأحسن إليك ===============================

السلام عليكم كيف أعدل على macro6 في تاملف المرفق بحيث ينشئ أربعة أوراق باسم 100،101،102 و103 بحيث ينسخ الجدول 0 في 100 والجدول1 في101 والجدول 2في102 والجدول 3 في103 كما في المثال إلى غاية السطر 51 ليحتمل عدد التلاميذ في حدود 50 تلميذا وجزاكم الله خيرا 1.xlsm

جزاك الله خيرا وأحسن إليك

السلام عليكم الاخوة الكرام هل من كود vba او معادلة أو برمجة للقيام بالتالي: حذف الفراغات بين الأسماء في الجداول الأربعة الموجودة جهة اليمين يجب منع وضع x في أكثر من خلية واحدة من الأعمدة 0،1،2،3 لكل موضوع وجزاكم الله خيرا 1.xlsm

جزاك الله خيرا للأسف لم ينجح معي

السلام عليكم من فضلكم كيف أنسخ محتوى الخلايا المملوءة في 1 ولصقها في 2 بالترتيب وبدون فراغات مثل ما في الملف هل من معادلة أو كود vba وشكرا جزيلا لصق.xlsx

السلام عليكم عبر تسجيل الماكرو توصلت لهذه الحلول في انتظار تطويركم وتدخلكم جزاكم الله خيرا 2.xlsm

السلام عليكم ورحمة الله وبركاته من فضلكم عندي هذا الملف وأحتاج كود VBA لدمجه في الزر "ترحيل الأسماء" بحيث ترحل الأسماء لتلك الجداول الأربعة : حسب الموضوع:الحال،جمع مذكر ومؤمث سالمين،تمييز ،مستثنى وحسب الفئة:متمكن ،متمكن نسبيا ، في طور التمكن،غير متمكن وجزاكم الله خيرا 1.xlsm

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

السلام عليكم الأخ أبو عيد جزاك الله خيرا وأحسن إليك طريقتك فعالة الأخ الكريم هل من طريقة للتغيير في الكود بدون تحديد لاسم الورقة المفتوحة في 1 و2 فقط الورقة النشطة "=IF(EXACT([2.xlsx]NotesCC!RC3,[1.xlsx]NotesCC!RC3)=TRUE,[2.xlsx]NotesCC!RC3,""X"")" مرة أخرة جزاك الله خيرا وأتابك الجنة لاهتمامك

السلام عليكم الإخوة الكرام هل من اقتراحات؟

تفضل أخي بعد فك الضغط: الحالة الأولى 1.xlsx 2.xlsx P.xlsm الحالة الثانية: 1.xlsx 2.xlsx P.xlsm

السلام عليكم تقبل الله منا ومنكم وللذين عيدوا اليوم مبرووووك عيدكم الإخوة الكرام كنت طرحت هذا الطلب ةأعيد طرحه مبسطا لعلي أحصل على رد وحل مناسب ماهو الكود الواجب إدخاله في P بحيث يتحقق من من مطابقة C18 في 1 مع c18 في 2 وهكذا الى غاية آخر سطر به بيانات وتخرح رسالة "هناك تطابق واصل" كما عندنا في الحالة:1 وتخرج مثلا" انتبه هناك عدم تطابق" كما في الحالة 2 وجزاكم الله خيرا وأحسن إليكم الحالتان.rar

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