Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Reemplazar

31/03/2005 - 17:02 por NOEŽS | Informe spam
Ayuda Hacer una pregunta
Hola la tengo problema con este codigo no se si me
equivoque en algo pero no se ejecuta solo me aparece el
MsgBox ("Finalizó") pero no parece lo deseado, de antemano
gracias por su ayuda, el porblema por el cual no lo hago
con reemplazar es que son varias hojas de un libro y se
tarda demasiado.

Sub reemplazar()
Dim R As Range
On Error GoTo Fin
For h% = 1 To 100
For Each R In ActiveSheet.Range("A1:Z1000")
If IsNull(R) Then: R = 0
Next
ActiveSheet.Next.Select
Next h%
Fin: MsgBox ("Finalizó")
End Sub
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
31/03/2005 - 20:48 | Informe spam
Hola NOE´S,

Puedes probar este codigo modificadoÑ

Sub reemplazar()
Dim R As Range
On Error GoTo Fin
For h% = 1 To 100
Sheets(h%).Select
For Each R In Sheets(h%).Range("A1:Z1000")
If IsEmpty(R) Then R = 0
Next R
Next h%
Fin:
MsgBox "Finalizó"
End Sub

Pero si te he entendido bien que es lo que quieres hacer, prueba mejor el
siguiente sera veces mas rapido:

Sub reemplazar2()
Dim h As Worksheet
On Error Resume Next
For Each h In Worksheets
h.Range("A1:Z1000").SpecialCells(xlCellTypeBlanks) = 0
Next h
MsgBox "Finalizó"
End Sub

Saludos,
KL

Preguntas similares

 

Busqueda sugerida :