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

السلام عليكم ورحمة الله وبركاتة كل عام وحضراتكم بخير رمضان كريم بعد اذن اخي حسونة تفضل New Microsoft Excel Worksheet (5).xlsm اخي مامون دعيس يوجد شرط ليتم تنفيز الكود ........ الشرط هو عندما تكتب في عمود المقاعد المباعة يتم ادراج الدالة المطلوبة الكود المستخدم Private Sub Workbook_SheetChange(ByVal SH As Object, ByVal Target As Range) If Target.Column = 2 Then M = Target.Row With Sheets("Sheet1") .Cells(M, 3) = "=RC[-1]-20" End With End If End Sub

اخي 2saad تفضل نسخة من محمد (6) (1).xlsm

اضغط الصورة اسفل

جزاك الله خيراً

وعليكم السلام ورحمة الله وبركاتة تفضلمحمد (6).xls

تم شرح الكود لتسهيل فهمة يمكنك اختيار اي عمود تحددة وتضع في اي معادلة انت تريدها Private Sub Workbook_SheetChange(ByVal SH As Object, ByVal Target As Range) CL = Target.Column RW = Target.Row If CL = 12 Then If Target > "" Then Application.ScreenUpdating = False Cells(RW, 13).Resize(, 57) = "=IFERROR(INDEX(Data2,MATCH(R7C64,Day,0),MATCH(R6C2,R6C2:R6C7,0)),"""")" '''''هنا حدد العمود المراد وضع الدالة في وهو همود رقم 13 الي عمود رقم 57 Cells(RW + 1, 13).Resize(, 57) = "=IFERROR(INDEX(Data2,MATCH(R8C64,Day,0),MATCH(R6C6,R6C2:R6C7,0)),"""")" '''''هنا حدد العمود المراد وضع الدالة في وهو همود رقم 13 الي عمود رقم 57 Cells(RW, 59) = "=SUM(45-COUNTIF(RC[-46]:RC[-2],""=0""))" ''' في عمود رقم 59 يتم وضع المعادلة Cells(RW, 13).Resize(RW + 1, 59).Value = Cells(RW, 13).Resize(RW + 1, 59).Value '''''هنا يتم تحويل المعادلة الي قيم Application.ScreenUpdating = True Else Cells(RW, 13).Resize(RW + 1, 59).Value = "" ''هنا اذ العمود 12 يساوي فراغ فباقي الالعمدان تساوي فراغ End If End If End Sub

السلام عليكم ورحمة الله وبركاتة كل عام وانتم بخير ... رمضان كريم تفضل حافز المنظومة 2023.xls

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

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

ايوة هنا

ارسلها

اخي هل يوجد لديك نسخة من قبل هذه المشكله

السلام عليكم ورحمة الله وبركاتة هذا شيت لمحاسبة العمال بالساعة.... وضعتة للفائدة 1... اضافة عميل جديد 2... حزف عميل 3..كما يوجد التنقل بين العمال 4.... عند اختيار كلمة حضور من القائمة المنسدلة يتم كتابة اليوم والتاريخ والوقت تلقائي....وعند كتابة وقت الانصراف يتم حسابة الوقت والسعر الملف ‏‏برنامج محاسبة العامل بالساعة - نسخة.xlsm

وعليكم السلام ورحمة الله اخي أحمد حجاج اذا كنت تريد المساعدة ارسل الملف ليتمكن الاساتذة من مساعدتك

السلام عليكم ممكن توضيح !!!

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

السلام عليكم ورحمة الله اذا كان فهمي صحيح هذا طلبك المرفق Personal1 (1).xlsm y = [I1].Value ''I1'هنا مسؤل عن اخذ الاسم من خلية

السلام علكيم ورحمة الله ممكن توضيح للخطأ لو سمحت الكود يعمل جيداًً

السلام علكيم الجزئية دي مسؤولة عن الاسم e3اما هنا تكتب الاسم في .SaveAs2 Filename:=MyPath & "\" & myBook.Sheets(MySheet).Cells(MyRow, 5) & ".doc", FileFormat:=wdFormatDocument .SaveAs2 Filename:=MyPath & "\" & myBook.Sheets(MySheet).Cells(2, 1) & ".doc", FileFormat:=wdFormatDocument في الخليه2 A يعني ممكن نكتب الاسم في عمود ِِ .Cells(2, 1) .... ورقم 2 يعني خلية رقم 2....A هنا رقم 1 يعني عمود

اخي طارق نادر جرب المرفق تحويل معادلة إلى كود.xlsm

يمكنك طلب هذا الامر في مشاركة جديدة لكي يتم مساعدتك من جميع الاساتزة

تفضل نسخة من قائمة مندلة لعرض على الجدول1.xlsm

اخي علي بن علي تفضل الملفقائمة مندلة لعرض على الجدول (1).xlsm

السلام عليكم ورحمة الله تفضل نسخة من قائمة مندلة لعرض على الجدول.xlsm

اخي يمكنك ارسال الملف المراد التطبيق عليه