Última célula preenchida

Question

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..

Answer 1

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

Answer 2

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

Answer 3

Bom dia, Miguelinho!

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

Answer 4

Bom dia, Moderador!

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

Abraço..