URGENTE!!! ERROR!!

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

URGENTE!!! ERROR!!

Notapor celinaresb » 27 Dic 2011 14:24

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!
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 72
Registrado: 12 Jul 2011 12:06
Ubicación: Madrid, España

Re: URGENTE!!! ERROR!!

Notapor fervabi22 » 27 Dic 2011 14:32

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.
Avatar de Usuario
fervabi22
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 217
Registrado: 11 Jun 2010 02:02
Ubicación: PERU - AREQUIPA

Re: URGENTE!!! ERROR!!

Notapor celinaresb » 27 Dic 2011 14:42

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!??

....
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 72
Registrado: 12 Jul 2011 12:06
Ubicación: Madrid, España

Re: URGENTE!!! ERROR!!

Notapor fervabi22 » 27 Dic 2011 14:48

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
Avatar de Usuario
fervabi22
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 217
Registrado: 11 Jun 2010 02:02
Ubicación: PERU - AREQUIPA

Re: URGENTE!!! ERROR!!

Notapor celinaresb » 28 Dic 2011 09:34

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??
:|
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 72
Registrado: 12 Jul 2011 12:06
Ubicación: Madrid, España

Re: URGENTE!!! ERROR!!

Notapor fervabi22 » 28 Dic 2011 11:09

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.
Avatar de Usuario
fervabi22
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 217
Registrado: 11 Jun 2010 02:02
Ubicación: PERU - AREQUIPA

Re: URGENTE!!! ERROR!!

Notapor celinaresb » 28 Dic 2011 13:27

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!
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 72
Registrado: 12 Jul 2011 12:06
Ubicación: Madrid, España

Re: URGENTE!!! ERROR!!

Notapor FernandoML » 31 Dic 2011 12:31

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
FernandoML
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 221
Registrado: 20 Abr 2011 18:48


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Yahoo [Bot] y 3 invitados