validar celda mediante macro

[Francisco Sáez R.]

Buenas noches estimados foristas, mi consulta es la siguiente tengo una hoja
llamada "DATOS" y dos celdas especificas que necesito automatizar de la
siguiente manera:
P.e. si en "E2" anoto un valor numerico cualquiera, necesito que
inmediatamente me valida la celda "I7" con el valor 0 "cero" y viseversa,
osea si en "I7" anoto un valor, que me valide "E2" con valor 0 "cero",
espero que se pueda hacer, de ante mano muchas gracias y seguimos en
contacto.
--
Un saludo,
_____________________________________
Francisco Sáez R.
Stgo-Chile

PD.: Trabajo con Office XP

[Adolfo Fernández]

Hola Francisco,
Te pongo un ejemplo de como al modificar la celda E2 se borra el contenido
de la celda I7.
Esto te puede servir de punto de partida para lo que tu quieres hacer. Te
queda comprobar si la celda que se modifica es E2 o I7 y ademas que el valor
introducido en ambas celdas sea numérico ( esto último no hace falta que lo
compruebes con vba, al opción de validar datos te puede servir)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vrange As Range
Set vrange = Range("E2")
If Union(Target, vrange).Address = vrange.Address Then
Range("I7").ClearContents
End If

End Sub
Si te hace falta más ayuda no dudes en preguntar

Un saludo,
Adolfo

"Francisco Sáez R." <fsa...@vtr.net> escribió en el mensaje
news:#OVZCndS...@TK2MSFTNGP10.phx.gbl...

[Francisco Sáez R.]

Hola Adolfo,
Primero que nada muchas gracias por el codigo enviado, me haz solucionado
una parte del problema, ahora la siuacion inversa tb se puede hacer ? ya sea
el que me enviaste me borra efectivamente el valor de "I7" pero necesito
agragarle tb si yo escribo algo en "I7" que me borre el contenido de "E2".
Por que hasta ahora esta funcionando asi, yo anoto un valor en E2 y me deja
en blanco I7, osea queda libre ahora si yo quisiera escribir en I7 un valor
tb como se puede hacer pa que se borrara el contenido de E2 ?, espero
haberme explicado bien, muchas gracias.

--
Un saludo,
_____________________________________
Francisco Sáez R.
Stgo-Chile

"Adolfo Fernández" <ado...@msscrews.com> escribió en el mensaje
news:u9tayIeS...@TK2MSFTNGP12.phx.gbl...

[Adolfo Fernández]

Hola Francisco,
Con el siguiente código consigues todo lo que necesitas, solo tiene un
problema y es que admite cualquier valor, ya sea numerico o no. En este
punto no te puedo ayudar, porque no se como comprobar si un valor es
numérico o no, pero seguro que cualquiera de la lista lo sabe.

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Union(Target, Range("E2")).Address = Range("E2").Address Then
Range("I7").ClearContents
Else
If Union(Target, Range("i7")).Address = Range("i7").Address Then
Range("e2").ClearContents
End If

End If
Application.EnableEvents = True

End Sub

Espero que esto te resuelva todos los problemas

Un saludo,
Adolfo
"Francisco Sáez R." <fsa...@vtr.net> escribió en el mensaje

news:#c4eOSeS...@TK2MSFTNGP10.phx.gbl...

[Francisco Sáez R.]

Estimado Adolfo muchisimas gracias, de verdad me haz ayudado muchisimo con
esto quede de pelicula, bueno espero que estes bien mucha suerte y gracias
nuevamente, me estaba quebrando la cabeza con eso ya son las 5:13 de la
mañana y me levanto a las 7 andare clarito :D, bueno me despido,

--
Un saludo,
_____________________________________
Francisco Sáez R.
Stgo-Chile

"Adolfo Fernández" <ado...@msscrews.com> escribió en el mensaje

news:%238hxmce...@TK2MSFTNGP12.phx.gbl...