bebom2r

الاخ العزيز / ابو اسامة انا اسف جدا علي التاخر في شكرك علي هذا الرد حيث نني كنت مشغول في الفترة الماضية شاكر لك جدا وجاري التجربة

السلام عليكم ورحمة الله وبركاتة لم تتح لي الفرصه من قبل لشكر جميع الاخوة والاخوات العاملين علي انجاح هذا المنتدي الذي يدعوا الي التكامل كالبنيان المرصوص... لذا كل الشكر والتقدير وجعلة المولي العلي القدير في ميزان حسناتكم جميعا. الموضوع المطروح هذا عمل سابق للاخ العزيز جدا / علي السحيب وهو اضافة سجل جديد عند الانتهاء والضغط عل انتر المطلوب : عند اضافة السجل يضاف التنسيق للخلاايا طبقا للخلايا السابقة Private Sub Worksheet_Change(ByVal Target As Range) TR = Target.Row If Target.Column = 8 Then Rows(TR + 1).Insert For C = 2 To 8 Cells(TR, C).Interior.ColorIndex = 36 Cells(TR, C).Font.ColorIndex = 1 Next Cells(TR + 1, 2).Select End If End Sub ____.rar

مشكوررررررررررررررررررر جزك الله كل الخير

مشكوررررررررررررررررررر جزك الله كل الخير

احسنت وكثر الله من امثالك

مشكوررررررررررررر جزاك الله كل الخير

أضم صوتي الي n55

مشكورررررررررر وجزاك الله كل الخير