Bom dia!!
Sua dúvida está vaga, tente detalhar melhor.
Considerando que os valores serão capturados das células e que são números.
Sub DuvidaVaga()
'XXXXXXAAAAMMDDNNNNNN
'XXXXXX - Registro da ANS
'AAAA -Ano
'MM -Mês
'DD -Dia
'NNNNNN - sequencial que identifique a ordem de entrada da reclamação na operadora.
Range("A2").Value = Date
Range("A1").Value = NumberFormat = "@"
Range("A1").Value = Range("A3").Value & Format(Range("A2"), "YYYYMMDD") & Range("A4").Value
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 20/05/2016 8:00 am