Macro para Recorrer un archivo con N numero de hojas de trabajo (es Variable) y borrar lineas
Reciba un cordial y respetuoso saludo
En donde en cada hoja debe BORRAR lineas desde B35 hasta encontrar el Texto "TITULO" (no está en la misma columna B) y este Texto se encuentra después de la linea 35
Debe borrar las lineas hasta una linea antes de "TITULO".
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub BorrarLineas()
'Por.Dante Amor
For Each h In Sheets
uf = h.UsedRange.Rows(h.UsedRange.Rows.Count).Row
uc = h.UsedRange.Columns(h.UsedRange.Columns.Count).Column
Set b = h.Range(h.Cells(35, uc), h.Cells(uf, uc)).Find("TITULO", lookat:=xlWhole)
If Not b Is Nothing Then
If b.Row > 35 Then
h.Rows(35 & ":" & b.Row - 1).Delete
End If
End If
Next
MsgBox "Fin"
End Sub':) ':)
