Foro Excel

Q tal Expertos!!

Con urgencia necesito algo de ayuda!

Sucede que tengo una serie de macros que he venido ejecutando sin ningun problema y era un proceso que funcionaba a la perfeccion! pero hoy... sorpresa! al llegar a la siguente macro:

Código: Seleccionar todo

Sub SaveZ()
ruta = ThisWorkbook.Path
nbre = ActiveSheet.Name

ActiveSheet.Copy   ' Justo aca se presenta el ERROR!!!
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
On Error Resume Next
With wb
.SaveAs ruta & "\DATA\" & nbre & ".xlsx"
.Close True
End With
Set wb = Nothing
ActiveSheet.Delete
MsgBox "FINALIZADO"
End Sub


La cual solo debe grabar la hoja activa en una ubicacion determinada y ya esta!

PERO!!! hoy justo me muestra este error y me bloquea todo el excel:

Se ha producido el error '-2147417848 (80010108)' en tiempo de ejecucion:
Error en el metodo 'Copy' de objeto'_Worksheet'

Alguien que pueda colaborarme porfa!!!

Saludos!

Hola celinaresb

He probado el código en un archivo de excel en Blanco y me a funcionado correctamente, se crea una nueva hoja y me pregunta si quiero guardar y el mensaje finalizado.

¿Cual seria tu Problema para ayudarte?

Saludos de Fernando.

Hola Fervabi, gracias por contestar tan pronto!

La verdad me estoy preguntando lo mismo por que tengo varias hojas en el archivo y de hecho estoy trabajando de forma modular para poder aislar funciones y que no tengan problema entre ellas, ademas que ya habia trabajado una semana con el archivo y todo iba genial! pero hoy me salio este error y no logro identificar el por que!??

....

Hola Celinaresb

Si adjuntas tu archivo con el cual estas trabajando tendrás mas probabilidades de que te ayudemos aquí en el foro.

Saludos de Fernando

Hola Fernando,

Muchisimas gracias por quererme colaborar! aunq me temo q no puedo compartir el archivo por q contiene informacion confidencial de la empresa y de hacerlo violaria la LOPD...

La verdad este error me tiene LOCO! no tengo idea del por que puede generarse!
He ejecutado paso a paso cada macro y siempre llega al mismo punto... pero no entiendo por que pues como mencione... ya tenia mas de una semana trabajando perfecto...

alguna idea o alguien que haya pasado por lo mismo o similar??

Hola celinaresb
Pues al parecer el codigo que adjuntas mas arriba esta Bien, porque no encuentro problemas, el problema surge el el Copy ActiveSheet que es la hoja a activa. quizas el error sea de tu pc Probaste tu archivo en otra Pc distinta a la tuya, y que versi÷on de office Usas. Indagando en tu problema encontre una posible soluci÷on a a tu problema te dejo el Link.

http://www.articledashboard.com/Article ... 08/2232059

Saludos y Suerte.

Hola Fernando!

Gracias por el aporte! he encontrado muchisima informacion! creo q al minuto de tu post, lo vi y empece a mirar las posibles soluciones! ya he descargado un programa q limpia el registro del ordenador y libera espacio del DD! y he aplicado varrias opciones que suguieren varios foros! pero aun no funcionan en su totalidad!

y mi archivo va a pedazos....

Q agobio! lo que si esta claro es q es el comando

activesheet.copy

pero como te das cuenta si se aplica en otro documento nuevo menos pesado o con menos informacion este va bien! pero justo para el mio no!

nuevamente gracias por tu ayuda!

Hola celinaresb:

Yo tambien he hechado un vistazo a tu código y no le encuentro nada raro.
quizas modificaría dos lineas:

Tu código sería este.

Sub SaveZ()
ruta = ThisWorkbook.Path
nbre = ActiveSheet.Name

ActiveSheet.Copy ' Justo aca se presenta el ERROR!!!
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
On Error Resume Next
With wb
.SaveAs ruta & "\DATA\" & nbre & ".xlsx"
.Close True
End With
Set wb = Nothing
ActiveSheet.Delete
MsgBox "FINALIZADO"
End Sub

Sugerencia:

Sub SaveZ()
ruta = ThisWorkbook.Path
nbre = ActiveSheet.Name

On Error Resume Next

ActiveSheet.Copy ' Justo aca se presenta el ERROR!!!
Application.DisplayAlerts = False
with ActiveWorkbook
.SaveAs(ruta & "\DATA\" & nbre & ".xlsx")
.close true
end with
ActiveSheet.Delete
Application.DisplayAlerts = true
MsgBox "FINALIZADO"
End Sub

Prueba y nos comentas