Mi idea para el archivo es que cada vez que se cargue un campo, se asegure que el anterior ya se encuentre cargado. Tengo la siguiente macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:D")) Is Nothing Then
direc = ActiveCell.Address
If Target.Count > 1 Then
Range(direc).Select
End If
If Cells(Target.Row, Target.Column - 1) = "" And Target.Column > 1 Then
MsgBox "Para continuar deberá llenar el campo: " & Target.Column - 1, vbExclamation, "Atención"
Cells(Target.Row, Target.Column - 1).Select
End If
End If
End Sub
El error que me salta es:
Se ha producido el error 1004 en tiempo de ejecución: Error definido por la aplicación o el objeto.
Haciendo clic en Depurar me selecciona la línea:
If Cells(Target.Row, Target.Column - 1) = "" And Target.Column > 1 Then