بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
لزهر مدلل
-
Posts
194 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه لزهر مدلل
-
-
حذفتها لكن لم تتغير إذا أمكن أخي أن تجربها
معذرة أخي و أرجوا أن يتسع صدركم لي قمت قمت بتعديل في الملف و نقلت له الكود المعدل لكن إذا كتبت مثلا 17.10 تحسب 17.1
أنظر الملفCalcul IEP.xlsm
-
بارك الله فيك أخي الكريم
مازال شيئ واحد فقط و هو كيفية تحويل الأرقام بعد الفاصلة إلى أرقام صحيحة مثلا 173.33 أريدها تساوي 33
ظهرت مشكلة أخرى و هي أن عدد الشهور 10 أو 1 يحسبها مثل بعضهما
-
السلام عليكم
أخي AbuuAhmed أنا أريد تحويل المعادلات في الجدول إلى كود VB بحيث أدخل الرقم كما في الخلية B11 تطلع لي النتيجة كما في الخلية E8 و كذلك J8
-
السلام عليكم
أريد تحويل المعادلات المرفقة في الملف إلى كود vb لتسهيل عملية حساب معامل السنوات و الشهور و بالنسبة لحساب الشهور يجب أن يكون مرتبط بعدد السنوات مثلا
مثلا إذا تجاوزت السنوات 6 فإن معدل الحساب بالنسبة للشهور يتغير و هكذا بعد السنة 11 إلخ. التفصيل موجود في الملف.
-
بارك الله فيك
-
1
-
-
السلام عليكم
لدي ملف به مواعيد تسديد بعد 45 يوما اريد معادلة تغيير التاريخ إذا صادف موعد السداد يوم جمعة إلى يوم الخميس أي تصبح 44 يوما.
الملف في المرفقات
-
1
-
-
هذا هو بوركت أخي الكريم و وفقك الله
-
السلام عليكم
ممكن تعديل في الكود ليصبح فرز مخصص أي بعد الفرز في العمود 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-
1
-
-
بارك الله فيك أخي الكريم
-
السلام عليكم
قمت بتنزيل كود vb يقوم بالفرز التلقائي عند التغيير في عمود معين لكن لم يعمل و تظهر رسالة خطأ للعلم الملف به جدول ديناميكي و إذا قمت بإلغائه يعمل الكود بشكل صحيح
الملف في المرفقات
-
بارك الله فيك أخي الكريم
-
السلام عليكم
لدي كود 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")أنظر الملف
-
مشكور أخي الكريم
ناقص أن يكتب في العمود E في أيام الجمعة و السبت R.H و أيضا في العمود F في الأيام العادية 16H30
بارك الله فيكم
-
السلام عليكم
أخي الكريم يوم السبت لم يكتب أصفار في العمود M و N كيوم الجمعة
-
السلام عليكم
الملف في المرفقFeuille de présence.xlsm
-
السلام عليكم
قمت بتحويل معادلات إلى كود vba لكنه طويل بعض الشيئ فإذا أمكن إختصاره
بارك الله فيكم
Private Sub Workbook_Open()
Range("U2") = Evaluate("=EOMONTH(TODAY(),-2)+1")
Range("V2") = Evaluate("=DAY(DATE(YEAR($U$2),MONTH($U$2)+1,0))")
Range("J5") = Evaluate("=UPPER(TEXT(U2,""[$-40c] mmmm yyyy""))")
Range("M12") = Evaluate("=IF(1<=$V$2,IF(OR(TEXT($U$2,""DDDD"")=""friday"",TEXT($U$2,""DDDD"")=""saturday""),0,1),"""")")
Range("N12") = Evaluate("=IF(1<=$V$2,IF(OR(TEXT($U$2,""DDDD"")=""friday"",TEXT($U$2,""DDDD"")=""saturday""),0,1),"""")")
Range("M13") = Evaluate("=IF(2<=$V$2,IF(OR(TEXT($U$2+1,""DDDD"")=""friday"",TEXT($U$2+1,""DDDD"")=""saturday""),0,1),"""")")
Range("N13") = Evaluate("=IF(2<=$V$2,IF(OR(TEXT($U$2+1,""DDDD"")=""friday"",TEXT($U$2+1,""DDDD"")=""saturday""),0,1),"""")")
Range("M14") = Evaluate("=IF(3<=$V$2,IF(OR(TEXT($U$2+2,""DDDD"")=""friday"",TEXT($U$2+2,""DDDD"")=""saturday""),0,1),"""")")
Range("N14") = Evaluate("=IF(3<=$V$2,IF(OR(TEXT($U$2+2,""DDDD"")=""friday"",TEXT($U$2+2,""DDDD"")=""saturday""),0,1),"""")")
Range("M15") = Evaluate("=IF(4<=$V$2,IF(OR(TEXT($U$2+3,""DDDD"")=""friday"",TEXT($U$2+3,""DDDD"")=""saturday""),0,1),"""")")
Range("N15") = Evaluate("=IF(4<=$V$2,IF(OR(TEXT($U$2+3,""DDDD"")=""friday"",TEXT($U$2+3,""DDDD"")=""saturday""),0,1),"""")")
Range("M16") = Evaluate("=IF(5<=$V$2,IF(OR(TEXT($U$2+4,""DDDD"")=""friday"",TEXT($U$2+4,""DDDD"")=""saturday""),0,1),"""")")
Range("N16") = Evaluate("=IF(5<=$V$2,IF(OR(TEXT($U$2+4,""DDDD"")=""friday"",TEXT($U$2+4,""DDDD"")=""saturday""),0,1),"""")")
Range("M17") = Evaluate("=IF(6<=$V$2,IF(OR(TEXT($U$2+5,""DDDD"")=""friday"",TEXT($U$2+5,""DDDD"")=""saturday""),0,1),"""")")
Range("N17") = Evaluate("=IF(6<=$V$2,IF(OR(TEXT($U$2+5,""DDDD"")=""friday"",TEXT($U$2+5,""DDDD"")=""saturday""),0,1),"""")")
Range("M18") = Evaluate("=IF(7<=$V$2,IF(OR(TEXT($U$2+6,""DDDD"")=""friday"",TEXT($U$2+6,""DDDD"")=""saturday""),0,1),"""")")
Range("N18") = Evaluate("=IF(7<=$V$2,IF(OR(TEXT($U$2+6,""DDDD"")=""friday"",TEXT($U$2+6,""DDDD"")=""saturday""),0,1),"""")")
Range("M19") = Evaluate("=IF(8<=$V$2,IF(OR(TEXT($U$2+7,""DDDD"")=""friday"",TEXT($U$2+7,""DDDD"")=""saturday""),0,1),"""")")
Range("N19") = Evaluate("=IF(8<=$V$2,IF(OR(TEXT($U$2+7,""DDDD"")=""friday"",TEXT($U$2+7,""DDDD"")=""saturday""),0,1),"""")")
Range("M20") = Evaluate("=IF(9<=$V$2,IF(OR(TEXT($U$2+8,""DDDD"")=""friday"",TEXT($U$2+8,""DDDD"")=""saturday""),0,1),"""")")
Range("N20") = Evaluate("=IF(9<=$V$2,IF(OR(TEXT($U$2+8,""DDDD"")=""friday"",TEXT($U$2+8,""DDDD"")=""saturday""),0,1),"""")")
Range("M21") = Evaluate("=IF(10<=$V$2,IF(OR(TEXT($U$2+9,""DDDD"")=""friday"",TEXT($U$2+9,""DDDD"")=""saturday""),0,1),"""")")
Range("N21") = Evaluate("=IF(10<=$V$2,IF(OR(TEXT($U$2+9,""DDDD"")=""friday"",TEXT($U$2+9,""DDDD"")=""saturday""),0,1),"""")")
Range("M22") = Evaluate("=IF(11<=$V$2,IF(OR(TEXT($U$2+10,""DDDD"")=""friday"",TEXT($U$2+10,""DDDD"")=""saturday""),0,1),"""")")
Range("N22") = Evaluate("=IF(11<=$V$2,IF(OR(TEXT($U$2+10,""DDDD"")=""friday"",TEXT($U$2+10,""DDDD"")=""saturday""),0,1),"""")")
Range("M23") = Evaluate("=IF(12<=$V$2,IF(OR(TEXT($U$2+11,""DDDD"")=""friday"",TEXT($U$2+11,""DDDD"")=""saturday""),0,1),"""")")
Range("N23") = Evaluate("=IF(12<=$V$2,IF(OR(TEXT($U$2+11,""DDDD"")=""friday"",TEXT($U$2+11,""DDDD"")=""saturday""),0,1),"""")")
Range("M24") = Evaluate("=IF(13<=$V$2,IF(OR(TEXT($U$2+12,""DDDD"")=""friday"",TEXT($U$2+12,""DDDD"")=""saturday""),0,1),"""")")
Range("N24") = Evaluate("=IF(13<=$V$2,IF(OR(TEXT($U$2+12,""DDDD"")=""friday"",TEXT($U$2+12,""DDDD"")=""saturday""),0,1),"""")")
Range("M25") = Evaluate("=IF(14<=$V$2,IF(OR(TEXT($U$2+13,""DDDD"")=""friday"",TEXT($U$2+13,""DDDD"")=""saturday""),0,1),"""")")
Range("N25") = Evaluate("=IF(14<=$V$2,IF(OR(TEXT($U$2+13,""DDDD"")=""friday"",TEXT($U$2+13,""DDDD"")=""saturday""),0,1),"""")")
Range("M26") = Evaluate("=IF(15<=$V$2,IF(OR(TEXT($U$2+14,""DDDD"")=""friday"",TEXT($U$2+14,""DDDD"")=""saturday""),0,1),"""")")
Range("N26") = Evaluate("=IF(15<=$V$2,IF(OR(TEXT($U$2+14,""DDDD"")=""friday"",TEXT($U$2+14,""DDDD"")=""saturday""),0,1),"""")")
Range("M27") = Evaluate("=IF(16<=$V$2,IF(OR(TEXT($U$2+15,""DDDD"")=""friday"",TEXT($U$2+15,""DDDD"")=""saturday""),0,1),"""")")
Range("N27") = Evaluate("=IF(16<=$V$2,IF(OR(TEXT($U$2+15,""DDDD"")=""friday"",TEXT($U$2+15,""DDDD"")=""saturday""),0,1),"""")")
Range("M28") = Evaluate("=IF(17<=$V$2,IF(OR(TEXT($U$2+16,""DDDD"")=""friday"",TEXT($U$2+16,""DDDD"")=""saturday""),0,1),"""")")
Range("N28") = Evaluate("=IF(17<=$V$2,IF(OR(TEXT($U$2+16,""DDDD"")=""friday"",TEXT($U$2+16,""DDDD"")=""saturday""),0,1),"""")")
Range("M29") = Evaluate("=IF(18<=$V$2,IF(OR(TEXT($U$2+17,""DDDD"")=""friday"",TEXT($U$2+17,""DDDD"")=""saturday""),0,1),"""")")
Range("N29") = Evaluate("=IF(18<=$V$2,IF(OR(TEXT($U$2+17,""DDDD"")=""friday"",TEXT($U$2+17,""DDDD"")=""saturday""),0,1),"""")")
Range("M30") = Evaluate("=IF(19<=$V$2,IF(OR(TEXT($U$2+18,""DDDD"")=""friday"",TEXT($U$2+18,""DDDD"")=""saturday""),0,1),"""")")
Range("N30") = Evaluate("=IF(19<=$V$2,IF(OR(TEXT($U$2+18,""DDDD"")=""friday"",TEXT($U$2+18,""DDDD"")=""saturday""),0,1),"""")")
Range("M31") = Evaluate("=IF(20<=$V$2,IF(OR(TEXT($U$2+19,""DDDD"")=""friday"",TEXT($U$2+19,""DDDD"")=""saturday""),0,1),"""")")
Range("N31") = Evaluate("=IF(20<=$V$2,IF(OR(TEXT($U$2+19,""DDDD"")=""friday"",TEXT($U$2+19,""DDDD"")=""saturday""),0,1),"""")")
Range("M32") = Evaluate("=IF(21<=$V$2,IF(OR(TEXT($U$2+20,""DDDD"")=""friday"",TEXT($U$2+20,""DDDD"")=""saturday""),0,1),"""")")
Range("N32") = Evaluate("=IF(21<=$V$2,IF(OR(TEXT($U$2+20,""DDDD"")=""friday"",TEXT($U$2+20,""DDDD"")=""saturday""),0,1),"""")")
Range("M33") = Evaluate("=IF(22<=$V$2,IF(OR(TEXT($U$2+21,""DDDD"")=""friday"",TEXT($U$2+21,""DDDD"")=""saturday""),0,1),"""")")
Range("N33") = Evaluate("=IF(22<=$V$2,IF(OR(TEXT($U$2+21,""DDDD"")=""friday"",TEXT($U$2+21,""DDDD"")=""saturday""),0,1),"""")")
Range("M34") = Evaluate("=IF(23<=$V$2,IF(OR(TEXT($U$2+22,""DDDD"")=""friday"",TEXT($U$2+22,""DDDD"")=""saturday""),0,1),"""")")
Range("N34") = Evaluate("=IF(23<=$V$2,IF(OR(TEXT($U$2+22,""DDDD"")=""friday"",TEXT($U$2+22,""DDDD"")=""saturday""),0,1),"""")")
Range("M35") = Evaluate("=IF(24<=$V$2,IF(OR(TEXT($U$2+23,""DDDD"")=""friday"",TEXT($U$2+23,""DDDD"")=""saturday""),0,1),"""")")
Range("N35") = Evaluate("=IF(24<=$V$2,IF(OR(TEXT($U$2+23,""DDDD"")=""friday"",TEXT($U$2+23,""DDDD"")=""saturday""),0,1),"""")")
Range("M36") = Evaluate("=IF(25<=$V$2,IF(OR(TEXT($U$2+24,""DDDD"")=""friday"",TEXT($U$2+24,""DDDD"")=""saturday""),0,1),"""")")
Range("N36") = Evaluate("=IF(25<=$V$2,IF(OR(TEXT($U$2+24,""DDDD"")=""friday"",TEXT($U$2+24,""DDDD"")=""saturday""),0,1),"""")")
Range("M37") = Evaluate("=IF(26<=$V$2,IF(OR(TEXT($U$2+25,""DDDD"")=""friday"",TEXT($U$2+25,""DDDD"")=""saturday""),0,1),"""")")
Range("N37") = Evaluate("=IF(26<=$V$2,IF(OR(TEXT($U$2+25,""DDDD"")=""friday"",TEXT($U$2+25,""DDDD"")=""saturday""),0,1),"""")")
Range("M38") = Evaluate("=IF(27<=$V$2,IF(OR(TEXT($U$2+26,""DDDD"")=""friday"",TEXT($U$2+26,""DDDD"")=""saturday""),0,1),"""")")
Range("N38") = Evaluate("=IF(27<=$V$2,IF(OR(TEXT($U$2+26,""DDDD"")=""friday"",TEXT($U$2+26,""DDDD"")=""saturday""),0,1),"""")")
Range("M39") = Evaluate("=IF(28<=$V$2,IF(OR(TEXT($U$2+27,""DDDD"")=""friday"",TEXT($U$2+27,""DDDD"")=""saturday""),0,1),"""")")
Range("N39") = Evaluate("=IF(28<=$V$2,IF(OR(TEXT($U$2+27,""DDDD"")=""friday"",TEXT($U$2+27,""DDDD"")=""saturday""),0,1),"""")")
Range("M40") = Evaluate("=IF(29<=$V$2,IF(OR(TEXT($U$2+28,""DDDD"")=""friday"",TEXT($U$2+28,""DDDD"")=""saturday""),0,1),"""")")
Range("N40") = Evaluate("=IF(29<=$V$2,IF(OR(TEXT($U$2+28,""DDDD"")=""friday"",TEXT($U$2+28,""DDDD"")=""saturday""),0,1),"""")")
Range("M41") = Evaluate("=IF(30<=$V$2,IF(OR(TEXT($U$2+29,""DDDD"")=""friday"",TEXT($U$2+29,""DDDD"")=""saturday""),0,1),"""")")
Range("N41") = Evaluate("=IF(30<=$V$2,IF(OR(TEXT($U$2+29,""DDDD"")=""friday"",TEXT($U$2+29,""DDDD"")=""saturday""),0,1),"""")")
Range("M42") = Evaluate("=IF(31<=$V$2,IF(OR(TEXT($U$2+30,""DDDD"")=""friday"",TEXT($U$2+30,""DDDD"")=""saturday""),0,1),"""")")
Range("N42") = Evaluate("=IF(31<=$V$2,IF(OR(TEXT($U$2+30,""DDDD"")=""friday"",TEXT($U$2+30,""DDDD"")=""saturday""),0,1),"""")")
Range("C12") = Evaluate("=IF(M12=1,""08H00"","""")")
Range("C13") = Evaluate("=IF(M13=1,""08H00"","""")")
Range("C14") = Evaluate("=IF(M14=1,""08H00"","""")")
Range("C15") = Evaluate("=IF(M15=1,""08H00"","""")")
Range("C16") = Evaluate("=IF(M16=1,""08H00"","""")")
Range("C17") = Evaluate("=IF(M17=1,""08H00"","""")")
Range("C18") = Evaluate("=IF(M18=1,""08H00"","""")")
Range("C19") = Evaluate("=IF(M19=1,""08H00"","""")")
Range("C20") = Evaluate("=IF(M20=1,""08H00"","""")")
Range("C21") = Evaluate("=IF(M21=1,""08H00"","""")")
Range("C22") = Evaluate("=IF(M22=1,""08H00"","""")")
Range("C23") = Evaluate("=IF(M23=1,""08H00"","""")")
Range("C24") = Evaluate("=IF(M24=1,""08H00"","""")")
Range("C25") = Evaluate("=IF(M25=1,""08H00"","""")")
Range("C26") = Evaluate("=IF(M26=1,""08H00"","""")")
Range("C27") = Evaluate("=IF(M27=1,""08H00"","""")")
Range("C28") = Evaluate("=IF(M28=1,""08H00"","""")")
Range("C29") = Evaluate("=IF(M29=1,""08H00"","""")")
Range("C30") = Evaluate("=IF(M30=1,""08H00"","""")")
Range("C31") = Evaluate("=IF(M31=1,""08H00"","""")")
Range("C32") = Evaluate("=IF(M32=1,""08H00"","""")")
Range("C33") = Evaluate("=IF(M33=1,""08H00"","""")")
Range("C34") = Evaluate("=IF(M34=1,""08H00"","""")")
Range("C35") = Evaluate("=IF(M35=1,""08H00"","""")")
Range("C36") = Evaluate("=IF(M36=1,""08H00"","""")")
Range("C37") = Evaluate("=IF(M37=1,""08H00"","""")")
Range("C38") = Evaluate("=IF(M38=1,""08H00"","""")")
Range("C39") = Evaluate("=IF(M39=1,""08H00"","""")")
Range("C40") = Evaluate("=IF(M40=1,""08H00"","""")")
Range("C41") = Evaluate("=IF(M41=1,""08H00"","""")")
Range("C42") = Evaluate("=IF(M42=1,""08H00"","""")")
Range("F12") = Evaluate("=IF(M12=1,""16H30"","""")")
Range("F13") = Evaluate("=IF(M13=1,""16H30"","""")")
Range("F14") = Evaluate("=IF(M14=1,""16H30"","""")")
Range("F15") = Evaluate("=IF(M15=1,""16H30"","""")")
Range("F16") = Evaluate("=IF(M16=1,""16H30"","""")")
Range("F17") = Evaluate("=IF(M17=1,""16H30"","""")")
Range("F18") = Evaluate("=IF(M18=1,""16H30"","""")")
Range("F19") = Evaluate("=IF(M19=1,""16H30"","""")")
Range("F20") = Evaluate("=IF(M20=1,""16H30"","""")")
Range("F21") = Evaluate("=IF(M21=1,""16H30"","""")")
Range("F22") = Evaluate("=IF(M22=1,""16H30"","""")")
Range("F23") = Evaluate("=IF(M23=1,""16H30"","""")")
Range("F24") = Evaluate("=IF(M24=1,""16H30"","""")")
Range("F25") = Evaluate("=IF(M25=1,""16H30"","""")")
Range("F26") = Evaluate("=IF(M26=1,""16H30"","""")")
Range("F27") = Evaluate("=IF(M27=1,""16H30"","""")")
Range("F28") = Evaluate("=IF(M28=1,""16H30"","""")")
Range("F29") = Evaluate("=IF(M29=1,""16H30"","""")")
Range("F30") = Evaluate("=IF(M30=1,""16H30"","""")")
Range("F31") = Evaluate("=IF(M31=1,""16H30"","""")")
Range("F32") = Evaluate("=IF(M32=1,""16H30"","""")")
Range("F33") = Evaluate("=IF(M33=1,""16H30"","""")")
Range("F34") = Evaluate("=IF(M34=1,""16H30"","""")")
Range("F35") = Evaluate("=IF(M35=1,""16H30"","""")")
Range("F36") = Evaluate("=IF(M36=1,""16H30"","""")")
Range("F37") = Evaluate("=IF(M37=1,""16H30"","""")")
Range("F38") = Evaluate("=IF(M38=1,""16H30"","""")")
Range("F39") = Evaluate("=IF(M39=1,""16H30"","""")")
Range("F40") = Evaluate("=IF(M40=1,""16H30"","""")")
Range("F41") = Evaluate("=IF(M41=1,""16H30"","""")")
Range("F42") = Evaluate("=IF(M42=1,""16H30"","""")")
Range("E12") = Evaluate("=IF(N12=0,""R.H"","""")")
Range("E13") = Evaluate("=IF(M13=0,""R.H"","""")")
Range("E14") = Evaluate("=IF(M14=0,""R.H"","""")")
Range("E15") = Evaluate("=IF(M15=0,""R.H"","""")")
Range("E16") = Evaluate("=IF(M16=0,""R.H"","""")")
Range("E17") = Evaluate("=IF(M17=0,""R.H"","""")")
Range("E18") = Evaluate("=IF(M18=0,""R.H"","""")")
Range("E19") = Evaluate("=IF(M19=0,""R.H"","""")")
Range("E20") = Evaluate("=IF(M20=0,""R.H"","""")")
Range("E21") = Evaluate("=IF(M21=0,""R.H"","""")")
Range("E22") = Evaluate("=IF(M22=0,""R.H"","""")")
Range("E23") = Evaluate("=IF(M23=0,""R.H"","""")")
Range("E24") = Evaluate("=IF(M24=0,""R.H"","""")")
Range("E25") = Evaluate("=IF(M25=0,""R.H"","""")")
Range("E26") = Evaluate("=IF(M26=0,""R.H"","""")")
Range("E27") = Evaluate("=IF(M27=0,""R.H"","""")")
Range("E28") = Evaluate("=IF(M28=0,""R.H"","""")")
Range("E29") = Evaluate("=IF(M29=0,""R.H"","""")")
Range("E30") = Evaluate("=IF(M30=0,""R.H"","""")")
Range("E31") = Evaluate("=IF(M31=0,""R.H"","""")")
Range("E32") = Evaluate("=IF(M32=0,""R.H"","""")")
Range("E33") = Evaluate("=IF(M33=0,""R.H"","""")")
Range("E34") = Evaluate("=IF(M34=0,""R.H"","""")")
Range("E35") = Evaluate("=IF(M35=0,""R.H"","""")")
Range("E36") = Evaluate("=IF(M36=0,""R.H"","""")")
Range("E37") = Evaluate("=IF(M37=0,""R.H"","""")")
Range("E38") = Evaluate("=IF(M38=0,""R.H"","""")")
Range("E39") = Evaluate("=IF(M39=0,""R.H"","""")")
Range("E40") = Evaluate("=IF(AND(A40>=29,N40=0),""R.H"","""")")
Range("E41") = Evaluate("=IF(AND(A41>=30,N41=0),""R.H"","""")")
Range("E42") = Evaluate("=IF(AND(A42>=31,N42=0),""R.H"","""")")
Range("A40") = Evaluate("=IF(V2>=29,29,"""")")
Range("A41") = Evaluate("=IF(V2>=30,30,"""")")
Range("A42") = Evaluate("=IF(V2>=31,31,"""")")
End Sub -
مرة أخرى بارك الله فيك اخي الكريم و جعلها في ميزان حسناتك
-
أخي الكريم مشكور جدا جدا و أعذرني ظهرت مشكلة في ترحيل عمود التاريخ من بداية التاريخ 02/11/2021 إلى غاية 10/11/2021 حول اليوم إلى الشهر و الشهر إلى اليوم
مثلا 02/11/2021 حولها إلى 11/02/2021 حتى في تنسيق الخلية التاريخ مظبوط و القيمة تغيرت
أنظر المرفق و معذرة مرة أخرىVente-4.xlsm
-
السلام عليكم
أخي محي الدين ابو البشير مشكور على مجهودك لكن هناك إشكالية أرجو أن يتسع صدركم لي و هي أن يكون الترحيل في "Sheet3" في السطور الفارغة لا أن يمسح البيانات في السطور التي فيها بيانات
لآن ورقة vente متغيرة أنظر الملف المرفق مثلا عندي بيانات قديمة حتى السطر 52 الترحيل يجب أن يكون إبتداء من السطر 53 و هكذا
بارك الله فيكم إخوتي الكرامVente.xlsm
-
السلام عليكم
أخي حليم ناصر مشكور على الجهد لكن أنا لا أريد ترحيل كل الأعمدة
الأعمده المراد ترحيلها هي : A,B,E,F,S و الترحيل يكون على النحو التالي
ترحيل العمود A يرحل إلى العمود A في الورقة الأخرى
ترحيل العمود B يرحل إلى العمود D في الورقة الأخرى
ترحيل العمود E يرحل إلى العمود B في الورقة الأخرى
ترحيل العمود F يرحل إلى العمود C في الورقة الأخرى
ترحيل العمود S يرحل إلى العمود G في الورقة الأخرى
بارك الله فيكم
طلب تحويل معادلات إلى كود vb
في منتدى الاكسيل Excel
قام بنشر
بارك الله فيك على المجهود و سعة صدركم و جعله الله في ميزان حسناتكم