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

Question

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

Estou apenas adivinhando como fazer isso, mas não funciona, foi o que consegui:

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

Eu sei que isso é elementar, eu gostaria de receber sua ajuda. Obrigado.

    

Answer 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 como 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 exibir o formulário do usuário.