[SOLUCIONADO] LLenar con ceros espacios en blanco

[ambichol]

hola, que tal, es la primera vez que entro al foro, y espero puedan ayudarme...
tengo un problema con una macro en excel, lo que sucede es que la macro copia datos de otros archivos sin problemas, pero deja espacios en blanco, lo que deseo es hacer un cursor que me recorra tanto horizontalmente como verticalmente el rango donde se copiaron los datos y si encuentra espacios en blanco los rellene de ceros.

actualmente este es mi codigo, espero puedan ayudarme....

Código vb:

Sub Llenar_Ceros()
 
Dim conta1, cel1 As Integer
 
conta1 = 2
 
 
Sheets("Programas_Proyeccion").Activate
 
Do While conta1 < 2594
For cel1 = 5 To 35 'Permite que cambie "i"
 
If Sheets("Programas_Proyeccion").Cells(cel1 & conta1).Value = "" Then
Sheets("Programas_Proyeccion").Cells(cel1 & conta1).Value = 0
End If
conta1 = conta1 + 1
Next
 
Loop
 
End Sub
 

gracias

[a18327]

Lo puedes hacer con una linea de código

Código:

Sheets("Programas_Proyeccion").Range("A1:D10").SpecialCells(xlCellTypeBlanks) = 0

Cambia el rango "A1:D10" por el rango que quieras

[ambichol]

gracias por la respuesta, pero lo que me comentas funcionara para un conjunto de rangos, por ejemplo de la celda C3:C562 y CD3:CD562...?
espero me haya expresado bien, ya que supongo el codigo que me compartes solo recorrera en forma horizontal y vertical, y lo que quisiera es que recorra ambas al mismo tiempo....o tu codigo hace lo mismo...o estoy equivocado...?

[a18327]

Funciona para cualquier tipo de rango, por ejemplo también funciona para

Código:

Sheets("Programas_Proyeccion").Range("C3:C562,CD3:CD562").SpecialCells(xlCellTypeBlanks) = 0

[ambichol]

lo acabo de ejecutar pero como te comente solo me actualiza la el rango C3:C562, mas no los demas rangos....puede haber algun error...?
te comparto el codigo:

Código vb:

Sub Llenar_Ceros_2()
 
Sheets("Programas").Activate
Sheets("Programas").Range("D2:D2921,AD2:AD2921").SpecialCells(xlCellTypeBlanks) = 0
 
End Sub
 

[a18327]

Iniciado por ambichol

lo acabo de ejecutar pero como te comente solo me actualiza la el rango C3:C562, mas no los demas rangos....puede haber algun error...?
te comparto el codigo:

Código vb:

Sub Llenar_Ceros_2()
 
Sheets("Programas").Activate
Sheets("Programas").Range("D2:D2921,AD2:AD2921").SpecialCells(xlCellTypeBlanks) = 0
 
End Sub
 

¿Es el código real? dices que solo te actualiza el rango C3:C562, pero en el código no tienes puesto ese rango por lo que no debería actualizarse. El código que pusiste debe actualizar los rangos D2:D2921 y AD2:AD2921 de la hoja Programas.

[ambichol]

acabo de probarlo nuevamente....y efectivamente funciono....gracias...
te muestro el codigo que debio ser al principio:

Código vb:

Sub Llenar_Ceros_2()
 
Sheets("Programas").Activate
Sheets("Programas").Range("D2:AD2921").SpecialCells(xlCellTypeBlanks) = 0
 
End Sub