seaf mohamed

السلام عليكم لدى كود لسداد القواتير ويغمل على اساس ان القواتير لمورد واحد فقط ارعب فى اضافة عمود بة ارقم المورد ويتم السداد وعمل الكود على حسب رقم المورد Open invoice.xlsm

السلام عليكم ..الف شكر هو ده المطلوب

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,برجاء التعديل فى الكود فى الشيت بحيث انة يجمع المبالغ مرفق شيت توضيحى list_02 .xlsx

تمام هو دة المطلوب والف الف شكر

برجاء التكرم بشرح الكود الموجود بالشيت لانى محتاج اعدل علية اضيف اعمدة فى كل شيت فمحتاج افهمة علشان اعدل صح ويتنفذ صح ..وشكرا انتبه من فضلك ...مشاركة مكررة فقد تــــم بالفعل حذف المشاركة الأخرى New-Microsoft-Excel-Worksheet-2 (1).xlsm

الف شكر استاذ محمد هجربها

ارجوا المساعدة فى تعبئة خلايا حسب العدد الموجود بخلية c6 كما هو موضح بالشيت وشكرا New Microsoft Excel Worksheet (2).xlsx

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

السلام عليكم ورحمة الله عندى شيت به البصمة ارغب فى تعبئة الاجازات العادية والمرضية وبدون اجر كما هو موضح بالشيت Attendance-test-1.xlsx

السلام عليكم ورحة الله وبركاتة لدى شيت اكسل بة كود ارسال مسج عن طريق الوتساب وعند تشغيل الكود يفتح معى internet explorer ارغب فى تحويلة الى google chrome وشكرا

السلام عليكم ورحة الله وبركاتة لدى شيت اكسل بة كود ارسال مسج عن طريق الوتساب وعند تشغيل الكود يفتح معى internet explorer ارغب فى تحويلة الى google chrome وشكرا

الف شكر

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

الف شكر على الرد هرفق ملف لتوضيح المشكلة New Microsoft Excel Worksheet.xlsx

السلام عليكم كلما اقوم بفتح شيت اكسل لكتابة medial يظهر عتدة كود Ribbenx code Entry point for RibbonX button click Sub ShowATPDialog(control As IRibbonControl) Application.Run ("fDialog") End Sub 'Callback for RibbonX button label Sub GetATPLabel(control As IRibbonControl, ByRef label) label = ThisWorkbook.Sheets("RES").Range("A10").Value End Sub ما هو الحل لحذفة نهائى ولا يظهر لى مرة اخرى