نجوم المشاركات

شكرا استاذ ربي يحفظك

استبدل الكود بهذا <><><><><><><> Private Sub أمر0_Click() On Error Resume Next OpenClsword (CurrentProject.Path & "\123.doc") Objwrd.ActiveDocument.Bookmarks("AA").Select Objwrd.Selection.InsertAfter txtYear Objwrd.ActiveDocument.Bookmarks("A1").Select Objwrd.Selection.InsertAfter Format(tx1, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A2").Select Objwrd.Selection.InsertAfter Format(tx2, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A3").Select Objwrd.Selection.InsertAfter Format(tx3, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A4").Select Objwrd.Selection.InsertAfter Format(tx4, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A5").Select Objwrd.Selection.InsertAfter Format(tx5, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A6").Select Objwrd.Selection.InsertAfter Format(tx6, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A7").Select Objwrd.Selection.InsertAfter Format(tx7, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A8").Select Objwrd.Selection.InsertAfter Format(tx8, "#,##0.00") Objwrd.ActiveDocument.Bookmarks("A9").Select Objwrd.Selection.InsertAfter Format(tx9, "#,##0.00") End Sub

السلام عليكم بصراحة أنا اقترحت عليك أن ترفق ملف لا لأني أريد الرد على الموضوع ـ فالموضوع طويل ولا أفهم خفاياه ـ ولكن كنت أريد من الأخوة الذي فهموا موضوعك أن يحفزهم الملف لعلهم يواصلوا ولكن نلتمس العذر للجميع في أشغالهم لا أدري كيف أرد عليك فملفك أجهل كثير من الأمور فيه ولكن لاحظ الملف وشغل الماكرو ثم اكتب ما هو الشيء غير الصحيح فيه مراقبة 2 ثانوية 2026.xlsm