محي الدين ابو البشر

أخ عاطف آسف على التأخير أولا بالنسبة B = Sheets("الارقام").Range("d3").Resize(Sheets("الارقام").Cells(Rows.Count, 4).End(xlUp).Row - 5, 2) لقراءة الأرقام الجديدة والقديمة في "الأرقام" وتتم بعذ ذلك مقارنة القيم في العمود c (مصفوفة A)مع العمود الأول من المصفوفة B , في حال التطابق يقوم بتغيير القيمة في A بالقيمة في العمود الثاني من المصفوفة B بالنسبة لـ "لاحظت ان الكود لايعمل اذا كان عدد الارقام المطلوب تغييرها أقل من 4 هل هذا صحيح ؟" آسف أن اقول لك ان هذا غير صحيح

الحمد لله أنه تم المطلوب شكرا لكم

استبدل الكود بـ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("e:e")) Is Nothing Then With Target On Error GoTo 1 If Target <> "" Then .Offset(, -3) = "BFL" .Offset(, 2) = 0 .Offset(, 3) = "398" End If End With End If 1 End Sub أو Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("e:e")) Is Nothing Then With Target If Target.Count > 1 Then Exit Sub If Target <> "" Then .Offset(, -3) = "BFL": .Offset(, 2) = 0: .Offset(, 3) = "398" End If End With End If End Sub

تفضل Suivi des Créances1.xlsm

أخي عاطف شكراً لك والتعديل صحيح انا تقصدت ان تقارن النتيجة قبل تبديل العمود C بارك الله بك

أرجو أن يكون المطلوب بحث واستبدال متكرر (2).xlsm

أعتقد أنه يجب يكون Adobe Acrobat مثبت على جهازك

Sub test() With Cells(6, 4).Resize(Cells(Rows.Count, 3).End(xlUp).Row - 5) .FormulaR1C1 = _ "=IFERROR(R6C3:R4329C3,INDEX(ÇáÇÑÞÇã!R3C4:R42C4,MATCH(R6C3:R4329C3,ÇáÇÑÞÇã!R3C5:R42C5,)))" .Value = .Value End With End Sub

السلام عليكم ربما? =IFERROR($C$6:$C$4329;INDEX(الارقام!$D$3:$D$42;MATCH($C$6:$C$4329;الارقام!$E$3:$E$42;)))

باستخدام كود اذا رغبت 111.xlsx 111.xlsm

السلام عليكم If WorksheetFunction.CountIf(myrang, fullname) >= 1 Then

السلام عليكم Adobe Acrobat 10.0 Type Library

السلام عليكم اولا ملفك او الشيت محمي بكلمة سر لا يمكن العمل عليه ثانياً مشكلتك تحل بتنسيق الخلايا calender Type>>Hijri

الحمد لله اني استطعت المساعدة وشكراً لك

السلام عليكم ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Environ("USERPROFILE") & "\Desktop\" & ID & ".Pdf", _ IgnorePrintAreas:=False, _ Openafterpublish:=False