Usuário com melhor resposta
Última célula preenchida

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..
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
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator segunda-feira, 16 de fevereiro de 2015 20:17
-
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
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator segunda-feira, 16 de fevereiro de 2015 20:17
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
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator segunda-feira, 16 de fevereiro de 2015 20:17
-
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
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator segunda-feira, 16 de fevereiro de 2015 20:17
-
-