السلام عليكم
الاخ الجليل .. مختار حسين
حاولت تطبيق الكود الرائع ولاكن على اساس
اضافة مجال اخر للكتابه ( F10:F2 )على ان يظهر التوقيع فى العمود G
الا انى لم اتمكن من ذلك
اين الخطاء
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
With Target(1, 2)
.Value = Range("k1")
If Intersect(Target, Range("A2:A10")) = "" Then
.Value = ""
End If
Else If Not Intersect(Target, Range("F2:F10")) Is Nothing Then
With Target(1, 2)
.Value = Range("k1")
If Intersect(Target, Range("F2:F10")) = "" Then
.Value = ""
End If
End If
End Sub