A dúvida não está muito clara, mas, se entendi bem, você quer digitar um número, por exemplo 234, e a célula ser formatada automaticamente para 234 / 2016, tendo o ano atual.
Sendo assim, esse código de programação deve resolver.
Colei o código a seguir, mas também anexei a planilha.
Note que eu configurei para alterar a formatação apenas na coluna 5 (Coluna E). e somente a partir da segunda linha, considerando que a primeira linha terá um cabeçalho. Altere isso onde indiquei na programação.
Private Sub Worksheet_Change(ByVal Target As Range)
Const C As Long = 5 'Insira o número da coluna que vai ter a formatação personalizada
Const L As Long = 2 'Insira o número da linha a partir da qual vai ter a formatação personalizada
Dim Celula As Range
Dim Numero As Long
On Error Resume Next
With Application
.ScreenUpdating = False
.EnableEvents = False
End With 'Application
Set Celula = Target
If IsEmpty(Celula) Then
'Não faz nada
Else
If Celula.Column = C And Celula.Row >= L Then
Numero = Celula.Value
With Celula
.NumberFormat = "@"
.Value = Numero & " / " & Year(Date)
End With 'Celula
End If
End If
With Application
.ScreenUpdating = True
.EnableEvents = True
End With 'Application
End Sub
Abs.
Espero ter ajudado.
Todos que ajudaram ou tentaram ajudar estão com boa vontade fazendo isso de graça.
Por isso, seja educado, ajude-os a te ajudar, e sempre clique na mãozinha para agradecer.
Postado : 23/04/2016 8:03 pm