Foros del Web - Ayuda con macro

Foros del Web (http://www.forosdelweb.com/)

- Ofimática (http://www.forosdelweb.com/f90/)

- - Ayuda con macro (http://www.forosdelweb.com/f90/ayuda-con-macro-412468/)

AprendizMexicano

26/07/2006 16:29

Ayuda con macro

Hola a todos

Solicita de su valiosa ayuda para corregir la siguiente macro

Sub macro1()
For Each sh In Worksheets
sh.Select
Cells.SpecialCells(xlCellTypeFormulas).Select
For Each xcell In Selection
paso = xcell.Value
xcell.Value = paso
Next xcell
Next sh
End Sub

Me marca error si encuentra una hoja que no tenga formulas

Como le haria para corregir ese error, ya que puede haber hojas sin formulas.

La idea es que recorra todo el libro y quite las formulas

Gracias por su valiosa ayuda

Saludos

3pies

27/07/2006 00:33

Añade esta línea la primera de todas:

Código:

On Error Resume Next

Tal que así...

Código:

Sub macro1()

On Error Resume Next

For Each sh In Worksheets

...

Salu2

AprendizMexicano

27/07/2006 08:14

Excelente respuesta, funciona muy bien

Gracias

Saludos

AprendizMexicano

27/07/2006 08:26

Pues una disculpa habia probado la macro con poquitos datos y se me funciono, pero ahorita que la corri se queda bloqueada ya no sigue en las siguientes hojas y el error me lo marca en
Next xcell ---- me lo marca en amarillo

Solicito su ayuda para corregir este error.

Gracias

Saludos

abrahamvj

27/07/2006 15:18

De cuanto es tu RAM??? Podria ser ese el problema.

Abraham

AprendizMexicano

27/07/2006 16:03

Es de 512

Pero al parecer se debe a que esa hoja donde se quedaba atorada la macro es por que estaba protegida.

La acabo de probar y si me funciono bien

Gracias por todo el apoyo que me han brindado

Saludos

La zona horaria es GMT -6. Ahora son las 08:56.