Rango de celdas combinadas para activar una macro
Tengo la siguiente macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("F5:F11")) Is Nothing Then
On Error Resume Next
macro = Target.Value
Run macro
End If
End Sub
Pero necesito combinar las celdas F5:H5. F6:H6, F7:H7 ... F11:H11
Si combino estas celdas la macro no funciona. ¿Qué debo cambiar en la macro para que funcione con estas celdas combinadas?
3 Respuestas
H ol a:
Si tienes combinadas las celdas F5, G5 y H5, cuando seleccionas la "F5", no estás seleccionando únicamente la celda F5, también estás seleccionando la G5 y la H5, entonces aparentemente estás seleccionando una celda, pero en realidad estás seleccionando 3 celdas.
En tu macro tienes esto:
If Target.Count > 1 Then Exit Sub
Cuando seleccionas F5, el contador de Target es 3, por lo tanto, es mayor que 1; y por eso se termina la rutina.
Entonces la corrección de tu macro podría quedar así:
If Target.Count > 100 Then Exit Sub
Puedes seleccionar hasta 100 celdas, es un número cualquiera, solamente es para permitir que la macro siga funcionando. Pero si insertas una línea o una columna, eso implica que son cientos de celdas las afectadas, entonces target tendrá un valor mayor a 100; entonces, sí y solo sí, termina la rutina.
Regresando a tu macro, lo siguiente que tienes que verificar es el valor de la columna F.
En tu macro tienes esto:
macro = Target.Value
Pero como ya te había explicado, en target tienes el valor de 3 celdas F5, H5 y G5, entonces en la variable "macro" no tienes un valor, realmente tienes 3 valores; es por eso que no se ejecuta la macro.
Lo que se tiene que hacer es tomar el dato de la columna F, de la siguiente forma:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Count > 100 Then Exit Sub
If Not Intersect(Target, Range("F5:F11")) Is Nothing Then
'On Error Resume Next
macro = Cells(Target.Row, "F").Value
Run macro
End If
End SubQuité la instrucción On Error Resume Next, para que verifiques qué error te puede aparecer, si todo está bien, no debes tener problemas y el único error que debe aparecer es : "No se puede ejecutar la macro"; y eso es porque la macro no existe en alguno de tus módulos.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Combinar celdas siempre da lugar a futuros problemas, mira si realmente es necesario combinarlas, ya que la mayoría de veces solo responde a una estética que es epuede conseguir igual sin combinarlas.
De todos modos, prueba a borrar esta línea
If Target.Count > 1 Then Exit Sub
Muchas gracias por la respuesta
He quitado la línea que me indicas y he combinado las celdas F5:H5 y sucesivamente hasta F11:H11, pero se para en la línea Run macro
y no ejecuta la macro.
el nombre de cada macro que debe ejecutarse esta en cada línea F5 a F11
Sin combinar celdas ejecuta la macro perfectamente, pero no logro a comprender que diferencia existe con las celdas combinadas, si a todos los efectos sigue siendo F5, F6, F7 el nombre de cada celda y el titulo de cadamacro esta en esas celdas.
Acabo de cambiar la línea
macro = Target.Value
por
macro = Activecell
y funciona, aunque por momentos se desactiva
Alguna mejora para este cambio, para que funciones correctamente?
Gracias
Pon
macro = Activecell.Value
He hecho los cambios que indicas pero no funciona, da error
Dante. muchas gracias por interesarte en este temahe hecho los cambios que indicas, pero no funciona, da errorsaludos - jflorentino Perez Diaz
Después de mi respuesta hay un botón que dice: "Proporcionar más información". De hecho deberías entrar con el usuario que originó la pregunta "jose lav". Ahí me indicas qué mensaje de error te aparece y en qué línea de la macro se detiene.Como te comenté, el probable error, es que la macro no exista. Dime qué dato tiene la celda que estás seleccionando, revisa que algún módulo tengas una macro con ese nombre. - Dante Amor
No se por que se ha anulado en ese botón que comentas de "proporcionar mas información" incluso yo hice un comentario a Gregorio, el consultor que te antecedio en la respuesta que se ha eliminado y en la que le aportaba la línea que si funcionaba, que es la siguienteLmacro = ActiveCellcon eso funciona perfectamente.El limite de target figuraba 1 porque era del programa original, que al tener tres celdas ahora, el limite es 3, pero ese no era el gran problema, sino en la línea que tenia en un principio: macro = target.value. es aquí donde estaba el problema al combinar las celdas. Pero como digo ya encontré la solución con macro = ActiveCellMuchas gracias. Dante por tu tiempo. saludos - jflorentino Perez Diaz
El botón no está porque el usuario que hizo la pregunta es "jose lav" ahora estás con otro usuario "jflorentino". Vuelve a entrar con el usuario "jose lav". R ecuerda valorar la respuesta. - Dante Amor
a mi me funciona - Adriel Ortiz Mangia