Borrar todos los datos numéricos
Necesito una macro que al ejecutarla borre todos los datos numéricos de las columnas B hasta la H
1 respuesta
Respuesta de Elsa Matilde
2
La siguiente macro te borra todas las celdas numéricas hasta la última ocupada en la hoja activa.
Entrá al Editor, insertá un módulo y allí copiá el siguiente código:
Sub borraCeldasNumericas()
'x Elsamatilde
Dim ultiFila As Long
Dim cd as Range
'se establece cuál es la última fila ocupada en la hoja
ultiFila = Range(ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Address).Row
'se recorren las col B:H hasta la última fila ocupada
For Each cd In Range("B1:H" & ultiFila)
'si la celda contiene un valor numérico se borra su contenido
If IsNumeric(cd) Then cd.Value = ""
Next cd
End Sub
Olvide mencionar que tengonfurmulas que suman los resultados y necesito que esas no se borren. Existe esa posibilidad
Si, es posible. Reemplazá el bucle For Each por este otro:
For Each cd In Range("B1:L" & ultiFila)
'si la celda contiene un valor numérico y NO es fórmula, se borra su contenido
If IsNumeric(cd) And Not cd.HasFormula Then cd.Value = ""
Next cdSdos. Si el tema queda resuelto no olvides marcar una valoración para darlo por cerrado.
Elsa
¡Gracias! Era lo que necesitaba. Lo que si tarda bastante en hacerlo
Fíjate que en el último bucle, dejé mi rango como "B1:L" & ultifila. En tu rango original era solo hasta col H.
Sdos!
