Error en macro
Hola me ha vuelto ha salir el error que te comente antes
el error que sale en la macro es:
"se ha producido el error '9' en el tiempo de ejecución
subíndice fuera de intervalo"
Sobre la macro que te envíe.
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
Se me pone en amarillo la primera linea
Mira por favor si me lo puedes resolver.
Gracias.-
el error que sale en la macro es:
"se ha producido el error '9' en el tiempo de ejecución
subíndice fuera de intervalo"
Sobre la macro que te envíe.
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
Se me pone en amarillo la primera linea
Mira por favor si me lo puedes resolver.
Gracias.-
1 respuesta
Respuesta de yescuder
1