Borrar (Fórmulas incluidas) a partir de una condición
Buenos días!
Tengo una hoja donde me interesa borrar todo lo que aparezca desde que surja una palabra.
Es decir, si en la celda A26 aparece "FINAL" que dese la fila 27 se borre todo hasta la celda 5000.
¿Se puede hacer?
Muchas gracias!
Ana María
1 respuesta
Respuesta de Luis Mondelo
1
Esta es la macro para el ejemplo que mandas de la columna A
Sub ejemplo()
'por luismondelo
For Each celda In Range("a1:a" & Range("a65000").End(xlUp).Row)
If UCase(celda) = "FINAL" Then
celda.Offset(1, 0).Select
Exit For
End If
Next
Range(Cells(activecell.row, 1), Cells(5000, 1)).ClearContents
End Subrecuerda finalizar
