Macro para borrar Lineas desde B35 hasta una linea antes de encontrar un texto
Reciba un cordial y respetuoso
Macro para Borrar Lineas desde B35 hasta una linea antes de encontrar el texto "xxxxxxxxxx"
Este texto puede estar EN CUALQUIER celda de la columna B y se encuentra despues de B35
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub BorrarLineas()
'Por.Dante Amor
u = Range("B" & Rows.Count).End(xlUp).Row
Set b = Range("B36:B" & u).Find("xxxxxxxxxx", lookat:=xlWhole)
If Not b Is Nothing Then
If b.Row > 36 Then
Rows(36 & ":" & b.Row - 1).Delete
MsgBox "registros borrados"
End If
Else
MsgBox "No existe el texto"
End If
End Sub':) ':)
