Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/04/2013, 15:06
ambichol
 
Fecha de Ingreso: febrero-2013
Ubicación: Lima
Mensajes: 301
Antigüedad: 12 años, 1 mes
Puntos: 5
Pregunta LLenar con ceros espacios en blanco

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:
Ver original
  1. Sub Llenar_Ceros()
  2.  
  3. Dim conta1, cel1 As Integer
  4.  
  5. conta1 = 2
  6.  
  7.  
  8. Sheets("Programas_Proyeccion").Activate
  9.  
  10. Do While conta1 < 2594
  11. For cel1 = 5 To 35 'Permite que cambie "i"
  12.  
  13. If Sheets("Programas_Proyeccion").Cells(cel1 & conta1).Value = "" Then
  14. Sheets("Programas_Proyeccion").Cells(cel1 & conta1).Value = 0
  15. End If
  16. conta1 = conta1 + 1
  17. Next
  18.  
  19. Loop
  20.  
  21. End Sub

gracias