none
Exlcuir Linhas RRS feed

  • Pergunta

  • Boa tarde.

    Estou montando uma macro e me deparei com uma dúvida.

    Eu quero apagar todas as linhas abaixo da última linha que aparece número de requisição.

    Como devo escrever esta sequência.

    Obrigado

    sexta-feira, 6 de abril de 2012 16:59

Respostas

  • Ale,

    Segue um exemplo de macro, tenta alterar algumas coisas e ve se encaixa no que você quer:

        'Seleciona a primeira linha
        Range("A1").Select
        'Procura pelas "linhas" e seleciona
        Cells.Find(What:="------", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
        'Vai até o final das colunas, selecionando tudo
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        'vai até o final das linhas, selecionando tudo
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        'Limpa
        Selection.ClearContents

    Abraços!

    quinta-feira, 12 de abril de 2012 13:08

Todas as Respostas

  • "Eu quero apagar todas as linhas abaixo da última linha que aparece número de requisição."

    No seu exemplo, quais seriam essas linhas? Não entendi.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 9 de abril de 2012 15:29
    Moderador
  • Ale,

    Segue um exemplo de macro, tenta alterar algumas coisas e ve se encaixa no que você quer:

        'Seleciona a primeira linha
        Range("A1").Select
        'Procura pelas "linhas" e seleciona
        Cells.Find(What:="------", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
        'Vai até o final das colunas, selecionando tudo
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        'vai até o final das linhas, selecionando tudo
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        'Limpa
        Selection.ClearContents

    Abraços!

    quinta-feira, 12 de abril de 2012 13:08