Error de Compilación al ejecutar varias Macros en una misma hoja

catica1991 · el 14 de agosto

Tengo varias macros en una misma hoja y el excel me bota un error y no me las deja ejecutar por favor me pueden colaborar.

El código es el siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$c$7" Then MostrarVentasFacturadas

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$c$8" Then MostrarVentasPerCapita

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$c$9" Then MostrarRotacionTotal

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$c$10" Then MostrarRotacionNeta

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$c$11" Then MostrarRotacionVoluntaria

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$c$12" Then MostrarRotacionForzada

End Sub

bigpetroman · el 14 de agosto

amigo, debes siempre subir un archivo para mejor compresion, sin embargo lo que sucede es que estas colocando el mismo evento de hoja varias veces "Private Sub Worksheet_SelectionChange" ese es el evento SelectionChance de la hoja, NO puedes tener varios, lo que tienes que hacer es hacer un solo IF con todas las opciones que tienes alli, ejemplo

IF Target.Adress = "$c$12" Then

MostrarRotacionForzada

ELSEIF Target.Adress = "$c$13" Then

MOSTRAROTRO

ELSEIF Target.Adress = "$c$14" Then

MOSTRAROTROMAS

END IF

Suerte

Antoni · el 15 de agosto

O sea, mas o menos, podría quedarte así:



[COLOR=#333333]Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[/COLOR][COLOR=#333333]

If Target.Address = "$c$7" Then MostrarVentasFacturadas[/COLOR]

[COLOR=#333333]If Target.Address = "$c$8" Then MostrarVentasPerCapita[/COLOR]

[COLOR=#333333]If Target.Address = "$c$9" Then MostrarRotacionTotal[/COLOR]

[COLOR=#333333]If Target.Address = "$c$10" Then MostrarRotacionNeta[/COLOR]

[COLOR=#333333]If Target.Address = "$c$11" Then MostrarRotacionVoluntaria[/COLOR]

[COLOR=#333333]If Target.Address = "$c$12" Then MostrarRotacionForzada[/COLOR]

[COLOR=#333333]

End Sub

[/COLOR][/CODE]

o así también vale:

[CODE]
[COLOR=#333333]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[/COLOR][COLOR=#333333]
Select Case Target.Address
Case "$c$7": MostrarVentasFacturadas[/COLOR]
[COLOR=#333333] Case "$c$8": [/COLOR][COLOR=#333333]MostrarVentasPerCapita[/COLOR]
[COLOR=#333333] Case "$c$9": [/COLOR][COLOR=#333333]MostrarRotacionTotal[/COLOR]
[COLOR=#333333] Case "$c$10": [/COLOR][COLOR=#333333]MostrarRotacionNeta[/COLOR]
[COLOR=#333333] Case "$c$11": [/COLOR][COLOR=#333333]MostrarRotacionVoluntaria[/COLOR]
[COLOR=#333333] Case "$c$12": [/COLOR][COLOR=#333333]MostrarRotacionForzada[/COLOR]
[COLOR=#333333]End Select

End Sub
[/COLOR][/CODE]

Eso si, haz caso a [u][i][color=#0000cd][b][size=3]bigpetroman [/size][/b][/color][/i][/u]y sube el archivo la próxima vez, de esta manera podremos probar las soluciones.

catica1991 · el 15 de agosto

Primero que todo muchas gracias bigpetroman y macro antonio por sus respuestas, lamentablemente las realice en el archivo y la macro no me funciono, tienen razón ahora si adjunto una muestra del archivo. La idea de esta macro es que al dar click en una celda de los indicadores una hoja oculta que esta se abra.

Reporte RRHH 2013 10.rar

bigpetroman · el 16 de agosto

amigo catica1991, no veo que hayas aplicado nada de lo indicado; borra todo el codigo que tienes en la hoja "Matriz Indicadores" y utiliza uno de los indicados por Macro Antonio

catica1991 · el 16 de agosto

Si tienes toda la razón yo ya había intentado las diferentes opciones pero con ninguna lograba la ejecución de la macro aun así teniendo en cuenta tu sugerencia adjunto el archivo con la ultima opción dada por Macro Antonio. Muchas gracias por toda su comprensión y colaboración.

Reporte RRHH 2013 10.rar

Antoni · el 16 de agosto

Cambia las direcciones de las celdas a mayúscula.






Private Sub Worksheet_SelectionChange(ByVal Target As Range)



   Select Case Target.Address

      Case "$[B]C[/B]$8":  MostrarVentasPerCapita

      Case "$[B]C[/B]$942":  MostrarCostosSalarios

      Case "$[B]C[/B]$50": MostrarVacantesCubiertas

   End Select



End Sub





[/CODE]

catica1991 · el 16 de agosto

Macroantonio y Bigpetroman, finalmente la macro si sirvió, efectivamente el problema estaba en que la c la tenia en minúscula muchas gracias por sus aportes y dedicarme un segundo de su tiempo para esta consulta y permitirme aprender un poquito mas de estos temas