Página 1 de 1

LABEL FIXAR VALOR

Enviado: Seg Fev 11, 2019 1:51 pm
por willianrc
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

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

Re: LABEL FIXAR VALOR

Enviado: Ter Fev 12, 2019 2:53 pm
por LaerteB
Boa tarde, willianrc

Veja a solução que dei no outro Fórum (que tu abriste com o mesmo assunto), segue abaixo:

"Não vi o seu arquivo, mas se for "somente" para fechar o formulário que contenha a Label e que os dados
permaneçam quando voltar a abri-lo, use este exemplo: "UserForm1.Hide"; desta forma o formulário ficará
oculto e todos os dados contidos em textbox ou nessa Label ficarão "intactos".. quando retornar ao formulário
os seus dados estarão lá.. :)

Espero que isto o ajude ;)

Veja as regras sobre o Título ou conteúdo dos Textos em "Caixa Alta". "

Dica: Você criou um Tópico com o mesmo assunto em outro Fórum.. quando lançar a mesma dúvida, você
poderá informar com os Links deles para que os integrantes deste(s) Fórum(ns) que tenham perguntas
semelhantes possam acompanhar ...
(e aqueles que querem ajudar possam verificar se já foi solucionado, para não "amarrá-los" depois que
foi resolvido), fazendo isso em todos os Fóruns que tenha aberto; se tiver a(s) solução(ões) em algum
deles coloque o link desta solução nos outros :)...

LaerteB :)