عاطف عبد العليم محمد

شكرا جزيلا ، وفقكم الله

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

Range("c6").Resize(UBound(A)) = Application.Transpose(A) الأخ الكريم محي الدين ابو البشر جزاك الله خيرا ، أرجو تعديل الكود لأني اريد الأرقام أن تتغير في نفس العمود c بعد تعديل في الكود عاليه كانت d6 تمام أن شاء الله وفقكم الله

شكرا لاهتمامك اخي حسين مامون اضفت صفحة توضيح بحث واستبدال متكرر.xlsx

عذرا يوجد خطا في الملف وهذا الصحيح السلام عليكم بحثت في مواقع اخرى ولم اهتدي لكود مناسب لعل الاستاذة الكبار في المنتدى يفيدونا بحث واستبدال متكرر.xlsx

استاذ حسين مامون السلام عليكم ورحمة الله وبركاته ما اريد أخي الفاضل ماكرو يبحث عن الرقم القديم الموجود في صفحة الارقام وليكن الأول وهو 1246 يبحث عنه في صفحة قيود اليومية فإذا وجده يبدله بالرقم الجديد وهو 1300 فيتم تبديل كل 1246 لتصبح 1300 ثم يعود الماكرو ليبحث عن الرقم القديم الثاني الموجود بصفحة الارقام وهو 1247 يبحث في صفحة اليومية ويبدله بالرقم الجديد 1301 وهكذا شكرا جزيلا لك الأخ /محي الدين ابو البشر السلام عليكم ورحمة الله وبركاته شكرا جزيلا لكم وأريد الحل بماكرو كما اسلفت في الردود السابقة وفقكم الله

السلام عليكم ورحمة الله وبركاته مرفق ملف في صفحة قيود اليومية يوجد عمود يراد البحث فيه واستبدال القيم صفحة ارقام بها الارقام التي يراد البحث عنه والارقام المراد ان تستبدل بها شاكرا لكم بحث واستبدال متكرر.xlsx

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

شكرا للاستاذ سليم حاصبا بالبحث وجدت انه سبق ان افادني بموضوع زيادة التاريخ الهجري تم اضافة Function Higri_Date(but As Range, How As Integer) ad = but.Address(1, 0) y = "Left(" & ad & "," & 4 & ")+" & How & " & " & "RIGHT(" & ad & ",FIND(""*"",SUBSTITUTE(" & ad & ",""/"",""*"",1),1)+1" & ")" Higri_Date = Evaluate(y) End Function ثم If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الهجري" Then Cells(i, 10).Value = (Higri_Date(Cells(i, 10), 1)) وفق الله الجميع

باقي ما يخص التاريخ الهجري ، بانتظار افادة من الافاضل هذه لزيادة التاريخ الميلادي If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الميلادي" And Cells(i, 9).Value Like "نصف سنوي" Then Cells(i, 11).Value = DateAdd("m", 6, Cells(i, 11).Value) If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الميلادي" And Cells(i, 9).Value Like "ربع سنوي" Then Cells(i, 11).Value = DateAdd("m", 3, Cells(i, 11).Value) If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الميلادي" And Cells(i, 9).Value Like "سنوي" Then Cells(i, 11).Value = DateAdd("m", 12, Cells(i, 11).Value)

السلام عليكم ورحمة الله وبركاته اخي مجدي وفقك الله ما معني ان البرنامج معد خصيصا للفرضين ؟ حاولت ان اضع بدون زوجة ( متوفاة ) ، لم يقبل وافترض وجود زوجة ؟

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم ارجو المساعد في كود زيادة التاريخ بالخلايا بزيادة عدد اشهر وبحسب التاريخ سواء هجري او ميلاي وقد بدات المحاولة بالهجري ولكن لم افلح Sub chngedate() Dim i As Integer Sheets("test").Select For i = 4 To 200 If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الهجري" And Cells(i, 9).Value Like "نصف سنوي" Then Cells(i, 10).Value = Cells(i, 10).Value + 177 Next i End Sub مرفق الملف ، وجزاكم الله خيرا تغيير تواريخ هجري او ميلادي.xlsm

السلام عليكم جرب حفظ الملف بصيغة EXCEL BINARY WORKBOOK عند الاغلاق يطلب الحفظ قد يكون به معادلة تجعله يطلب ذلك بها الوقت مثلا

السلام عليكم ورحمة الله وبركاته هل يمكن عمل ماكرو يبحث عن الموديول MyNewModule فإن كان موجود حذف الموديول وان كان غير موجود نفذ الماكرو فأضاف الموديول لدي هذا الماكرو الذي يضيف موديول MyNewModule شكرا لكم Public Sub AddNewModule() Dim proj As VBIDE.VBProject Dim comp As VBIDE.VBComponent Set proj = ActiveWorkbook.VBProject Set comp = proj.VBComponents.Add(vbext_ct_StdModule) comp.Name = "MyNewModule" Set codeMod = comp.CodeModule With codeMod lineNum = .CountOfLines + 1 .InsertLines lineNum, "Public Sub ANewSub()" lineNum = lineNum + 1 .InsertLines lineNum, " MsgBox " & """" & "I added a module!" & """" lineNum = lineNum + 1 .InsertLines lineNum, "End Sub" End With End Sub

نعم يا استاذ احمد توجد خطوة قبل تنفيذه وشرحها الاخ djikay كما يلي ! in the VBA editor go the the Tools menu and choose References. In that dialog, scroll down to and check the entry for Microsoft Visual Basic For Applications Extensibility 5.3. If you don't set this reference, you will receive a compiler error. انا فعلت ماذكر عاليه وتم تنفيذه الماكرو بنجاح واظن ذكر اشياء اخرى لم اقرئها جيدا ولم افعلها اذا مشى الحال ابلغني خاصة اذا كنت تستطيع التعديل عليه