1

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
2
  • 1
    Y cuál es el problema con este código? Por favor, incluye el mensaje de error completo.
    – Alfabravo
    Commented el 29 oct. 2019 a las 16:03
  • 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
    – Pablo
    Commented el 29 oct. 2019 a las 16:22

1 respuesta 1

0

Por lo que veo estás obligando a no dejar ningún campo (celda) sin datos en las columnas A a la D. El problema es que cada vez que compruebas la celda actual haces retroceder al usuario una columna hacia atrás.

Cuando llegas a la primera columna e intentas evaluarla con el IF estás restando 1 a la primera columna con lo que Cells(2,0) no es válido y por eso te muestra ese error.

Por lo tanto tienes que evaluar primero que no estás en la primera columna y luego, con otro If....Then compruebas que la columna anterior tiene o no datos.

Prueba esto:

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 Target.Column <> 1 Then

            If Cells(Target.Row, 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 If
End Sub
1
  • Muchas gracias!! Parece funcionar bien con tu modificación. Te agradezco nuevamente la ayuda!
    – Pablo
    Commented el 30 oct. 2019 a las 11:35

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.