none
Macro ultima linha RRS feed

  • Pergunta

  • Ola, boa noite

    Como faço para selecionar 20 linhas abaixo da ultima linha da coluna A,  entre as colunas (A:M)

    Cells(ActiveSheet.UsedRange.Rows.Count, 1).Select

    O objetivo é que a macro encontre a ultima célula preenchida da coluna 'A' e então seleciona (select) mais 20 linhas abaixo para outro procedimento.

    Obrigado

    sexta-feira, 31 de janeiro de 2014 23:06

Respostas

  • Boa noite Miguelinho.

    Para o que deseja, basta usar algo do tipo:

    Lini = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Range(Cells(Lini, 1), Cells(Lini + 19, 13)).Select

    Ok?


    Filipe Magno

    • Marcado como Resposta miguelinho70 terça-feira, 4 de fevereiro de 2014 01:24
    segunda-feira, 3 de fevereiro de 2014 01:07

Todas as Respostas

  • Boa noite Miguelinho.

    Para o que deseja, basta usar algo do tipo:

    Lini = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Range(Cells(Lini, 1), Cells(Lini + 19, 13)).Select

    Ok?


    Filipe Magno

    • Marcado como Resposta miguelinho70 terça-feira, 4 de fevereiro de 2014 01:24
    segunda-feira, 3 de fevereiro de 2014 01:07
  • Certíssimo.

    Obrigado Felipe Magno, por você transferir seus conhecimentos.

    segunda-feira, 3 de fevereiro de 2014 01:47
  • Uma alternativa, utilizando a propriedade Resize:

    lngRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(lngRow, "A").Resize(20, 13).Select


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

    terça-feira, 4 de fevereiro de 2014 00:39
    Moderador