محمد يوسف ابو يوسف

السلام عليكم اضغط زر الراسب..........لا تنسي ان تكتب الشرط كلمة (راسب)امام النتيجة او الناجح يتم تنفيز طلبك ......لا تنسي ان تكتب الشرط كلمة (ناجح) امام النتيجة اما بالنسبةلعدد الشهادات فلا يوجد بالشيت المرفق الا 4شهادات ...فأن ارت اكثر من ذالك يرجي تحديد عدد الشهدات اللي حضرتك محتاجه تفضل الملف مرة اخريشهادات ,والراسبين 4 تعريق متغيرات (1).xlsm

السلام عليكم لم اجد اي مشكلة بالكود تفذت الخطوات .... خطوات ظهور المشكلة 1- افتح اي مصنف اكسل 2- افتح الملف المرفق في مثيل جديد لاكسل 3- جرب الكود صورة لتنفيذ الخطوات

اخي يجب طرح مثال... مثلاً اريد طباعة (شيت الترم الأول) او (شهادات الترم الأول) او كلهم من فضلك لا تبخل بشرح واضح وكافي ..فالوقت محدود لدى الجميع ..جزاك الله خيراً

وعليكم السلام -تفضل الكود Sub ØÈÇÚå_ÚÇãÉ() Application.ScreenUpdating = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "d:\" & Format(Now, "- dd-mm-yyyy-") & Nombre & " " & QualityxlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Application.ScreenUpdating = True End Sub

اخي بالفعل هذا ما تم عملة ----عند الضغط علي زر طباعة مدي الناجحين يتم حفظ ملف pdf علي برتيشن d اخي يوجد شرط لتنفيز المطلوب لديك .... الشرط كتابة النتيجة ناجح اولاً قم بكتابة كلمة ناجح امام النتيجة ... ثم اضغط زر طباعة مدي الناجحين ..وسف يقوم الكود بعمل اللازم تفضل الملف مرة اخري شهادات ,والراسبين 4 تعريق متغيرات.xlsm

تفضل ...الملف ...اتمنا من الله ان يكون هو المطلوب !!! تثبيت معادلة (1).xlsm

تفضل الملف تثبيت معادلة.xlsm الكود المستخدم Sub tast() Application.ScreenUpdating = False Range("E10").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[6]>1,VLOOKUP(RC[3],أسعار!C[-3]:C[-2],2,),"""")" Range("E10").Select Selection.AutoFill Destination:=Range("E10:E405") Range("E10:E405").Select Selection.Copy Range("E10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False Range("E10").Select Application.ScreenUpdating = True End Sub هل هذا ما تريد ؟

السلام عليكم تفضل يجب عليك تغير امتداد الملف ليصبح هكذا xlsm. الملف test.xlsm

السلام عليكم بعد اذن استاذنا حسين مامون ..جرب هذا الكود Sub tast() Application.ScreenUpdating = False Range("E10:E405").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(R10C8:R[395]C[3],أسعار!C[-3]:C[-2],2,),"""")" Range("E10").Select Selection.AutoFill Destination:=Range("E10:E5000") Range("E10:E5000").Select Selection.Copy Range("E10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False Range("E10").Select Application.ScreenUpdating = True End Sub الملف تثبيت معادلة.xlsm

السلام عليكم اخي يجب عليك استخدام الة البحث في المنتدي ثم طرح السؤال علي العموم تفضل هذا الملف /لأستاذنا / علي الملف System_Excel_Shops.rar

تفضل العبقرى.xlsm

السلام عليكم ..التعديل هنا Range("B45:H191").Copy تفضل الملف vehicles Cost.xlsm

السلام عليكم ..هذا حل مني..يتم حفظ صورة بي دي اف ---- علي برتيشن d Sub طباعه_عامة() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "d:\" & Format(Now, "- dd-mm-yyyy-") & Nombre & " " & QualityxlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Application.ScreenUpdating = True End Sub

السلام عليكم يتم الترحيل الي اي اسم موجود داخل خلية a1 يوجد قائمة منسدلة يتم اختيار الرقم المراد الترحيل اليه تفضل Sub ترحيل_الي_اي_شيت() Dim Cell As Range, m As String, LR As Long, LRT As Long Dim wm As Worksheet, Answer As Long Set wm = Sheets("Jan") LR = wm.Cells(35, 3).End(xlUp).Row m = wm.Range("A1").Value ' موجود اسم الشيت المراد الترحيل اليهa1 Application.ScreenUpdating = False Range("B46:H51").Copy With Sheets(m) LRT = .Cells(Rows.Count, 3).End(xlUp).Row + 1 .Cells(LRT, 2).PasteSpecial xlPasteValues End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub الملف vehicles Cost.xlsm

السلام عليكم اخي omar elhosseini بالضبط ما تقوله صحيح

كل عام وحضرتك بخير استاذنا

السلام عليكم ...اخي ..تفضل..النسخة 2019 ..الرسالة

اخي ..ان كان فهمي صحيح فهذا طلبك الملف export1.xlsm الكود المستخدم Sub تحويل_التاريخ_الي_هجري() Range("A2:B62").Select Selection.NumberFormat = "[$-,106]B2yyyy/mm/dd;@" Range("A2:B62").Select Selection.End(xlUp).Select End Sub

اخي هل تقصد معادلة لاستدعاء بيانات او مستحقات عميل اما مذا تقصد؟ من فضلك قم بعمل ما تريده يدوياً داخل الملف المرفق لتسهل فهم المطلوب

اخي ان كان فهمي صحيح ... فقد تم طلبك ..ضع هذا في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) ActiveWindow.View = xlPageBreakPreview End Sub ان لم يكن طلبك .. ممكن توضيح اكثر .. وان شاء الله يتم عمل اللازم

السلام عليكم تفضل الملفtest_print.xlsm

اخي ماذلت لم تقم بتوضيح المطلوب 1: اين يوضع هدا--٧٦٥٤٣٤٤٦٦٥-- الرق مثلاً في خلية a1 2: اين يكتب اسم المريض مثلا في خلية c1 3:اين تر

وعليكم السلام ورحمة الله وبركاتة يرجي شرح المطلوب بطريقة اوضح مثلاً اين عدد المرضي المراد توزيعهم علي الغرف؟ ---------- واين يكن موجود الفردي -والزوجي؟ جزاك الله خيراً

اخي يجب عليك استخدام اله البحث فيوجد الكثير مايشابه طلبك جزاك الله خيرا

السلام عليكم ما هو المدي المراد ترحيله مثلاً من a1:k6 والي اين يتم الترحيل مثلا من a5:k11 يرجي توضيح ليتم عمل اللازم جزاك الله خيراً