Eliminar filas
Hola, estoy terminando una hoja excel y me gustaría saber si se puede hacer una macro que me borre una fila entera (p.e. La 20) si las celdas A21, A22 y A23 son cero. Muchas gracias.
1 respuesta
Respuesta de Orlando Collarte
1
Si se puede te envío el código:
Sub borrar()
Dim operacion As Long
Dim fila As String
Range("A21").Select
While ActiveCell.Value <> Empty
If ActiveCell.Value = "Completa" Then
valor = ActiveCell.Address
fila = ActiveCell.Row
Rows(fila).Select
Selection.Delete
Range(valor).Select
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Trata de adaptarlo si necesitas ayuda no dudes en consultar
Suerte
Sub borrar()
Dim operacion As Long
Dim fila As String
Range("A21").Select
While ActiveCell.Value <> Empty
If ActiveCell.Value = "Completa" Then
valor = ActiveCell.Address
fila = ActiveCell.Row
Rows(fila).Select
Selection.Delete
Range(valor).Select
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Trata de adaptarlo si necesitas ayuda no dudes en consultar
Suerte
Muchísimas gracias, me funciona perfectamente. Ya tenía la hoja terminada, pero faltaba eso para marcar la diferencia estéticamente. Saludos
