Formatar valor da textbox ao gravar [RESOLVIDO]

[pedro_mexico]

Boas amigos,
alguem me consegue ajudar,
Tenho uma textbox em que coloco um numero, nem sempre é seguido, e queria que ele ao gravar, ficasse com o ano no inicio + "/",
Exemplo: textbox2 coloquei 176 e ele vai gravar na celula da planilha 2020/176.

Obrigado

[LaerteB]

Bom dia, @pedro_mexico

Copie e cole este código abaixo no botão "Salvar" de seu projeto:

Código: Selecionar todos

Private Sub CommandButton1_Click()

 Dim a As String
 
 a = Year(Date)
 
 If Sheets("Planilha1").Range("A1").Value = "" Then
    Sheets("Planilha1").Range("A1") = a & "/" & UserForm1.TextBox1
 End If

End Sub

Verifique e altere conforme o seu projeto....

Aguardando sua resposta e seu Feed Back ... se foi útil, coloque um smille ...

OBS: por gentileza não esqueça de responder se ficou de acordo com que queria,
pois com isso nos dá mais motivação para continuarmos ajudando...

LaerteB

[pedro_mexico]

Boa noite LaerteB,
Obrigajo, ajudou o codigo.