Borrar celda automáticamente

23/02/2006 - 18:48 por Guillermo Pérez | Informe spam
Hola. Soy novato en Excel y Visual Basic y tengo una duda. Necesito borrar
automáticamente el contenido de una celda cada vez que en ella aparezca una
determina palabra. No con una macro que yo tenga que ejecutar manualmente
sino de forma automática cada vez que cambie el valor de la celda. Por
ejemplo: La celda M6 está vacía y quiero que cada vez que tome el valor
"HOLA" se borre el contenido de esa celda automáticamente. Tengo más o menos
claro que la subrutina sería algo así:

Sub BorrarCelda()
If Range("M6")="HOLA" Then
Range("M6").Value=""
End If
End Sub

La pregunta es: ¿qué tengo que hacer para que ese código se ejecute continua
y automáticamente en la hoja?

Saludos.
 

Leer las respuestas

#1 big
23/02/2006 - 19:18 | Informe spam
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rango As Range

Set Rango = Range("M6")
If Intersect(Target, Rango Is Nothing Then Exit Sub
If Range("M6")="HOLA" Then Range("M6").Value=""

End Sub




"Guillermo Pérez" escribió en el
mensaje news:PzmLf.169599$
Hola. Soy novato en Excel y Visual Basic y tengo una duda. Necesito borrar
automáticamente el contenido de una celda cada vez que en ella aparezca
una determina palabra. No con una macro que yo tenga que ejecutar
manualmente sino de forma automática cada vez que cambie el valor de la
celda. Por ejemplo: La celda M6 está vacía y quiero que cada vez que tome
el valor "HOLA" se borre el contenido de esa celda automáticamente. Tengo
más o menos claro que la subrutina sería algo así:

Sub BorrarCelda()
If Range("M6")="HOLA" Then
Range("M6").Value=""
End If
End Sub

La pregunta es: ¿qué tengo que hacer para que ese código se ejecute
continua y automáticamente en la hoja?

Saludos.


Preguntas similares