Este fórum está sendo desativado

[Nelisa]

Olá,

tenho um userform em que o campo CÓDIGO é preenchido automaticamente, utilizando o código abaixo, e funciona perfeitamente, sendo apresentado sequencialmente (1,2,3.......)

No entanto, eu preciso que o mesmo seja composto com o ano, ficando assim (0001/2017)

Alguém poderia me orientar ?
Agradeço antecipadamente


Nelisa

Código: Selecionar todos

Private Sub UserForm_Initialize()

Range("A1").Select
While ActiveCell <> ""
If ActiveCell <> "CODIGO" Then
TextBoxCODIGO.Text = ActiveCell.Offset(0, 0).Value + 1
Else
TextBoxCODIGO.Text = 1
End If
ActiveCell.Offset(1, 0).Activate
Wend
End Sub

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub UserForm_Initialize()
 Range("A1").Select
  While ActiveCell <> ""
   If ActiveCell <> "CODIGO" Then
    TextBoxCODIGO.Text = Format(ActiveCell.Value + 1, "0000") & "/" & Format(Date, "yyyy")
   Else
    TextBoxCODIGO.Text = Format(1, "0000") & "/" & Format(Date, "yyyy")
   End If
  ActiveCell.Offset(1, 0).Activate
  Wend
End Sub