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

اخي تفضل نسخة من المركز.xls

وعليكم السلام ورحمة الله اري الكود المستخدم ثقيل بعد تحديد العمود كلة فانصحك بهذا الكود جميل وبسيط ويفي بالغرض المطلوب تفضل الملف New Microsoft Excel Worksheet (3).xlsb الكود المستخدم Sub Run() Application.ScreenUpdating = False ' Range("F2") = _ "=COUNTIF(C5,RC[-2])" Range("F3") = _ "=R[-1]C[-2]" Range("F2:F3").Value = Range("F2:F3").Value Application.ScreenUpdating = True End Sub

اخي..... طلبك غير مفهوم يرجي التوضيح

وعليكم السلام تفضل =COUNTIF($B$2:$N$478;A1) من B2:N478 ده المكان المراد البحث في عن الاسم المكتوب في A1 ان كان هذا ليس هو المطلوب فيرجي ارسال ملف مدعوم بشرح لما تريدة

تفضل ضع هذه المعادلة في خليه السابعة =IF(A5>0;A5+1;"") ضع هذه المعادلة في خليه الثامنه =IF(A5>0;A5+365-1;"")

اخي طلبك غير مفهوم يرجي التوضيح

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

وعليكم السلام ورحمة الله وبركاتة تفضل تثبيت الصفوف.xlsm

اخي ... بالفعل هذا ماتم عملة في المشاركة الاولي وعلي العموم تفضل الملفطباعة اعمده محدده.xlsm

Sub طباعه_عامة() Range("B9:Z260").Select '''هنا حددالمراد اضافتة الطباعة ActiveSheet.PageSetup.PrintArea = "$B$9:$Z$260" '''هنا حددالمراد اضافتة الطباعة Range("G:G,I:I,d:d,e:e,k:k,L:L,n:n,f:f,h:h,p:p,q:q,r:r,s:s,u:u,v:v,x:x,Y:Y,z:z").Select ''هنا حدد العمود المراد اخفائة قبل المعاينة Selection.EntireColumn.Hidden = True ActiveWindow.SelectedSheets.PrintPreview ' ' هنا معاين قبل الطباعة Application.ScreenUpdating = False With Sheets("ورقة1") 'هنا حدد اسم الورقة او الشيت Range("G:G,I:I,d:d,e:e,k:k,L:L,n:n,f:f,h:h,p:p,q:q,r:r,s:s,u:u,v:v,x:x,Y:Y,z:z").Select ''هنا حددالعمود المراد اظهارة Selection.EntireColumn.Hidden = False Range("b9:z260").Select ''هنا حدد المدي المراد طباعته ' ActiveSheet.PageSetup.PrintArea = "$B$9:$Z$100" Reply = MsgBox("هل العميل " & Chr(10) & " يريد نسخة من الفاتورة ", vbYesNo) ' If Reply <> 6 Then Exit Sub ' .PrintOut End With End Sub اخي علي بن علي افهم من كلامك انك تحتاج اخفاء قبل المعاينة فقط ... وليس اخفاء في الطباعه ؟ تفضلطباعة اعمده محدده.xlsm

اخي معني هذا الخطأ #N/A .... يعني الاسم التي تبحث عنة غير موجود ... تم حل الخطأ ... اختار الاسم من القائمة المنسدلة تفضل Test.xlsx

اخي علي بن علي تفضل طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+111.xlsb.xlsm

وعليكم السلام ورحمة الله وبركاتة ضع الفولدر المسمي تخزين علي برتيش D ....وان ارت تغير الموقع يكن من هنا ... FName = "d:\تخزين\" واستخدم الملف المسمي Main من اي مكان تفضل تخزين.rar

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

تفضل Sub Run() ' Application.ScreenUpdating = False ' Application.DisplayAlerts = False Range("C4:C15,E4:E15,O4:O15,C17:C28,O4:O15,E17:E28") = _ "=IFERROR(VLOOKUP(INDEX(ÇáÇÕäÇÝ!R3C4:R1500C4,MATCH(RC[-1],ÇáÇÕäÇÝ!R3C3:R1500C3,0)),ÇáÝÇÊæÑÉ!R5C2:R1500C5,2,0),"""")" Range("C3:O35").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C4:C15,E4:E15,O4:O15,C17:C28,O4:O15,E17:E28").Select Application.CutCopyMode = False Range("A1").Select Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

اخي elkareee ليس انا صاحب افضل اجابة وإنما صاحب افضل اجابة هو الاستاذ محي الدين ابو البشر فيرجي.. اعطاء كل زي حق حقه وفقنا الله واياكم الي ماهو خيراً

تفضل تم اصلاح الخطأ =IF(C23="ناجح";": قد نجح في امتحان الصف ";IF(C23="برنامج علاجي";": له برنامج علاجي في امتحان الصف";"")) الملف New Microsoft Excel Worksheet.xlsx

وعليم السلام ورحمة الله اين الملف ؟

وعليك السلام ورحمة الله وبركاتة تفضل ضع هذه المعادلة في اي خليه واكتب التاريخ المراد معرفة عدد ايامة في a1 مثلاً A1 = 1/1/2023 ... يبقي النتيجة عدد الشهر 31 =DATE(YEAR(A1);MONTH(A1)+1;DAY(A1))-A1

بالفعل يوجدكود بالملف PDF و ايضاً xlsm لتوضيح تفضل نسخة من بيات توزيع المواد الغذائية (2).xlsm الكود المستخدم Sub PDF() Dim fName As String Application.ScreenUpdating = False ' Application.DisplayAlerts = False '' With Worksheets("mo1") fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Cells(3, 6).Text, Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Application.ScreenUpdating = True ' Application.DisplayAlerts = True '' End Sub

وعليكم السلام تفضل المصنف1.xlsx

تجربه علي عميل واحد هل القائمة المرادة هكذا .... تتطبق علي باقي العملاء المرفق الملف للتوضيح.xlsm

وعليكم السلام ورحمة الله الشرط موجود في عمود اي !!!

السلام عليكم اذا كان فهمي صحيح فهذا طلبك المرفقنسخة من منسدلة ديناميكة لمناديب دول وفروعها الاخير).xlsm

هل تريد عندما تكتب اسم المندوب يأتي لك اسم الدولة و المحافظات المزكورة الخاصة به