Bom dia!!
Regina, estou indo trabalhar agora e não vai dar tempo de olhar mas, poste seu arquivo compactado!!!

Tenho certeza que antes de eu chegar para olhar o pessoal já deverá ter te ajudado!!

Att

se tiver como posta a planilha ai pra darmos uma olhada nela.

Aí está a planilha. Reparem que eu já coloquei dois itens e a planilha só somou o que está com o número inteiro (23,00). O com centavos ele não somou, mas se desabilitar as macros, ela soma normal.

Obrigada a todos.

A planilha está protegida mas sem senha.

Boa tarde!!

Regina creio que, o seu problema está nesta rotina!

Tenho que voltar para o trabalho eu estou no horário de almoço, agora de uma olhada e faça as alteraçãoes

Private Sub Worksheet_Change(ByVal Target As Range)



If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub



    On Error Resume Next

    If Not Intersect(Target, Range("$C$9;$C$10")) Is Nothing Then

        Application.EnableEvents = False

        Target = UCase(Target)

        Application.EnableEvents = True

    End If

    On Error GoTo 0



End Sub

Boa tarde!!

Baixe o arquivo e faça os teste...

http://www.sendspace.com/file/0gbjls

Tentando Contribuir,
A soma não está sendo feita por que o valor entrado com virgula o excel interpreta como Texto, insira o valor com ponto (1.53) e verá que a soma é efetuada.

A proposta do Alexandre anterando a formatação sanou o problema, porem se não quiser alterar a formatação
Utilize a função texto para colunas (Dados -->texto para colunas)
Selecione o intervalo G14:G... va em dados clique em texto para coluna e em seguida concluir, deve estar com a soma ok agora

Obrigada ao Alexandre e ao Reinaldo. Vou tentar e retorno mais tarde.

Reinaldo, a sua proposta só faz dar certo na hora, depois ele volta com o problema, muito obrigada pela tentativa. De qualquer forma aprendi algo que pode me ajudar em outra oportunidade.
Alexandre, copiei e colei o código em um módulo, mas na hora de habilitar a macro, ela não aparece na relação. Alguma dica?

Bom dia!!
Regina Baixe o anexo no link que eu postei!!

Outra coisa quando se trata de Private Sub Worksheet_Change(ByVal Target As Range), o mesmo deve ser posto dentro planilha referente, isso dentro do Editor VBA.

Quando postei o código, o motivo foi para dizer uma possível causa do problema.
Como na minha postagem anterior baixe o anexo e faça os tete: http://www.sendspace.com/file/0gbjls

Regina,
o codigo para deixar em maiscula (plan1) está com pequeno erro, que o faze ser executado inclusive nas colunas com numeros, e ao "pegar" valores com "," e transforma-los em maiuscula o excel está entendedo como texto
Altere: If Not Intersect(Target, Range("$C$9;$C$10")) Is Nothing Then (o ponto e virgula)
Para : If Not Intersect(Target, Range("$C$9:$C$10")) Is Nothing Then (para dois pontos)

O modelo disponibilizado pelo Alexandre já está OK

Nossa gente!!!!! como é que pode uma coisinha dessa fazer esse estrago rsrsrs. Gente muito obrigada. Reinaldo e Alexandre, vcs são demais!