الدهشوري قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 (معدل) الشرح موجود بالمرفق ... وجزاكم الله كل خير مديونيات.rar تم تعديل فبراير 6, 2016 بواسطه الدهشوري رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 أخى الفاضل جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer LR = Cells(Rows.Count, "I").End(xlUp).Row If Not Intersect(Target, Range("I5:I" & LR)) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target = "سداد - خالص" And Target.Offset(0, -1) <> 0 Then Target.Offset(0, 1) = Target.Offset(0, -1) Target.Offset(0, -1) = 0 Target.Offset(0, -2) = Target.Offset(0, -3) End If End If End Sub مديونيات1.rar 1 رابط هذا التعليق شارك More sharing options...
الدهشوري قام بنشر فبراير 6, 2016 الكاتب مشاركة قام بنشر فبراير 6, 2016 (معدل) جزاك الله كل خير اتمنى ان اجد حل بالمعادلات ان امكن ولك منى الف شكر تم تعديل فبراير 6, 2016 بواسطه الدهشوري رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 السلام عليكم ورحمة الله بارك الله فيك استاذنا رجب جاويش اريد لفت نظر الاخ الكريم الى انه من غير الممكن تنفيذ الامر بالمعادلات نظراً لانه فى حاله وضع معادلة بعمود المدفوع لتتغير عند جعل قيمه العمود I هى سداد - خالص سوف تمسح تلقائى عند وضع القيمه المدفوعه بمعنى اوضح لا يمكن ادخال قيمه بخليه تحوى معادلة وإلا مسحت المعادلة خالص تحياتى 1 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 أخى الفاضل / الدهشورى كما أخبرك الأستاذ خالد الرشيدى لا يمكن عمل ذلك بالمعادلات رابط هذا التعليق شارك More sharing options...
الدهشوري قام بنشر فبراير 7, 2016 الكاتب مشاركة قام بنشر فبراير 7, 2016 جزاكم الله كل خير .... وأشكركم علي سرعة الرد والاجابة بارك الله فيكم وتقبلوا خالص تحياتى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.