VBA Excel: Sub procedimento para alterar legenda em um controle UserForm

0

Estou criando um formulário de usuário que mostra o valor (numérico) da última célula usada em uma coluna.

Eu estou apenas adivinhando como fazê-lo, mas não funciona, é isso que eu tenho:

Sub show()

UserForm1.show

'xTotal is the name of the label control and B4 is the column with a list of numbers:

UserForm1.xTotal.Caption = ThisWorkbook.Sheets("Sheet1").Range("b4").End(xlDown)

End Sub

Sei que isso é algo elementar, agradeceria sua ajuda. Obrigado.

microsoft-excel vba Ruben
fonte
Que resultado esse código fornece?
Mcalex
Ele mostra o formulário, mas o rótulo está em branco, nada nele. Ele deve mostrar o último número da coluna ...
Ruben

Respostas:

1

Você não pode definir uma legenda para um intervalo, que é o que seu código está fazendo (embora não seja sua intenção). Você deve definir a legenda para o valor do intervalo -

UserForm1.xTotal.Caption = ThisWorkbook.Sheets("Sheet1").Range("b4").End(xlDown).Value
Userform1.Show

Você também deseja definir a legenda antes de mostrar o formulário do usuário.

Raystafarian
fonte