Cambiar Datos de las celdas
Hola, en una hoja tengo varias celdas con el valor 0, necesito crear una macro que limpie estos valores y los deje en blanco.
Muchas gracias por la ayuda
Muchas gracias por la ayuda
1 respuesta
Respuesta de javigo
1
Puedes probar esta macro:
Sub Quita_ceros()
Dim Celda As Range
For Each Celda In Range("A1:Z100")
If Celda.Value = 0 Then
Celda.Value = Empty
End If
Next Celda
End Sub
El rango ("A1:Z100") puedes cambiarlo según necesites.
Haz la prueba y me dices si te funciona.
Sub Quita_ceros()
Dim Celda As Range
For Each Celda In Range("A1:Z100")
If Celda.Value = 0 Then
Celda.Value = Empty
End If
Next Celda
End Sub
El rango ("A1:Z100") puedes cambiarlo según necesites.
Haz la prueba y me dices si te funciona.
