Corregir esta macro
Hola experto te cuento que tengo esta macro para elimina filas, pero sabes mi duda esta es que tengo una hoja que en la columna A tiene valores ceros, ¿lo qué necesito es que cuando encuentre un valor cero en la columna me borre toda la fila?
Sub BorrarFilasVacias()
Dim Rng As Range, Vacios As Range
Set Rng = ActiveSheet.Range("A1:A20000")
On Error Resume Next
Set Vacios = Rng.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Vacios Is Nothing Then
MsgBox "No se han encontrado filas vacias"
Else
If Vacios.Address <> Rng.Address Then
Vacios.EntireRow.Delete
Else
MsgBox "El rango " & Vacios.Address & _
" parece tener mas " & Chr(13) & _
"de 8000 celdas vacias no adyacentes."
End If
End If
End Sub
Gracias por todo.
Sub BorrarFilasVacias()
Dim Rng As Range, Vacios As Range
Set Rng = ActiveSheet.Range("A1:A20000")
On Error Resume Next
Set Vacios = Rng.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Vacios Is Nothing Then
MsgBox "No se han encontrado filas vacias"
Else
If Vacios.Address <> Rng.Address Then
Vacios.EntireRow.Delete
Else
MsgBox "El rango " & Vacios.Address & _
" parece tener mas " & Chr(13) & _
"de 8000 celdas vacias no adyacentes."
End If
End If
End Sub
Gracias por todo.
1 Respuesta
Respuesta de javigo
1
¿Quieres eliminar cuando encuentre un valor cero o cuando la celda está en blanco?
Si lo que necesito es cuando encuentre el valor cero en toda la columna
Disculpa el retraso.
Puedes probar esta macro:
Sub BorraCero()
For Each cell In Range("a1:a20")
If cell.Value = "0" Then
cell.EntireRow.Delete
End If
Next cell
End Sub
Si necesitas alguna aclaración no dudes en continuar la pregunta.
Puedes probar esta macro:
Sub BorraCero()
For Each cell In Range("a1:a20")
If cell.Value = "0" Then
cell.EntireRow.Delete
End If
Next cell
End Sub
Si necesitas alguna aclaración no dudes en continuar la pregunta.
La pregunta sigue activa. ¿Podrías finalizar?
