A dúvida é ;

Trocar texto na célular , Excel?

Eu quero colocar um texto numa célula do excel, tipo assim: cc .. E o excel automaticamente trocar esse "cc" por Conclusão.
Como faço?

_________________________________________________________________________________________

Vejam o resultado obtido....

_________________________________________________________________________________________

Pois bem vamos lá eu fiz uma espécie de banco de dados onde tenho as letras que vou digitar e o que ela vai representar... fiz na plan2...

Agora na coluna A da Plan1 eu vou digitar a abreviação e vai retornar o palavra inteira...

kkkk mais antes eu vou criar  a macro....

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim colunaa As Range

    Set colunaa = Range("a1:a50")

    Dim linha As Integer

    linha = 1

    Dim linplan1 As Integer

    linplan1 = ActiveCell.Row - 1

    If linplan1 = 0 Then

    linplan1 = 1

    Else

    End If

    If Not Application.Intersect(colunaa, Range(Target.Address)) _

           Is Nothing Then

    Do Until Plan2.Range("a" & linha).Value = ""

    If Plan2.Range("a" & linha).Value = Plan1.Range("a" & linplan1).Value Then

    Plan1.Range("a" & linplan1).Value = Plan2.Range("b" & linha).Value

    Else

    linha = linha + 1

    End If

    Loop

    End If

End Sub

deve ser posta dentro da plan1...

pronto agora nas linhas 1 até 50 na coluna "A" o que você digitar de abreviação (desde que tenha pré cadastrado na plan2) será convertido para a palavra inteira...

Espero que tenha gostado...

deixe comentário com dúvidas, sugestões ou criticas...

At; Edivan Cabral...