E aeeee cara beleza??? ;) Bom....esse foi o jeito que eu achei mais facil. para escrever um numero por extenso....acho que não existe uma formula no excel para isso, então fiz esse código no vba do excel: Vá no menu "Ferramentas/macro/Editor do Visual Basic". No lado esquedo, escolha a folha em que quer implementar esse código e cole-o. Fiz somente até o 50, para você ter uma ideia, mas claro que você quer trabalhar com numeros maiores, mas ai é só copiar o codigo e apenas alterar o valores. lembrando este código foi implementado na "folha1", caso a sua folha esteja com outro nome tem que altera-lo... Depois me diga se conseguiu.... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Worksheets("folha1").Range("A1").Value < 20 Then menor_que_dez Else: maior_que_dez End If End Sub Function menor_que_dez() If Worksheets("folha1").Range("A1").Value = 1 Then Worksheets("folha1").Range("b1").Value = "UM" ElseIf Worksheets("folha1").Range("A1").Value = 2 Then Worksheets("folha1").Range("b1").Value = "Dois" ElseIf Worksheets("folha1").Range("A1").Value = 3 Then Worksheets("folha1").Range("b1").Value = "Três" ElseIf Worksheets("folha1").Range("A1").Value = 4 Then Worksheets("folha1").Range("b1").Value = "Quatro" ElseIf Worksheets("folha1").Range("A1").Value = 5 Then Worksheets("folha1").Range("b1").Value = "Cinco" ElseIf Worksheets("folha1").Range("A1").Value = 6 Then Worksheets("folha1").Range("b1").Value = "Seis" ElseIf Worksheets("folha1").Range("A1").Value = 7 Then Worksheets("folha1").Range("b1").Value = "Sete" ElseIf Worksheets("folha1").Range("A1").Value = 8 Then Worksheets("folha1").Range("b1").Value = "Oito" ElseIf Worksheets("folha1").Range("A1").Value = 9 Then Worksheets("folha1").Range("b1").Value = "Nove" ElseIf Worksheets("folha1").Range("A1").Value = 10 Then Worksheets("folha1").Range("b1").Value = "Dez" ElseIf Worksheets("folha1").Range("A1").Value = 11 Then Worksheets("folha1").Range("b1").Value = "Onze" ElseIf Worksheets("folha1").Range("A1").Value = 12 Then Worksheets("folha1").Range("b1").Value = "Doze" ElseIf Worksheets("folha1").Range("A1").Value = 13 Then Worksheets("folha1").Range("b1").Value = "Treze" ElseIf Worksheets("folha1").Range("A1").Value = 14 Then Worksheets("folha1").Range("b1").Value = "Quatorze" ElseIf Worksheets("folha1").Range("A1").Value = 15 Then Worksheets("folha1").Range("b1").Value = "Quinze" ElseIf Worksheets("folha1").Range("A1").Value = 16 Then Worksheets("folha1").Range("b1").Value = "Dezesseis" ElseIf Worksheets("folha1").Range("A1").Value = 17 Then Worksheets("folha1").Range("b1").Value = "Dezessete" ElseIf Worksheets("folha1").Range("A1").Value = 18 Then Worksheets("folha1").Range("b1").Value = "Dezoito" ElseIf Worksheets("folha1").Range("A1").Value = 19 Then Worksheets("folha1").Range("b1").Value = "Dezenove" End If End Function Function trunc(Number As Double, DecPlaces As Integer) As Double trunc = Fix(Number * (10 ^ DecPlaces)) / (10 ^ DecPlaces) End Function Function maior_que_dez() If trunc(Worksheets("folha1").Range("A1").Value, -1) = 20 Then Text = "Vinte" ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 30 Then Text = "Trinta" ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 40 Then Text = "Quarenta" ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 50 Then Text = "Cinquenta" End If If Worksheets("folha1").Range("A1").Value > trunc(Worksheets("folha1").Range("A1").Value, -1) Then num Worksheets("folha1").Range("b1").Value = Text & " e " & num Else: Worksheets("folha1").Range("b1").Value = Text End If End Function Function num() If Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 1 Then num = "UM" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 2 Then num = "Dois" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 3 Then num = "Três" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 4 Then num = "Quatro" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 5 Then num = "Cinco" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 6 Then num = "Seis" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 7 Then num = "Sete" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 8 Then num = "Oito" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 9 Then num = "Nove" End If End Function