Foros del web, para los que viven de bits

AprendizMexicano · 26-jul-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 · 27-jul-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-jul-2006, 08:14

Excelente respuesta, funciona muy bien

Gracias

Saludos

AprendizMexicano · 27-jul-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-jul-2006, 15:18

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

Abraham

AprendizMexicano · 27-jul-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

26-jul-2006, 16:29	#1 (permalink)
AprendizMexicano Fecha de Ingreso: julio-2006 Mensajes: 19	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

27-jul-2006, 00:33	#2 (permalink)
3pies Colaborador Fecha de Ingreso: diciembre-2003 Ubicación: Desde una destilería Mensajes: 1.858	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 __________________ Recetas de cocina fácil, sencilla, sana y económica Trucos de cocina

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

27-jul-2006, 08:14	#3 (permalink)
AprendizMexicano Fecha de Ingreso: julio-2006 Mensajes: 19	Excelente respuesta, funciona muy bien Gracias Saludos

27-jul-2006, 08:26	#4 (permalink)
AprendizMexicano Fecha de Ingreso: julio-2006 Mensajes: 19	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

27-jul-2006, 15:18	#5 (permalink)
abrahamvj Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru Mensajes: 506	De cuanto es tu RAM??? Podria ser ese el problema. Abraham

27-jul-2006, 16:03	#6 (permalink)
AprendizMexicano Fecha de Ingreso: julio-2006 Mensajes: 19	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