Jump to content

Insertar ceros en campos vacios


Recommended Posts

Hola amigos.

a ver si alguien puede ayudarme con este asunto

tengo una matriz de datos en la q algunos de sus campos son nulos o vacios, en mi caso nulo = cero y por tanto kiero q inserte un cero en cada uno de esos campos.

tengo un codigo pero q en la segunda columna se para sin llegar a insertar los ceros hasta el ultimo registro...

alguien me puede ayudar???

os paso mi codigo...

Range("E1").Select

uf = Range("E65536").End(xlUp).Row

ActiveSheet.Range("E2:E" & uf).AutoFilter Field:=1, Criteria1:=""

Range("E2:E" & uf).Offset(, 0).SpecialCells(xlCellTypeVisible) = "0"

Range("E1").AutoFilter

Range("F1").Select

uf = Range("F65536").End(xlUp).Row

ActiveSheet.Range("F2:F" & uf).AutoFilter Field:=1, Criteria1:=""

Range("F2:F" & uf).Offset(, 0).SpecialCells(xlCellTypeVisible) = "0"

Range("F1").AutoFilter

Link to comment
Share on other sites

Hola de nuevo

Otra opción prescindiendo de los filtros podría ser

Sub Ceros()
ufE = Range("E65536").End(xlUp).Row
Range("E2:E" & ufE).SpecialCells(xlCellTypeBlanks) = "0"
ufF = Range("F65536").End(xlUp).Row
Range("F2:F" & ufF).SpecialCells(xlCellTypeBlanks) = "0"
End Sub[/CODE]

Y otra más, pero con cuidado si hay más columnas

[CODE]Sub Ceros()
Range("E2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeBlanks) = "0"
End Sub[/CODE]

Un saludo desde Vitoria

Link to comment
Share on other sites

Ok ioyama

lo he probado y el primer codigo para = q mi solucion

pero la segunda opcion la hace completa, pero se pera la macro al no detectar mas registros en los q poner cero. PERO LO HACE BIEN

asi q no se porq se peta pero gracias.

Saludos!!

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy