https://resim.accesstr.net/do.php?img=11056
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4) And Target.row > 1 Then
If Cells(Target.row, 1).Value = "" Then
Cells(Target.row, 1).Select
MsgBox "hata"
Exit Sub
End If
End If
If (Target.Column = 7 Or Target.Column = 8 Or Target.Column = 9) And Target.row > 1 Then
If Cells(Target.row, "F").Value = "" Then
Cells(Target.row, "F").Select
MsgBox "hata"
Exit Sub
End If
End If
End Sub