He creado una macro que solo se ejecuta en mi pc
La macro solo contiene información del mismo libro. Al pasarla por correo como archivo .xlsm, a mis compañeros les sale el error 1004, error en tiempo de ejecución. Cuando le dan en depurar, les abre el código señalando un error en fórmula local.
¿Qué puedo hacer? ¿O lo estoy guardando mal?
1 Respuesta
Sería bueno ver la línea en donde les marca el error pero si usaste "FormulaLocal" para insertar una fórmula, lo hiciste en el idioma de tu Office y con el separador de lista de tu sistema operativo, alguno de ellos, o todos, deben tener u Office en otro idioma u otros separador de lista.
Lo ideal es usar "Formula" no "FormulaLocal"
Abraham Valencia
PD: Por si acaso, los separadores de lista son las "comas" o "puntos y comas" con las que separamos los argumentos en las fórmulas
Gracias por tu respuesta Abraham. He intentado cambiarlo a fórmula, pero me sale el mismo error. Te copio las líneas:
Application.ScreenUpdating = False
Sheets("Tab I").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Sheets("Hoja1").Select
Range("A22:S22").Select
Selection.Copy
Sheets("Tab I").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U3").Select
ActiveCell.FormulaLocal = "=CONCATENAR(A3;T1;B3;T1;C3;T1;D3;T1;E3;T1;F3;T1;G3;T1;H3;T1;I3;T1;J3;T1;K3;T1;L3;T1;M3;T1;N3;T1;O3;T1;P3;T1;Q3;T1;R3;T1;S3)"
Sheets("Hoja1").Select
Range("E22").Select
ActiveCell.FormulaLocal = "=CONTAR('Tab I'!E3:E100)+1"
Sheets("Inicio").Select
Range("M14,M10,M6,I14,I10,E14,E10,E6,E12").Select
Selection.ClearContents
Application.ScreenUpdating = True
End Sub
Reemplaza por las siguientes:
ActiveCell.Formula"=CONCATENATE(A3,T1,B3,T1,C3,T1,D3,T1,E3,T1,F3,T1,G3,T1,H3,T1,I3,T1,J3,T1,K3,T1,L3,T1,M3,T1,N3,T1,O3,T1,P3,T1,Q3,T1,R3,T1,S3)"
ActiveCell.Formula = "=COUNT('Tab I'!E3:E100)+1"No olvides que el VBA es "anglo parlante" así que todo lo que se haga en ingles, lo adapta al idioma del Office.
Salu2
Abraham Valencia
