Olá pessoal!
Tudo bem com vocês?
Então... preciso que uma label (ou textbox) do meu formulário apresente o valor da última célula preenchida quando ele abre.
Alguém pode dar essa forcinha?
Desde já, obrigado.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Label apresenta última célula preenchida [RESOLVIDO]
- costaribeiro
- Colaborador
- Mensagens: 96
- Registrado em: Ter Mar 04, 2014 10:10 am
- Localização: Pouso Alegre - MG
Label apresenta última célula preenchida [RESOLVIDO]
Editado pela última vez por costaribeiro em Ter Set 29, 2020 11:36 am, em um total de 1 vez.
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: Label apresenta última célula preenchida
Colega
Tente
Private Sub UserForm_Initialize()
Sheets("Planilha1").Select '-------------- Planilha de busca
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row 'Valor na Coluna A
x = Range("A" & i).Value
Me.Label1.Caption = x 'Label
Me.TextBox1.Text = x 'TextBox
End Sub
Atenciosamente
Tov Elen
Tente
Private Sub UserForm_Initialize()
Sheets("Planilha1").Select '-------------- Planilha de busca
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row 'Valor na Coluna A
x = Range("A" & i).Value
Me.Label1.Caption = x 'Label
Me.TextBox1.Text = x 'TextBox
End Sub
Atenciosamente
Tov Elen
- costaribeiro
- Colaborador
- Mensagens: 96
- Registrado em: Ter Mar 04, 2014 10:10 am
- Localização: Pouso Alegre - MG