السلام عليكم ورحمة الله
اخي الكريم الاستاذ عبدالله اولا كل عام وحضرتك بخير والف شكر على اهتمامك بمشكلتي والف شكر على المساعدة انا والحمد لله توصلت للاضافة كود جديد حل المشكلة وحبيت انقله لحضرتك داخل زر اضافة وعند textbox5,6 اضفت قبلها هذا الكود
rng.Offset(0, 4).Value = CDate(Me.TextBox5.Value)
rng.Offset(0, 5).Value = CDate(Me.TextBox6.Value)
وتم حل المشكلة والحمد لله تعبت حضرتك معايا حبيت اشكركك بالحل
والسلام عليكم ورحمة الله
اخي الكريم كان هناك طلب اخير كنت محتاج في الليست بوكس اظهر بداخله عناوين الجدول والاجماليات ليكون الشكل اجمل من الموجود فهل في الامكان واكون شاكر