none
Última célula preenchida RRS feed

  • Pergunta

  • Bom dia,

    Tenho uma planilha que realizado os cadastro para uma outra planilha, na planilha de cadastro tenho um botão que deveria selecionar o ultimo cadastro preenchido, para que o usuário possa rapidamente visualizar os últimos registros.

    Eu até tinha uma ação no Botão Visualizar, mas quando inclui uma função que ao salvar a planilha as células preenchidas ficam protegidas, então minha macro do botão visualizar Cadastro não funcionou mais, ocorre um erro.

    Grato pela sua atenção.

    Aguardo..

    terça-feira, 10 de fevereiro de 2015 11:55

Respostas

  • Sub UltimaLinha()
    'Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(0, 0).Select
    'Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(0).Select
    'Cells(ActiveSheet.UsedRange.Rows.Count, 1).Select
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
    End Sub

    quarta-feira, 11 de fevereiro de 2015 00:21
  • Prefiro utilizar o método Application.GoTo ao invés de usar Select/Activate.

    Também: é importante qualificar o intervalo a selecionar, uma vez que:

    Application.GoTo Range("A1")

    Ativa a célula A1 da planilha ativa. É melhor utilizar, por exemplo:

    Application.GoTo ThisWorkbook.Worksheets("Plan1").Range("A1")

    Desta forma, você especifica a pasta de trabalho e a planilha corretamente.


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

    quarta-feira, 11 de fevereiro de 2015 19:01
    Moderador

Todas as Respostas

  • Sub UltimaLinha()
    'Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(0, 0).Select
    'Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(0).Select
    'Cells(ActiveSheet.UsedRange.Rows.Count, 1).Select
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
    End Sub

    quarta-feira, 11 de fevereiro de 2015 00:21
  • Prefiro utilizar o método Application.GoTo ao invés de usar Select/Activate.

    Também: é importante qualificar o intervalo a selecionar, uma vez que:

    Application.GoTo Range("A1")

    Ativa a célula A1 da planilha ativa. É melhor utilizar, por exemplo:

    Application.GoTo ThisWorkbook.Worksheets("Plan1").Range("A1")

    Desta forma, você especifica a pasta de trabalho e a planilha corretamente.


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

    quarta-feira, 11 de fevereiro de 2015 19:01
    Moderador
  • Bom dia, Miguelinho!

    Show de bola...Grato pela atenção.

    segunda-feira, 16 de fevereiro de 2015 12:59
  • Bom dia, Moderador!

    Grato pela sua atenção..Também ficou bem funcional...

    Abraço..

    segunda-feira, 16 de fevereiro de 2015 13:00