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

Preguntas similare

Macro al clikear un rango

Leer las respuestas

#6 Cacho

09/09/2009 - 23:37 | Informe spam

Angelo: espero que no vuelvas a cambiar de parecer puesto que -con mucha
claridad- se puede leer, un par de post atrás, que tu requerimiento estaba
limitado a la selección de UNA SOLA CELDA.

Tómalo positivamente: no está bueno ocupar tanto tiempo de una ayuda que se
te brinda desinteresadamente sin tomarse -previamente- el tiempo necesario
como para "madurar" el pedido de ayuda...

Aquí te dejo la última versión (por lo menos de mi parte):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range, Celda As Range
If Target.Columns.Count > 1 Then Exit Sub
Set Rng = Intersect(Target, [a2:a500])
If Rng Is Nothing Then Exit Sub
For Each Celda In Rng
If Celda = "A" Then
Celda.ClearContents
Else
Celda = "A"
End If
Next Celda
End Sub

Saludos, Cacho.

Responder a este mensaje

#7 Angelo Vernaza

10/09/2009 - 15:42 | Informe spam

Muchas Gracias panita, excelente...!

On 9 sep, 16:37, Cacho wrote:

Angelo: espero que no vuelvas a cambiar de parecer puesto que -con mucha
claridad- se puede leer, un par de post atrás, que tu requerimiento estaba
limitado a la selección de UNA SOLA CELDA.

Tómalo positivamente: no está bueno ocupar tanto tiempo de una ayuda que se
te brinda desinteresadamente sin tomarse -previamente- el tiempo necesario
como para "madurar" el pedido de ayuda...

Aquí te dejo la última versión (por lo menos de mi parte):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range, Celda As Range
If Target.Columns.Count > 1 Then Exit Sub
Set Rng = Intersect(Target, [a2:a500])
If Rng Is Nothing Then Exit Sub
For Each Celda In Rng
If Celda = "A" Then
Celda.ClearContents
Else
Celda = "A"
End If
Next Celda
End Sub

Saludos, Cacho.