Condición para evita que se escriba en una celda

Hola prozac, necesito una ayuda, el problema es el siguiente: evitar que se pueda ingresar datos en la celda D2, hasta que se cumpla la condición que haya datos mayor que 0 en las celdas B2 y C2. Gracias por tu ayuda.

1

1 Respuesta

66.100 pts. Pedaleando se aprende a montar en bici

Más que evitar que se escriba lo que hace el código es borrar. Tienes que ponerlo en la hoja en la que quieras trabajar, no en un módulo. Esto se hace seleccionando la hoja en el editor VBA, ventana de Proyectos y con el botón derecho "View Code" o "ver código".

Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If Not Intersect(target, Range("d2")) Is Nothing Then
If Not (Range("b2").Value > 0 And Range("b2").Value > 0) Then
Range("d2").Value = ""
End If
End If
Application.EnableEvents = True
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas