Idioma "All" vs "Todas"

hola, Alex !

... en una macro limpio los filtros de una tabla dinámica con el siguiente codigo:
If .PivotFields(i).Orientation = 3 Then .PivotFields(i).CurrentPage = "(All)"
... cuando el excel esta en español debo poner "Todas" en vez de "All"
¿como puedo detectar el idioma en el que esta excel?

1.- define una variable de tipo 'string' al principio del codigo
2.- 'llenala' segun el codigo de pais de la version instalada de excel [p.e.]
Sub AquiTuMacro()
Dim Todas As String
Select Case Application.International(xlCountryCode)
Case 1: Todas = "(All)" ' excel instalado en idioma ingles [usa] '
Case 34: Todas = "(Todas)" ' excel instalado en idioma español '
' Case 'n' -> hay mas codigos segun la 'internacionalizacion' que necesites dar al codigo ;) '
End Select
' [... aqui las demas lineas de tu codigo ...]
If .PivotFields(i).Orientation = 3 Then .PivotFields(i).CurrentPage = Todas
' [... aqui las restantes lineas de tu codigo ...]
End Sub

saludos,
hector.

p.d. visita: http://support.microsoft.com/defaul...;es;213833

Héctor, funcionó perfectamente.
un vez mas gracias!

hola, Alex !

... en una macro limpio los filtros de una tabla

dinámica con el siguiente codigo:

If .PivotFields(i).Orientation = 3 Then .PivotFields

(i).CurrentPage = "(All)"

... cuando el excel esta en español debo poner "Todas"

en vez de "All"

¿como puedo detectar el idioma en el que esta excel?

1.- define una variable de tipo 'string' al principio

del codigo

2.- 'llenala' segun el codigo de pais de la version

instalada de excel [p.e.]

Sub AquiTuMacro()
Dim Todas As String
Select Case Application.International(xlCountryCode)
Case 1: Todas = "(All)" ' excel instalado en idioma

ingles [usa] '

Case 34: Todas = "(Todas)" ' excel instalado en

idioma español '

' Case 'n' -> hay mas codigos segun

la 'internacionalizacion' que necesites dar al codigo ;) '

End Select
' [... aqui las demas lineas de tu codigo ...]
If .PivotFields(i).Orientation = 3 Then .PivotFields

(i).CurrentPage = Todas

' [... aqui las restantes lineas de tu codigo ...]
End Sub

saludos,
hector.

p.d. visita: http://support.microsoft.com/default.aspx?

scid=kb;es;213833

.

hola, Alex !

... funciono ... gracias!

gracias a ti [por el 'feed-back'] ;)

saludos,
hector.

"Alex V." escribió en...

Hola a todos, tengo un problema , en una macro limpio los
filtros de una tabla dinámica con el siguiente código:

If .PivotFields(i).Orientation = 3 Then .PivotFields
(i).CurrentPage = "(All)"

el problema es que cuando el excel esta en español debo
poner "Todas" en vez de "All", ¿como puedo detectar el
idioma en el que esta excel?

Que version de Excel estas utilizando, porque a mi, con
la version Excel 2000 SP3 si que me acepta
.CurrentPage = "(All)". Es mas, lo he comprobado y
me acepta tambien .CurrentPage = "(Todas)", esto ultimo
si que me sorprende :-)

Bueno, si lo quieres comprobar ya diras.

Saludos