macro que me identifique celdas vacias ?

¡ Hola ! hola amigos todos los días tengo que ordenar en un libro
de excel, unos registro que me mandan los cuales tengo que ordenar y
desechar
aquellas columnas que no me sirven, hice una macro que me hace todo eso,
también que en una columna filtre donde estén vacías las
celdas de esa columna, igual que en otras 3 columnas, el problema es que
cuando
cree la macro solo había 2 celdas vacías y el archivo que me manda
suele variar y hoy había mas de 2 celdas vacías, y este es el
código donde selecciona las celdas y las llena con " 0 " asi
tenga registro,
ActiveSheet.Range("$A$1:$L$5000").AutoFilter Field:=9,
Criteria1:="="
Range("I705").Select
ActiveCell.FormulaR1C1 = "0"
Range("I846").Select
ActiveCell.FormulaR1C1 = "0"
Range("I705").Select
Selection.AutoFilter
Range("G1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$L$5000").AutoFilter Field:=7,
Criteria1:="="
Range("G23").Select
ActiveCell.FormulaR1C1 = "0"
Range("G201").Select
ActiveCell.FormulaR1C1 = "0"
Range("H201").Select
ActiveCell.FormulaR1C1 = "0"
Range("H23").Select
ActiveCell.FormulaR1C1 = "0"
Range("F23").Select
ActiveCell.FormulaR1C1 = "0"
Range("F201").Select
ActiveCell.FormulaR1C1 = "0"
Range("G201").Select
Selection.AutoFilter
Range("A2").Select

y no todos los días esas celdas están vacías, como puedo
hacer para que esa macro llene esas celdas que están vacías sin
que altere el archivo osea que si tiene registro no aga nada que mas bien
busque
las que están vacías y las llene con cero " 0 "

Hola noob-aprendiendo:
Si tu rango a "inspecionar" es el del código que mandas...
pon un botón en tu hoja con este código

Private Sub CommandButton1_Click()
For Each cell In Range("A1:L5000")
If cell.Value = Empty Then
cell.Value = 0
End If
Next
End Sub


Saludos.-



"noob-aprendiendo"
escribió en el
mensaje de noticias news:

¡ Hola ! hola amigos todos los días tengo que ordenar en un libro
de excel, unos registro que me mandan los cuales tengo que ordenar y
desechar
aquellas columnas que no me sirven, hice una macro que me hace todo eso,
también que en una columna filtre donde estén vacías las
celdas de esa columna, igual que en otras 3 columnas, el problema es que
cuando
cree la macro solo había 2 celdas vacías y el archivo que me
manda
suele variar y hoy había mas de 2 celdas vacías, y este es el
código donde selecciona las celdas y las llena con " 0 " asi
tenga registro,
ActiveSheet.Range("$A$1:$L$5000").AutoFilter Field:=9,
Criteria1:="="
Range("I705").Select
ActiveCell.FormulaR1C1 = "0"
Range("I846").Select
ActiveCell.FormulaR1C1 = "0"
Range("I705").Select
Selection.AutoFilter
Range("G1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$L$5000").AutoFilter Field:=7,
Criteria1:="="
Range("G23").Select
ActiveCell.FormulaR1C1 = "0"
Range("G201").Select
ActiveCell.FormulaR1C1 = "0"
Range("H201").Select
ActiveCell.FormulaR1C1 = "0"
Range("H23").Select
ActiveCell.FormulaR1C1 = "0"
Range("F23").Select
ActiveCell.FormulaR1C1 = "0"
Range("F201").Select
ActiveCell.FormulaR1C1 = "0"
Range("G201").Select
Selection.AutoFilter
Range("A2").Select

y no todos los días esas celdas están vacías, como puedo
hacer para que esa macro llene esas celdas que están vacías sin
que altere el archivo osea que si tiene registro no aga nada que mas bien
busque
las que están vacías y las llene con cero " 0 "