Olá Bravoc, a solução do Patropi atende ao que você está solicitando, porém eu tenho uma observação para te fazer, na verdade um cuidado que você deve tomar.
Dependendo do tipo de trabalho e de relacionamentos que esta sua tabela terá com outras tabelas, você poderá ter problemas, pois ao trabalhar com a formatação personalizada, você está apenas criando uma máscara na célula para o valor que foi associada a ela, ou seja, o valor da célula e a máscara de saída são diferentes. Isso poderá impactar, por exemplo, se você tiver outras tabelas onde o o valor da célula esteja realmente com o código, você não vai conseguir relacionar elas com as funções CONT.SE, PROCV, ÍNDICE, SOMASES, Etc.
Então use com cuidado a formatação personalizada. Tenha certeza que este código não vai ser relacionado com outras tabelas.
Uma solução mais avançada seria incluir o código com via VBA com o evento CHANGE da planilha, usando a função intersect.
Um modelo de código poderia ser:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo fim
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
If Target.Value <> "" Then
Target.Value = "2015.021." & Target.Value
End If
End If
fim:
Application.EnableEvents = True
End Sub
Com o código acima associado ao módulo planilha, tudo que você inserir em A2:A10 vai ser precedido da expressão 2015.021. É uma solução mais avançada para quem está familiarizado com VBA.
Abraços!
Postado : 21/08/2015 12:06 pm