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!
Compartir en:
     

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!
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
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.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
fervabi22
Miembro Frecuente
Miembro Frecuente
 
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!??

....
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
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
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
fervabi22
Miembro Frecuente
Miembro Frecuente
 
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??
:|
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
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.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
fervabi22
Miembro Frecuente
Miembro Frecuente
 
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!
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
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
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
FernandoML
Miembro Frecuente
Miembro Frecuente
 
Registrado: 20 Abr 2011 18:48


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot], GR y 7 invitados