Un código VBA que al hacer click...
Hola expertos...
Solicito su ayuda, ya que necesito un código VBA que al hacer click sobre una celda, me genere un número uno, y si la celda no es clickeada, quede un cero.´Necesito que este código trabaje sobre un rango, ej: A1:Z100.
Encontré un código que me genera sólo en una celda, ¿Cómo lo puedo generalizar para el rango anteriormente nombrado?
Les agradezco su ayuda de antemano.
Solicito su ayuda, ya que necesito un código VBA que al hacer click sobre una celda, me genere un número uno, y si la celda no es clickeada, quede un cero.´Necesito que este código trabaje sobre un rango, ej: A1:Z100.
Encontré un código que me genera sólo en una celda, ¿Cómo lo puedo generalizar para el rango anteriormente nombrado?
Les agradezco su ayuda de antemano.
Respuesta de Elsa Matilde
1
Deja tu código aquí, si lo que te indico no lo podes agregar y adaptar a tu rutina.
Seguramente tenés una macro que empieza con :
Private Sub Worksheet_SelectionChange...................
'a continuación indicar el rango de trabajo
if not interset(target,range("A1:Z100")) is nothing then
'aquí el proceso pra colocar 1 a la celda
'............
else
'instrucciones para celdas fuera del rango
end if
End sub
Seguramente tenés una macro que empieza con :
Private Sub Worksheet_SelectionChange...................
'a continuación indicar el rango de trabajo
if not interset(target,range("A1:Z100")) is nothing then
'aquí el proceso pra colocar 1 a la celda
'............
else
'instrucciones para celdas fuera del rango
end if
End sub
Primero, agradezco tu respuesta.
Ahora, tal como dices, tengo la siguiente rutina:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing Then _
Range("B5").Value = 10
End Sub
¿Cómo la puedo adaptar para que trabaje en el rango?...
A todo esto, soy nuevo en VBA y nunca había programado en otro lenguaje antes.
¿El código que me entregaste como lo agrego a una rutina?
Gracias nuevamente.
Ahora, tal como dices, tengo la siguiente rutina:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing Then _
Range("B5").Value = 10
End Sub
¿Cómo la puedo adaptar para que trabaje en el rango?...
A todo esto, soy nuevo en VBA y nunca había programado en otro lenguaje antes.
¿El código que me entregaste como lo agrego a una rutina?
Gracias nuevamente.
En tu rutina solo se contempla si seleccionas la celda B5.
Mi código evalúa si seleccionas alguna celda en el rango A1:Z100, es decir que solo tenés que cambiar el Range, quedando tu rutina así:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:100")) Is Nothing Then _
target.value = 10 'ajustá el valor que quieras se coloque en la celda.
End Sub
Mi código evalúa si seleccionas alguna celda en el rango A1:Z100, es decir que solo tenés que cambiar el Range, quedando tu rutina así:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:100")) Is Nothing Then _
target.value = 10 'ajustá el valor que quieras se coloque en la celda.
End Sub
Muchas gracias por tu respuesta... eres lo máximo!
Gracias a éste código podré terminar una parte de mi trabajo de titulo.
Por supuesto que estás con una evaluación de Excelente.
Muchas gracias nuevamente.
Gracias a éste código podré terminar una parte de mi trabajo de titulo.
Por supuesto que estás con una evaluación de Excelente.
Muchas gracias nuevamente.
