Buenas tardes a todos, Estoy empezando en esto de las macros y me pasa lo siguiente. A través de una aplicación interna de mi empresa me descargo un Excel ( que cada vez que me lo descargo tiene un nombre distinto), entonces siempre tengo que cargarme alguna columna, ensanchar, cambiar nombres etc... He grabado una macro ( que en el libro donde la he creado me funciona a la perfección), pero cuando me descargo otro Excel (con otro nombre) ya no funciona, me aparece error 9. El código es el siguiente: Sub Macro2() ' ' Macro2 Macro ' ' Acceso directo: CTRL+i ' Columns("A:A").Select Selection.Delete Shift:=xlToLeft Columns("B:B").Select Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Columns("C:C").Select Selection.Delete Shift:=xlToLeft Columns("I:I").Select Selection.Cut Columns("F:F").Select Selection.Insert Shift:=xlToRight Columns("H:H").Select Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Selection.Delete Shift:=xlToLeft Columns("A:A").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A1").Select Windows("PE0360088 DI 20172804.xlsx").Activate AQUI ES DONDE APARECE EL ERROR Windows("CS512-503H1046447.XLS").ActivateNext ActiveCell.FormulaR1C1 = "INVOICE" Range("B1").Select ActiveCell.FormulaR1C1 = "DATE" Range("C1").Select ActiveCell.FormulaR1C1 = "ORDER" Range("D1").Select Windows("PE0360088 DI 20172804.xlsx").Activate Windows("CS512-503H1046447.XLS").Activate ActiveCell.FormulaR1C1 = "WDFG" Range("E1").Select Windows("PE0360088 DI 20172804.xlsx").Activate Windows("CS512-503H1046447.XLS").Activate ActiveCell.FormulaR1C1 = "DESCRIPTION" Range("F1").Select Windows("PE0360088 DI 20172804.xlsx").Activate Windows("CS512-503H1046447.XLS").Activate ActiveCell.FormulaR1C1 = "VAN" Range("G1").Select Windows("PE0360088 DI 20172804.xlsx").Activate Windows("CS512-503H1046447.XLS").Activate ActiveCell.FormulaR1C1 = "WDFG PRICE" Range("H1").Select ActiveCell.FormulaR1C1 = "UNITS" Range("A1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("B1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("C1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("D1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("E1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("F1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("G1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("H1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With Columns("G:G").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("G1").Select ActiveCell.FormulaR1C1 = "INVOICE PRICE" Range("G2").Select Columns("G:G").ColumnWidth = 16.71 Columns("E:E").ColumnWidth = 23.43 Columns("E:E").ColumnWidth = 31.43 Range("J1").Select Windows("PE0360088 DI 20172804.xlsx").Activate Windows("CS512-503H1046447.XLS").Activate With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveCell.FormulaR1C1 = "TOTAL INV" Range("K1").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveCell.FormulaR1C1 = "TOTAL WDFG" Range("L1").Select Windows("PE0360088 DI 20172804.xlsx").Activate Windows("CS512-503H1046447.XLS").Activate With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveCell.FormulaR1C1 = "TOTAL DISCREPANCY" Range("J2").Select ActiveCell.FormulaR1C1 = "=RC[-3]*RC[-1]" Range("K2").Select ActiveCell.FormulaR1C1 = "=RC[-3]*RC[-2]" Range("L2").Select ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]" Range("L3").Select End Sub ¿Qué tengo que hacer para que me valga en todas los libros? Muchas gracias por vuestro tiempo. Un saludo,

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

ue

Autor del tema themagic
Fecha de inicio 3 May 2017

themagic

New member

3 May 2017

Buenas tardes a todos,

Estoy empezando en esto de las macros y me pasa lo siguiente. A través de una aplicación interna de mi empresa me descargo un Excel ( que cada vez que me lo descargo tiene...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba