Olá Boa Tarde gostaria de saber se tem como eu colocar um conteúdo de um " TextUserName.text " nessa mensagem aqui? segue o código abaixo:
Sub Benvindo_Usuário()
currenttime = Hour(Now())
If currenttime < 12 Then
g01 = "Bom dia"
Else
If currenttime <= 18 Then
g01 = "Boa Tarde"
Else
g01 = "Boa Noite"
End If
Lbl_Saudação = "Olá " & g01 & ", "
End Sub
O que voce chama de "TextUserName.text" seria um TextBox ? se for isso, então insira o codigo no evento Initialize como abaixo:
Private Sub UserForm_Initialize() currenttime = Hour(Now()) If currenttime < 12 Then g01 = "Bom dia" Else If currenttime <= 18 Then g01 = "Boa Tarde" Else g01 = "Boa Noite" End If Me.TextBox1.Text = "Olá " & g01 '& ", " End If End Sub
Click em
se a resposta foi util!
oLÁ EU NÃO SOUBE ME EXPLICAR
MAS É ASSSIM EU TENHO UM CAMPO CHAMANDO Lbl_USERNAME O QUE TENHO DENTRO DELE É UM NOME por Exemplo "PRATES"
GOSTARIA DE ACRECENTAR O NOME QUE ESTA DENTRO DESSA Lbl_USERNAME NO FINAL DA MSG: ( Me.TextBox1.Text = "Olá " & g01 '& ", " ) = Olá Bom Dia , Prates!
Entaõ seria assim:...
Sub Benvindo_Usuário() currenttime = Hour(Now()) If currenttime < 12 Then g01 = "Bom dia" Else If currenttime <= 18 Then g01 = "Boa Tarde" Else g01 = "Boa Noite" End If Lbl_Saudação = "Olá " & g01 & ", Prates" End If End Sub
Click em
se a resposta foi util!
então quase o problema que cada hora vai ter um nome diferente dentro dessa Lbl_USERNAME
teria que ser algo que buscasse o que esta dentro desta Lbl_USERNAME.
wenpra,
Qual seria a ref. desta label? O ideal seria vc. compartilhar seu arquivo ou talvez um modelo c/ alguns dados .
Click em
se a resposta foi util!
ELA ESTA DENTRO DESTE MESMO FORMULARIO MAS VAI PEGAR O DADO DE UM OUTRO FORMULARIO TODA VEZ QUE ABRIR.
SERIA ALGO ASSIM QUE QUERIA TENTAR FAZER:
Sub Benvindo_Usuário()
UserName = Lbl_USERNAME
currenttime = Hour(Now())
If currenttime < 12 Then
g01 = "Bom dia"
Else
If currenttime <= 18 Then
g01 = "Boa Tarde"
Else
g01 = "Boa Noite"
End If
Lbl_Saudação = "Olá " & g01 & ", " & UserName &
End If
End Sub
wenpra,
Qual seria a ref. desta label? O ideal seria vc. compartilhar seu arquivo ou talvez um modelo c/ alguns dados .
ELA ESTA DENTRO DESTE MESMO FORMULARIO MAS VAI PEGAR O DADO DE UM OUTRO FORMULARIO TODA VEZ QUE ABRIR.
SERIA ALGO ASSIM QUE QUERIA TENTAR FAZER:
Sub Benvindo_Usuário()
UserName = Lbl_USERNAME
currenttime = Hour(Now())
If currenttime < 12 Then
g01 = "Bom dia"
Else
If currenttime <= 18 Then
g01 = "Boa Tarde"
Else
g01 = "Boa Noite"
End If
Lbl_Saudação = "Olá " & g01 & ", " & UserName &
End If
End Sub
Wenpra, sem ver seu modelo fica complicado, vamos ficar sempre na suposição, e trocar um monte de post's.
pelo que entendi SUPONHO que o lbl_Username "pertence" a um outro formulário, e esse formulário não foi ainda carregado, ou estou errado.
Se não foi carregado o Label ainda não tem/recebeu o nome desejado.
Você pode utilizar nesse formulário o mesmo comando utilizado para preencher o lbl_Username.
(obs.: Evite mandar mensagens em letra maiúscula, pois em fóruns como o nosso isso é sinonimo de gritar)
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Wenpra, sem ver seu modelo fica complicado, vamos ficar sempre na suposição, e trocar um monte de post's.
pelo que entendi SUPONHO que o lbl_Username "pertence" a um outro formulário, e esse formulário não foi ainda carregado, ou estou errado.
Se não foi carregado o Label ainda não tem/recebeu o nome desejado.
Você pode utilizar nesse formulário o mesmo comando utilizado para preencher o lbl_Username.
(obs.: Evite mandar mensagens em letra maiúscula, pois em fóruns como o nosso isso é sinonimo de gritar)
Não seria assim essa lbl_Username na hora que iniciar o formulário já vai ter um conteúdo dentro dela gostaria de acrescentar no final dessa msg (Lbl_Saudação = "Olá " & g01 & ", " & UserName &)
Agora complicou. E vamos continuar no Achômetro, Voce disse anteriormente "...vai pegar o dado em outro formulário..."
Acho / Suponho que Lbl_Saudação esteja no formulário corrente e que Lbl_UserName esteja/pertença a outro formulário.
Voce deseja "pegar" o conteúdo dessa Lbl e adiciona-lo na Saudação de entrada; porem se é uma saudação de entrada, suponho que seja o primeiro formulário a executar, então o outro ainda não está carregado, consequentemente a Lbl não tem conteúdo.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel