لزهر مدلل

بارك الله فيك أخي الكريم

السلام عليكم مشكور أخي الكريم ممكن تعديل إذا أمكن في UserForm خانة التاريخ يكتب تاريخ اليوم تلقائيا أي أقوم بالكتابة في الخانة الأولى فقط. بارك الله فيكم

السلام عليكم - العمود b يتم إدخال البانات و c تاريخ إدخالها الشرط هو عند إدخال القيمة المعينة يقوم بالبحث عن آخر تاريخ إدخال لها ويقارنه بتاريخ اليوم فإذا وجدها تجاوزت 90 يوما تضاف القيمة و إلا لا أما بالنسبة ل UserForm فقد أتيت به من ملف آخر وقمت بتعديله وأما الرسالة فلا أعرف لآنني قمت بتعديل وتركت لكم المجال لإصلاحه وتعديله

السلام عليكم أريد إدخال قيمة في عمود بشرط أن تكون هذه القيمة تجاوزت 90 يوما من آخر إدخال لها فإذا كانت أقل تخرج رسالة تعلم بآخر تاريخ إدخال و كم يوما تبقى وأنه لا يمكن إلا بعد إنقضاء المدة لدي ملف قمت بتعديل فيه و به userform لإدخال البياناتCastrole.xlsm

بارك الله فيك أخي الكريم

مشكور أخي الكريم لكن عند كتابة مائة تتضاعف المسافة إذا ممكن تعديل آخر و بارك الله فيك

السلام عليكم لدي كود تحويل الأرقام إلى حروف المشكل في عدد الآلاف ما فوق يقوم بلصقها مع كلمة دينار الملف في المرفقاتClasseur1.xlsm

بارك الله فيك على المجهود و سعة صدركم و جعله الله في ميزان حسناتكم

حذفتها لكن لم تتغير إذا أمكن أخي أن تجربها

بارك الله فيك أخي الكريم مازال شيئ واحد فقط و هو كيفية تحويل الأرقام بعد الفاصلة إلى أرقام صحيحة مثلا 173.33 أريدها تساوي 33

السلام عليكم أخي AbuuAhmed أنا أريد تحويل المعادلات في الجدول إلى كود VB بحيث أدخل الرقم كما في الخلية B11 تطلع لي النتيجة كما في الخلية E8 و كذلك J8

السلام عليكم أريد تحويل المعادلات المرفقة في الملف إلى كود vb لتسهيل عملية حساب معامل السنوات و الشهور و بالنسبة لحساب الشهور يجب أن يكون مرتبط بعدد السنوات مثلا مثلا إذا تجاوزت السنوات 6 فإن معدل الحساب بالنسبة للشهور يتغير و هكذا بعد السنة 11 إلخ. التفصيل موجود في الملف. Calcul IEP.xlsx

بارك الله فيك

السلام عليكم لدي ملف به مواعيد تسديد بعد 45 يوما اريد معادلة تغيير التاريخ إذا صادف موعد السداد يوم جمعة إلى يوم الخميس أي تصبح 44 يوما. الملف في المرفقات Suivi.xlsx

هذا هو بوركت أخي الكريم و وفقك الله

السلام عليكم ممكن تعديل في الكود ليصبح فرز مخصص أي بعد الفرز في العمود F يقوم بفرز العمود B هذا الكود كنت أستعمله يدويا Sub Triage() ActiveWorkbook.Worksheets("BLF").ListObjects("Tableau2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("BLF").ListObjects("Tableau2").Sort.SortFields.Add _ Key:=Range("Tableau2[Date Echeance]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("BLF").ListObjects("Tableau2").Sort.SortFields.Add _ Key:=Range("Tableau2[Client]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("BLF").ListObjects("Tableau2").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

بارك الله فيك أخي الكريم

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

بارك الله فيك أخي الكريم

السلام عليكم لدي كود vb يعمل على حذف السطور التي يتجاوز التاريح في العمود D 45 يوما و أريد تعديله بإضافة شرط آخر و هو أن يكون العمود H فارغا حتى يقوم بحذف السطر و شكرا. Sub DelRows() Dim x As Integer, I As Long, y As Long y = Feuil1.Range("D" & Rows.Count).End(xlUp).Row For I = y To 2 Step -1 x = WorksheetFunction.Days360(Cells(I, "D"), Date) If x > 45 Then Cells(I, "A").EntireRow.Delete End If Next End Sub

مشكور أخي الكريم

السلام عليكم قمت بإضافة ARRONDI إلى معادلة في الخلية B6 مثل ما هو موجود في B7 أعطتني رسالة خطأ بنقص قوس لكن لم أعرف مكان إضافته بالضبط أنظر المرفقirg 2022.xlsx

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

السلام عليكم معذرة مازال هناك مشكلتان الأولى مثلا في شهر فيفري فيه 28 يوم لكنه يقوم بتعبئة السطر 40 و 41 أي كأن الشهر 30 يوما و أيضا الشهور التي بها 31 يوما و يكون اليوم 31 ليس بيوم جمعة أو سبت لا يقوم بتعبئة السطر تغيير الشهر يكون في هذا السطر عند 2- Range("U2") = Evaluate("=EOMONTH(TODAY(),-2)+1") أنظر الملف Feuille de présence.xlsm

مشكور أخي الكريم ناقص أن يكتب في العمود E في أيام الجمعة و السبت R.H و أيضا في العمود F في الأيام العادية 16H30 بارك الله فيكم