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 Respuesta

Respuesta
1

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

Cómo fijar la hora en una celda con excel

Cómo puedo fijar la hora en una celda con excel, de modo que al introducir un dato en una celda me aparezca la hora en que se introdujo y al introducir otro dato en otra celda aparezca la nueva hora sin modificar la primera, es decir que las horas no...
1 respuesta

Sumar valor en misma celda

Como lo hago para que al introducir un valor en una celda me sume automáticamente 25. Es decir que al poner 100 en una celda me de esta misma 125
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

¿Cómo puedo hacer una conversión en ambos sentidos (€/$-$/€)?

Necesito realizar una tabla en la que se utilizan varias monedas, actualmente € y $, aunque en un futuro podría haber más. Mi duda es si existe alguna forma de que se haga la conversión de una moneda a otra, independientemente de la moneda en que...
1 respuesta

Ayuda código vba ejecuta una resta urgente

Queridos amigos tengo el siguiente problemita tengo este código Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'controla col H actualizando col G If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then Target.Offset(0, -1) =...
1 respuesta

Cambiar color celda según valor lista desplegable.

Expert@s. Quisiera cambiar el color de una celda según el texto de una lista desplegable. Lo he intentado con el formato condicional, pero solo me deja usar 3 condiciones y yo necesito por lo menos 11. ¿Hay alguna manera de hacerlo? Gracias de...
1 respuesta

Macro con mensaje de duplicados

He intentado crear alguna fórmula para evitar insertar duplicados en una hoja de excel pero lo mejor que he podido hacer es usar la fórmula CONTAR. SI en la pestaña DATOS > VALIDAR DATOS. Sin embargo me gustaría crear una macro con un mensaje del...
1 respuesta

Permitir solo determinado formato en celdas

Solicitando nuevamente te ayuda. Como podría hacer para que en una hoja de Excel llamada Datos, la columna A (Consecutivo) acepte solo números; la columna B (Descripción) acepte solo texto y por ultimo la columna C (Fecha) solo fechas. Ademas si al...
1 respuesta

Planilla de Stock

Elsa! Una vez más, recurro a su experiencia y conocimiento. Tengo una planilla con unos 1000 productos detallados en la comlumna A, en la columna B cargo el stock, en la columna C figuran las entradas y en la columna DE figuran las salidas. Cuando...
1 respuesta

Actualizar celdas con función personalizadas

He creado una función en excel 2007 y necesito que refresque el resultado dado un cambio en otras celdas. La ocupo en muchas otras celdas, pero al cambiar el valor de una no se como indicarle a la función que recalcule. No le estoy pasando la celda...
1 respuesta