Macro para formato condicional moneda

sergiobendrao@hotmail.com · el 20 de marzo

Buenos días,

Tengo una tabla dinámica en la que he creado unos campos calculados para que muestre los costes agrupados por tipo de trabajo.

Dichos costes, ya están calculados en base a la moneda local de cada país, por lo que inicialmente al no haber ningún filtro, muestra la suma de todos. Lo que necesitaría sería saber es como hacer que cuando filtre por un país, las celdas de los costes me muestren el símbolo de la moneda de dicho país. Por ejemplo, que si selecciono España me ponga €, USA, $, UK £, etc...

Gracias y un saludo.

sergiobendrao@hotmail.com · el 20 de marzo

Macro Moneda.txt

He grabado esta macro que es lo que necesito, pero lo ideal es que hiciera esto solo al hacer el filtro de país, porque si ejecuto la macro me hace todos los filtros de seguido.

AlexanderS · el 20 de marzo

Pon un archivo de excel de ejemplo, poco podemos hacer si no sabemos la estructura de tus datos.

Saludos.

sergiobendrao@hotmail.com · el 20 de marzo

Libro1 (1).xlsx

Adjunto excel de ejemplo

AlexanderS · el 21 de marzo

Prueba el adjunto.

Comentas.

Saludos

Libro1 (1).xlsm

sergiobendrao@hotmail.com · el 21 de marzo

Estupendo muchas gracias, es justo lo que necesitaba.

Un saludo.

sergiobendrao@hotmail.com · el 22 de marzo

Una duda @AlexanderS que no controlo mucho de esto.

Cuando quiero extrapolar tu macro mi excel, que campos tengo que cambiar para que me lo coja? Y entiendo que la macro va sobre el filtro que agregaste del pais, no puede ir sobre el filtro de segmentación de datos, no?

A su vez, si quieres ver varios paises a la vez y los ponen en la tabla dinámica como filas, no funcionaria no?

Gracias y un saludo.

sergiobendrao@hotmail.com · el 23 de marzo

Una duda @AlexanderS que no controlo mucho de esto.

Cuando quiero extrapolar tu macro mi excel, que campos tengo que cambiar para que me lo coja? Y entiendo que la macro va sobre el filtro que agregaste del pais, no puede ir sobre el filtro de segmentación de datos, no? También si quito todos los filtros de país me da error. En este caso de que en país ponga "Todas" que es como incialmente se mostraría el dato, necesitaría que en vez de error no muestre ninguna moneda.

A su vez, si quieres ver varios paises a la vez y los ponen en la tabla dinámica como filas, no funcionaria no?

Gracias y un saludo.

sergiobendrao@hotmail.com · el 23 de marzo

Tengo otra duda @AlexanderS

¿Como puedo decirle que el formato de de cambio de moneda me lo coja en una celdas específicas?

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.Intersect(Target, Range("B1")) Is Nothing Then

divisa = Sheets("Hoja1").Range("Tabla1[País]").Find([B1], , , xlWhole).Offset(0, 1)

Range("A4").CurrentRegion.NumberFormat = Replace("_([$-]* #,##0.00_)", "-", divisa)

End If

End Sub

Donde pone Range("A4") pongo Range Range("E4:F14") por ejemplo pero sigue haciendo la conversión de moneda en todas las celdas.

AlexanderS · el 23 de marzo

Hola @sergiobendrao@hotmail.com, debería funcionar bien si pones los países como filas, eso no afecta la macro. Con lo otro efectivamente utilice el filtro de país para poder crear el evento de cambio en la hoja, con la segmentación directamente es mas difícil ta que no existe un evento que detecte un cambio en la selección.

Con lo del error al tener cuando el filtro pais dice "Todas" se puede corregir asi:

Private Sub Worksheet_Change(ByVal Target As Range): On Error Resume Next

If Application.Intersect(Target, Range("B1")) Is Nothing Then

Set divisa = Sheets("Hoja1").Range("Tabla1[País]").Find([B1], , , xlWhole).Offset(0, 1)

If divisa Is Nothing Then divisa = ""

Range("A4").CurrentRegion.NumberFormat = Replace("_([$-]* #,##0.00_)", "-", divisa)


End If

End Sub

Y para que se aplique en celdas especificas debes cambiar esta linea:

Range("A4").CurrentRegion.NumberFormat =

por

Range("E4:F14").NumberFormat =

Saludos.

sergiobendrao@hotmail.com · el 23 de marzo

Hola @AlexanderS

Lo del rango me funciona perfecto muchas gracias.

Cuando hago una selección múltiple de países, por ejemplo España y EEUU, se me muestran ambos como filas, pero me da error para depurar la macro. Se te ocurre a qué puede ser debido?