Exibir o valor de uma etiqueta na planilha

Question

Como faz para exibir o valor de uma etiqueta (Label1.Caption) que esta na UseForm1.

Para a célula A1 da planilha1.

obrigado a você que está tentando.

Answer 1

Olá Zecapira,

Você precisa de um evento para atualizar a informação da Planilha, que ficam nos procedimentos a direita como nos exemplos abaixo:

Ao clicar:

Private Sub Label1_Click()
    Sheets("Plan1").Range("A1") = Label1.Caption
End Sub

--------------------------------------------------------------

Duplo click:

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Sheets("Plan1").Range("A1") = Label1.Caption
End Sub

---------------------------------------------------------------

Ou ao carregar o formulário entre outras opções de eventos:

Private Sub UserForm_Initialize()
    Sheets("Plan1").Range("A1") = Label1.Caption
End Sub

Espero que tenha ajudado.

Linkedin