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

وعليكم السلام تفضل Sub ترحيل() Dim wo As Integer Application.ScreenUpdating = False wo = [d1].End(xlUp).Row Sheets(1).Activate Range("a2:d1" & wo).Copy Sheets(2).Activate Range("a" & [b1048576].End(xlUp).Row + 2).PasteSpecial xlPasteValues Sheets(1).Activate Application.ScreenUpdating = True End Sub

اخي تفضل اذا كان المطلوب ليس موجود =IFERROR(VLOOKUP(A8;range;COLUMNS(B1:C3);0);"هذ الاسم غير موجود") اما بالنسبة لجدول البحث يجب عليك تحديد المجال المراد البحث داخلة اي انكان حجمة ليتم مساعدتك مفيش حاجة اسمها ابحث في كل Workbook

وعليكم السلام تفضل طلبك الاول لحين فهم طلبك الاخر الملف جدول صيانة.xlsm

اخي ان كان فهمي صحيح هذا طلبك تفضل ضع هذه الدالة في عمود متبقي وقم بسحبي للاسفل =IF(D2="2000";"0";D2-$G$1)

وعليكم السلام كيف يتم ذلك عندما يتم خصم مبلغ 2000 من 1800 يبقي الباقي سالب -200 وليس باقي ثانياً ما هو العمودين المراد جمعهم واين يتم جمعهم اخي يرجي كتابة المطلوب داخل الجدول يدوي كي يتم فهم المطلوب

السلام عليكم من فضلك وضح اين البيانات .. واين الناتج وهل المطلوب قسمه مثلاً 350/2=175 اما : المطلوب... قسمة / ... او ضرب* ا و جمع + ....... يرجي التوضيح

بسم الله مشاء الله بارك الله فيك استاذ عمرو وذادك من فضله

السلام عليكم كما تفضل اخي..حسونة.. لا تنتظر مساعدة دون ارسال ملف مدعوم بشرح كافي علي العموم جرب بدل من ThisWorkbook.Worksheets("Sheet2").Range("A1").PasteSpecial xlPasteValues الي ThisWorkbook.Worksheets("Sheet2").Range("A2").PasteSpecial xlPasteValues

السلام عليكم ما هو الشرط اذا تحقق يتم كتابة تم الصرف...واين يوجد

السلام عليكم لكي يتم عمل المطلوب .... يرجي اولاً توضيح المطلوب ... مثلاً قم بكتابة المطلوب يدوي داخل الملف ..... 1: قي اي عمود يوجد الشرط مثلاً ... عمود a او c 2:الي اين يتم الترحيل عمود عمود a او c --- وقي اي شيت

السلام عليكم 1:يجب عليك كتابة رقم اليوم في( خلية s1)ليتم طباعتة. .. مثلا يوم الاول يكن 1 والثاني يكن 2 وهكذا تفضل الملف Print.xlsm

السلام عليكم ..اخي ,الملف به ورقة واحدة هل تريد طباعة الورقة كامله pdf ...اما المطلوب ماذا ؟

السلام عليكم ..تفضل بالكود ...الملف DONE.xlsm كما يمكنك استخدام هذه الدالة =IF(Sheet1!L12>=TODAY();"DONE";"")

تفضل ...اتمني ان تكن انتهت المهمة الملف خلطة العملاء.xlsm

السلام عليكم ..كان يجب عليك ان توضح هذا من قبل ..علي العموم -تفضل 1:يتم ترقيم الفاتورة تلقائي دون تدخل منك 2:يتم حفظ الملف في نفس المجلد 3:بالنسبة لعمل مسج تحزير باذا كان الملف موجود اما لا .... لا يمكن عمل ذالك لاحتواء حفظ الملف برقم الفاتورة ....اتمني ان يكون تم عمل المطلوب الملفالخلطة (2).xlsm الكود المستخدم Sub حفظ_بي_دي_اف() Dim fName As String Application.ScreenUpdating = False With Worksheets("main") fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Cells(5, 4).Text & "-رقم الخلطة" & Cells(5, 8).Text, Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False [h5] = [h5] + 1 Application.ScreenUpdating = True End Sub

اخي .ان لم يكن هذا طلبك ..فمن فضلك ..وضح طلبك بدقة أكثر حتي يتم فهم طلبك من باقي الاساتذة .. ويتم عمل اللازم ..تفضل الملف ..والكود بعد التعديل من فضلك يجب عليك وضع الكود بعد الضغط على هذه العلامة <> ستفتح نافذة عليك بلصق الكود داخلها طباعة الشهادات.xlsm Sub tepa3a_shahadat_ELKOL() If Range("J7") > 0 Then Range("H3").FormulaR1C1 = "2" Calculate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "d:\" & Format(Now, "- dd-mm-yyyy-") & Nombre & " " & QualityxlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Do While Not Range("H3").Value > Range("J7").Value Range("H3") = Range("H3") + 2 Calculate Loop Else MsgBox "عفواً المدى الذي تريد طباعته لا توجد به أسماء ... برجاء كتابة أسماء الطلاب وبياناتهم أولاً", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading + vbCritical, "كنترولست" End If Range("A1").Select End Sub

السلام عليكم معني Range("e5").Select يعني.. بقول له بعد تنفيذ الكود خلي المؤشر واقف في خلية e5

السلام عليكم..تفضل ...الملف ..والكود المستخدم الخلطة.xlsm Sub حفظ_بي_دي_اف() Dim fName As String Application.ScreenUpdating = False With Worksheets("main") fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "d:\" & " " & Cells(5, 4).Text & Nombre & " " & QualityxlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Application.ScreenUpdating = True End Sub

السلام عليكم -تفضل طلبك ...الملف ..والكود المستخدم شيت الترم الأول.rar Sub pdf() Application.ScreenUpdating = False Sheets("كشوف مناداة الترم الأول").Select Cells.Select Sheets("كشف النتيجة الترم الأول").Select Cells.Select Sheets("درجات ملف الإنجاز والنشاط").Select Cells.Select Sheets("نتيجة الفصول ").Select Cells.Select Sheets("بيان درجات طالب").Select Cells.Select Sheets(Array("كشوف مناداة الترم الأول", "كشف النتيجة الترم الأول", "درجات ملف الإنجاز والنشاط", "نتيجة الفصول ", "بيان درجات طالب")).Select Selection.Copy ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "d:\" & Format(Now, "- dd-mm-yyyy-") & Nombre & " " & QualityxlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Sheets(Array("كشوف مناداة الترم الأول", "كشف النتيجة الترم الأول", "درجات ملف الإنجاز والنشاط", "نتيجة الفصول ", "بيان درجات طالب")).Select Range("A1").Select Sheets("كشوف مناداة الترم الأول").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

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

احي لما ذا لم ترسل الملف الاساسي ..... ليتم العمل عليه ؟ الوقت محدود لدا الجميع ...ممكن اسماء الشيتات المراد تصديرهم

السلام عليكم .لعدم اهدار الوقت لدا الجميع محدود ...من فضلك قم بارسال ملف مدعوم بشرح كافي

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

اخي افهم من كلامك ان المراد تصديرة الي pdf ... هو ورقة واحدة شهادة الترم الاول فقط ؟ من فضلك اذا كان فهمي غير صحيح يرجي توضيح اكثر

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