الاخوه الكرام
هذا الكود يعمل على العمود الاول
وانا اريده ان يعمل على العمود الرابع بدلا من العمود الاول
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 9 Then
On Error GoTo 10
If Target = "" Then Exit Sub
If Len(Target) < 12 Then GoTo 10
If Len(Target) > 14 Then GoTo 10
If Asc(Mid(Target, 1, 1)) < 65 Then GoTo 10
If Asc(Mid(Target, 1, 1)) > 192 Then GoTo 10
If Asc(Mid(Target, 2, 1)) < 65 Then GoTo 10
If Asc(Mid(Target, 2, 1)) > 192 Then GoTo 10
If Asc(Mid(Target, 3, 1)) < 65 Then GoTo 10
If Asc(Mid(Target, 3, 1)) > 192 Then GoTo 10
If Mid(Target, 4, 7) * 1 > 0 Then GoTo 10
If Mid(Target, 11, 1) <> "/" Then GoTo 10
If Mid(Target, 12, 3) * 1 < 1 Then GoTo 10
GoTo 20
10
Target = ""
MsgBox "إدخال غير صحيح"
20
End If
End Subقناع ادخال2(1).rar