Macro al clikear un rango

09/09/2009 - 17:30 por Angelo Vernaza | Informe spam

Hola buenos días,

Quisiera que me ayudaran a hacer una Macro la cual en el rango A2:A500
se haga lo siguiente:

1. Al seleccionar una celda coloque la letra "a" si en todo caso la
letra "a" ya estaba puesta que la quite.

Todo esto para el rango indicado,

tambien queria saber si esto haria quel archivo se hiziera lento?

Saludos,
Angelo V.-

Siga el debate

8 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Cacho

09/09/2009 - 19:06 | Informe spam

Hola! Angelo.
a) Haz clic con el botón derecho de tu ratón en la etiqueta de la hoja en la
que quieres el efecto (abajo a la izquierda)

b) En la ventana que se abrirá, copia y pega lo siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$D$2" Then Exit Sub
rng = "A2:A500"

Application.ScreenUpdating = False
Range(rng) = Evaluate("transpose(transpose(if(" & rng & "=""A"", """",
""A"")))")
Application.ScreenUpdating = True
End Sub

c) Cierra todas las ventanas del ambiente Visual Basic for Application en el
que te encuentras y retorna al Excel.

A partir de ese momento, cada vez que selecciones la celda "D2" obtendrás el
efecto buscado.

En la macro puedes cambiar la celda en cuestión (D2) tanto como el rango
procesado (A2:A500).

Espero te sea de utilidad.
Saludos, Cacho.

Leer las otras respuestas

Preguntas similares

Macro al clikear un rango

Busqueda sugerida :