¿Cómo hacer que funcione un libro de macros en Excel en Ingles y/o Español?

Hola, ojalá me puedan ayudar en esto, gracias.
Tengo un libro de macro que lo he probado en varios notebooks diferentes que tienen el Excel en idioma Español.
Pero después lo probé en uno en Ingles y no ejecutó. No se si existirá un medio para poder funcionar en cualquier Idioma.
Gracias de antemano :)

1 Respuesta

Respuesta
1

Partiendo de que el código en el Editor de Excel, es decir VBA está todo en inglés, no tiene razón de ser que no funcione.

Sí es posible que no te respondan las fórmulas escritas en español en la hoja, por ej: SUMA pero esta en el editor aparece como SUM y por lo tanto está en inglés.

Por lo tanto, ¿explica un poco más el alcance de 'no ejecutó'... habrá otros motivos?

Quedo a la espera de tus comentarios y/o aclaraciones.

Me aparece en "depurar" en la 2da fila al ejecutarlo desde un PC en ingles y con excel en inglés también, es decir, hay un error al iniciar esa macro.

Sub copiarhoja1()
Set l1 = Workbooks("Programa Backlog")
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo de excel"
.Filters.Add "Archivos excel", "*.xls*"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
If .Show Then
Set l2 = Workbooks.Open(.SelectedItems.Item(1))
l2.Sheets(1).Range("A1:AZ200000").Copy l1.Sheets("Backlog").Range("A2")
End If
End With
l1.Activate
Sheets("Backlog").Select

Claro, en la instrucción estás solicitando el 'tipo de libro' en español.

Y para las nuevas extensiones es posible indicar una x una, x ej:

. Filters.Add "Excel workbooks", "*.xlsx"

. Filters.Add "Excel macros", "*.xlsm"

Entonces para no tener inconvenientes probala así:

.Filters.Add "*", "*.xls*"


PD) En mi caso, también da error la 1er línea porque le falta la extensión, revisa ese detalle también.


Déjeme entender 2 cosas:
-¿se debe reemplazar .Filters.Add "*", "*.xls*" en la fila 5??
-¿con esto el libro macro funcionará, tanto en español como en la versión en inglés??
Lo pregunto porque en este preciso momento no tengo a la mano el Excel en inglés para probarlo. Gracias

Por ahora tu linea dice:

.Filters.Add "Archivos excel", "*.xls*"

y debe decir:

.Filters.Add "*", "*.xls*"

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas