La macro solo funciona en un ordenador
Hola alguien me podría decir por favor por que la siguiente macro en un ordenador me funciona y en otro no:
Windows("informe.xls").Activate
ActiveWindow.SmallScroll Down:=-15
Range("A2:AG399").Select
Selection.Copy
Windows("tend.xls").Activate
Windows("A DIFERENCIA.xls").Activate
Sheets("DATOS").Select
Range("A2").Select
ActiveSheet.Paste
Range("A2:AG399").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("AA2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("A2").Select
Sheets("TOTAL DIFERENCIAS").Select
Range("J3").Select
Gracias-
Windows("informe.xls").Activate
ActiveWindow.SmallScroll Down:=-15
Range("A2:AG399").Select
Selection.Copy
Windows("tend.xls").Activate
Windows("A DIFERENCIA.xls").Activate
Sheets("DATOS").Select
Range("A2").Select
ActiveSheet.Paste
Range("A2:AG399").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("AA2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("A2").Select
Sheets("TOTAL DIFERENCIAS").Select
Range("J3").Select
Gracias-
1 Respuesta
Respuesta de yescuder
1
Tu macro no tiene nada de raro, debería funcionar en cualquier PC, que tenga el mismo excel donde fue creada, sin embargo podrías ser más especifico en el error que recibes.
Hola, gracias por contestar.
Se me para en esta linea
Me sale error 9
Windows("tend.xls").Activate
Gracias.-
Se me para en esta linea
Me sale error 9
Windows("tend.xls").Activate
Gracias.-
Pero cual es el error, que descripción del error dice
