Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

VBA Excel - Limpando cabeçalhos sem uso no Excel

Inline image 1

Desenvolvi esta solução a partir de várias soluções que poderão consultar depois.



6º exemplo:

Sub RemovePageHeaders()
    Application.ScreenUpdating = False
    Dim objRange As Range

    Set objRange = Cells.Find("HeaderText")

    While objRange <> ""
        objRange.Offset(1, 0).Rows(1).EntireRow.Delete
        objRange.Rows(1).EntireRow.Delete
        Set objRange = Cells.Find("HeaderText")
    Wend

    MsgBox ("Removido todos os cabeçalhos")
End Sub


Tags
Excel, Delete, clean, remove, header, Linha, Plan, Planilhas, Row,  rows, worksheet, lines, UDF


André Luiz Bernardes

A&A® - In Any Place.


eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine