Error 9 en Tiempo de Ejecución

Hola Angelo,

Prueba esto:

Sub Test()
With Application
.ScreenUpdating = False
Sheets("E.Cta.").Copy
With ActiveSheet
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
.Shapes("Button 1").Delete
.Shapes("Button 3").Delete
.Range("A1").Select
End With
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub

o un pelin mas compacto:

Sub Macro3()
With Application
.ScreenUpdating = False
Sheets("E.Cta.").Copy
With ActiveSheet
.Cells.Copy: .Cells.PasteSpecial Paste:=xlValues
.Shapes("Button 1").Delete: .Shapes("Button 3").Delete
.Range("A1").Select
End With
.CutCopyMode = False: .ScreenUpdating = True
End With
End Sub


Saludos,
KL


"AnGeLo" wrote in message
news:

Holas Grupo, estoy tratando de ejecutar la siguiente macro y me sale Error
9 en Tiempo de Ejecución.

Sub Macro3()
Application.ScreenUpdating = False
Sheets("E.Cta.").Select
Sheets("E.Cta.").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Range("A1").Select
ActiveSheet.Shapes("Button 1").Select
Selection.Delete
ActiveSheet.Shapes("Button 3").Select
Selection.Delete
Application.ScreenUpdating = True
End Sub

Saludos,

hola, AnGeLo !

... la siguiente macro y me sale Error 9 en Tiempo de Ejecucion.

=> no indicas cual es la linea que 'manda' el error -?- pero...
=> significa que 'trato' de obtener un elemento que [ya] NO 'existe' en la coleccion :-(
[probablemente] los 'shapes' [button 1] y/o [button 3]

comentas datos adicionales?
saludos,
hector.

Hola Héctor y KL,

La macro de KL tambien me envia el mismo error y es en esta línea: :
.Shapes("Button 3").Delete

de repente es porque ese elemento lo borre, pero ahora como yo se como se
llama el nuevo elemento que puse? para cambiarle el nombre?

Saludos,

"Héctor Miguel" escribió en el mensaje
news:

hola, AnGeLo !

... la siguiente macro y me sale Error 9 en Tiempo de Ejecucion.

=> no indicas cual es la linea que 'manda' el error -?- pero...
=> significa que 'trato' de obtener un elemento que [ya] NO 'existe' en la
coleccion :-(
[probablemente] los 'shapes' [button 1] y/o [button 3]

comentas datos adicionales?
saludos,
hector.

Hola ya lo pude encontrar, estaba en el Cuadro de Nombres y solo tuve que
cambiar la macro de KL asi:

Sub Macro3()
With Application
.ScreenUpdating = False
Sheets("E.Cta.").Copy
With ActiveSheet
.Cells.Copy: .Cells.PasteSpecial Paste:=xlValues
.Shapes("Button 1").Delete: .Shapes("Button 2").Delete
.Range("A1").Select
End With
.CutCopyMode = False: .ScreenUpdating = True
End With
End Sub

Saludos y muchas gracias nuevamente!

"AnGeLo" escribió en el mensaje
news:%

Hola Héctor y KL,

La macro de KL tambien me envia el mismo error y es en esta línea: :
.Shapes("Button 3").Delete

de repente es porque ese elemento lo borre, pero ahora como yo se como se
llama el nuevo elemento que puse? para cambiarle el nombre?

Saludos,

"Héctor Miguel" escribió en el mensaje
news:

hola, AnGeLo !

... la siguiente macro y me sale Error 9 en Tiempo de Ejecucion.

=> no indicas cual es la linea que 'manda' el error -?- pero...
=> significa que 'trato' de obtener un elemento que [ya] NO 'existe' en
la coleccion :-(
[probablemente] los 'shapes' [button 1] y/o [button 3]

comentas datos adicionales?
saludos,
hector.