Excel - Valor dependiente de dos Mismas Celdas

Buena Dia
Saludos a Todos desde Mexico

Solicito la ayuda por favor con una macro que no puedo concluir ya que soy novato en esto.
La macro para VBA en excel que necesito, debe de hacer lo siguiente:

Si el valor de la Celda "A1" > 0 Entonces
El valor de la Celda "A2" = 0

Si el valor de la Celda "A2" > 0 Entonces
El Valor de la Celda "A1" = 0

Lo que tengo hasta hora es lo siguientes, mas solo cumple la primera parte condicionada la segunda ya no.

• Ligas-WEB.zip(9,6 KB)

No se que tiene que ver el libro adjunto con el problema.

Lo que si veo es que no es coherente. Hablas de la columna A y en la macro tratas la columna B, algo no cuadra

Segun tu explicacion la solución es esto:


Segunda cuestión sobre la Macro. ¿Esta en el sitio correcto? Es decir: ¿Esta en la hoja que se ha de ejecutar?

Probado y funciona.

Saludos.
\\//_

Buen día, Mi estimado Sr. Antoni Masana aprecio el tiempo que se toma para ayudarme a solucionar el código.

Utilice el código me me sugiere pero me da el siguiente error:

"Error de compilacion:

Instruccion Option duplicada"

Alguna sugerencia.

Saludos

ya vi donde esta el el error, puse dos beses "option Explicit" borre una

pero finalmente no funciona el código

me explico:

Cuando pongo un valor superior a "1" en la celda "A1" si me pone un cero en "A2" pero cuando pongo un valor superior a "1" en "A2" no me pone un cero en "A1" se quede el valor que había puesto antes en "A1" .

Soy contador publico y pretendo hacer una hoja que ayude a los contadores a llenar las declaraciones anuales con todo lo que esto implica.

En una parte del desarrollo quiero poner esta función para que los usuarios no cometan errores en algunas celdas es decir que si en una celda pone un valor condicionado en relación a otra celda no se valla a equivocar.


Resumo o pones el valor en A1 o en A2 "pero no en ambas",

Saludos

La secuencia de lo que hace la macro es primero valorar la celda A1 y después la A2, que es lo que hacia tu función o mejor dicho pretendía hacer.

Iniciemos la secuencia:

1.- Pongo valor mayor de cero en A1
2.- Se ejecuta la macro y se cumple la primera condición y pone a CERO la celda A2
3.- Pongo valor mayor de cero en A2
4.- Se ejecuta la macro y se cumple la primera condición y pone a CERO la celda A2.

Pero si entiendo bien lo que deseas, no debe evaluar primero la A1 cuando modifico la A2

La secuencia debería ser esta:

1.- Pongo valor mayor de cero en A1
2.- Se ejecuta la macro y pone a CERO la celda A2
3.- Pongo valor mayor de cero en A2
4.- Se ejecuta la macro y pone a CERO la celda A1.

Si no es así deja de leer. Pero creo entender que los tiros van por aquí.

Lo que estas buscando es esto:


Esta reemplaza a la anterior y va en el mismo sitio.

Saludos.
\\//_

Hola. Aprecio el tiempo que le dedicas a este asunto.

Si tienes toda la razón, la que dices que "la secuencia debería ser esta" es lo que pretendo. copie y ejecute el ultimo código que me enviaste, lamentablemente

Esta no la ejecuta,

Case "$A$2": If Range("A2").Value > 0 Then Range("A1").Value = 0

Se queda ejecutando la primera instrucción., es decir si tengo un valor mayor a Cero en "A1" y le pongo un valor mayor a 1 en la celda "A2" se me borrar "A2", espero haberme explicado.

De mi cuenta sigo investigando en la red que es lo que me hace falta para que funcione, ya tengo una semana con este asunto.

Observo que tienes mucha experiencia en esto ojala puedas seguir ayudad dome a resolverlo.


saludos

Lo estuve probando y me funciono.

Fíjate que la referencia celda del CASE es la misma que en el IF y la inversa despúes del THEN.

Lo que me sorprende es lo que te pasa.

Puedes subir el libro o si lo prefieres a mio correo.

Buen día Mi estimado Antoni.

Estaba yo mal, no se como lo copie mal jejejejej , tu código funciona a la perfección, lo copie en otro archivo en limpio y me funciona tal y como tu lo dices y como yo lo ocupo.

Te mereces una super FELICITACIÓN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Muchas gracias Antoni. seguimos en contacto, cuídate.

Saludos