LABEL FIXAR VALOR
Enviado: Seg Fev 11, 2019 1:51 pm
Ola,
Alguem sabe como deixar o valor na label?, mesmo quando fecha e abre o formulario o valor fique la?
Detalhe: Nao pode usar celulas
Alguem sabe como deixar o valor na label?, mesmo quando fecha e abre o formulario o valor fique la?
Detalhe: Nao pode usar celulas
Código: Selecionar todos
Private Sub CommandButton1_Click()
Dim NewLabel As Object
Dim myValue As Variant
myValue = InputBox("Digite um valor")
Set NewLabel = Me.Controls.Add("Forms.Label.1")
With NewLabel
.Tag = myValue 'Usar no lugar de "Name"
.Caption = .Tag 'Name inicia do Label2 pois existe o Label1 no formulário
.Top = 50
.Left = 50
End With
ThisWorkbook.Save
End Sub