Ayuda con macro

AprendizMexicano · #1 (**permalink**) 26/07/2006, 16:29

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 · #2 (**permalink**) 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 · #3 (**permalink**) 27/07/2006, 08:14

Excelente respuesta, funciona muy bien

Gracias

Saludos

AprendizMexicano · #4 (**permalink**) 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 · #5 (**permalink**) 27/07/2006, 15:18

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

Abraham

AprendizMexicano · #6 (**permalink**) 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