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

1 respuesta

Respuesta
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

':)
':)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas