السلام عليكم ورحمة الله وبركاتة
لم تتح لي الفرصه من قبل لشكر جميع الاخوة والاخوات العاملين علي انجاح هذا المنتدي الذي يدعوا الي التكامل كالبنيان المرصوص... لذا كل الشكر والتقدير وجعلة المولي العلي القدير في ميزان حسناتكم جميعا.
الموضوع المطروح
هذا عمل سابق للاخ العزيز جدا / علي السحيب
وهو اضافة سجل جديد عند الانتهاء والضغط عل انتر
المطلوب :
عند اضافة السجل يضاف التنسيق للخلاايا طبقا للخلايا السابقة
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