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

اخي انت بالاول طلبت ان يكن مثل زر الطباعة------- الان طلبك غير مفهوم

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

اخي هذا ليس له علاقة اذا كنت تنسخ المعادلة فيجب عليك نسخ الكود ايضا او ممكن ترسل نسخة من الملف الاصلي ليتم مساعدتك

السلام عليكم جرب الملفNew Microsoft Excel Worksheet (1).xlsm

وعليكم السلام لو فهمي صحيح تفضل اضافة الى الكود القديم.xlsm

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

اخي ... هذا ليس طلبك في المشاركة علي العموم تفضل فاتورة جديدة2022.xls

وعليكم السلام ...لم افهم طلبك ...من فضلك قم بكتابة المطلوب تنفيذه يدوي ..داخل الملف لكي يتم فهم المطلوب

السلام عليكم من volume انظر الصورة

السلام عليكم ... كل عام وجميع اساتذة هذا المنتدي الجميل بخير وصحة وعافية وعيد اضحي مبارك علي الجميع ان شاء الله جرب الملف 1حلقات مسجد الجامع....xlsm

وعليكم السلام ..جرب المرفق حلقات المساجد1.xls

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

عمل جميل جزاك الله خيراً وجعله الله في ميزان حسناتك

وعليكم السلام اولاً قم بتوضيح المطلوب 1: مثلا اريد طباعة المدي من a1:f39 دون طباعه الفراغ 2: هل المدي ثابت اما متغير ... يرجي التوضيح

وعليكم السلام بما انك لم ترسل ملف مدعوم بشرح كافي تفضل خلطة العملاء.xlsm94.67 kB · 19 downloads ايضاً https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=207040&key=d1d90b44255334a0a45e54a449110d45

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

وعليكم السلام ورحمة الله اتبع هذة الخطوات وسوف يتم حل هذه الرسالة 1:اذهب الي المطور-ومن الي امان الماكرو - ثم اختيار تمكين كافة وحدات الماكرو

هل تم عمل المطلوب

هل تقصد هكذا الملف كود بل المعادلات.xlsm

السلام عليكم ..اذا كان فهمي صحيح ..يمكنك استخدام هذه الدالة =IFERROR(VLOOKUP($G$1;$I$2:M500;1;FALSE);"")

وعليكم السلام تفضل هذا الكود لأحد اساتزة هذا المنتدي الملف تحريك.xlsb.xls

وعليكم السلام ورحمة الله اخي لابد من شرط اذ تحقق يتم الترحيل دون فراغ 1:مثلاً اذا كان عمود T.... يوجد به كلمة Fluffy ..... يتم ترحيل ما يقابلها ...واذا كانت فارغة يتم اخفاء ما يقابلها ..هل تقصد هكذا اما ماذا تريد ..تفضل Sub fluffy() ' ' fluffy Macro ' Application.ScreenUpdating = False Range("T3:T700").AutoFilter Field:=1, Criteria1:="<>" Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Sheets("Sheet1").Range("T3:AA1000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("Sheet2!Criteria"), CopyToRange:=Range("BI4:BP4"), _ Unique:=False Range("T3:T700").AutoFilter Application.ScreenUpdating = True End Sub

شرح كيفية نزع الحماية ... ادخل علي Feuil2 Calcul paie ستجد هذا الكود Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range) Set Rng = Range("E5:E186,G5:G186,I5:I186,N5:N184,P5:P186,R5:R186,V5:V186,X5:X186,Y5:Y186,Z5:Z186,AB5:AB186,AC5:AC186,AE5:AE186,AF5:AF186,AH5:AH186,AI5:AI186,AM5:AM189,AO5:AO189,AR5:AR189,AV5:AV189,AX5:AX189,AZ5:AZ186,BA5:BA186,C5:C186") If Not Intersect(Tr, Rng) Is Nothing Then Tr.Offset(0, 1).Select Set Rng = Nothing End If End Sub قم بإزالة هذا الجز ,AE5:AE186

تفضل ghبرنامج الراتب.XLS

اخي طلبك غير واضح 1: هل تريد الترحيل اذا تحقق شرط وان كان ذالك ما هو الشرط ؟ 2: ماذا تقصد بكلمة ترحيل بترتيب ...... هو بالفعل يتم الترحيل بالترتيب