coluna contábil não...
 
Notifications
Clear all

coluna contábil não aceita centavos

12 Posts
2 Usuários
0 Reactions
3,333 Visualizações
(@regina)
Posts: 40
Eminent Member
Topic starter
 

Pessoal, bom dia!
Estou com um problema na minha planilha de fatura, onde tenho 3 macros: 1 para colocar os nomes com letra maiúscula em 1 célula, 1 para limpar os campos para que seja iniciada uma nova fatura e outra para copiar o cabeçalho da fatura (nome e endereço) para uma sub planilha.
Agora, vem o mistério: tenho 3 colunas de lançamento de valores, 1 de débito (que é puxado direto de uma tabela), 1 de crédito (que eu mesma lanço) e 1 de débito que eu lanço pois não estão na tabela (ou seja: não tem nenhuma formula nessa coluna).
Bem, nessa coluna de débito que eu lanço, ela não está aceitando centavos e tb não soma no total, embora ela esteja formatada igual as outras (contábil) e incluída na fórmula do total. Ela só soma se for um número sem centavos (ex.: 123,00) se tiver centavos ela não soma (ex. 123,50)!!!!

Alguem já viu isso?

**Uma coisa digna de nota que eu percebi, é que se eu desabilito as macros, a coluna funciona normal.
Mas o que as macros tem a ver com isso???

 
Postado : 17/04/2012 6:11 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/04/2012 6:19 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/04/2012 6:52 am
(@regina)
Posts: 40
Eminent Member
Topic starter
 

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.

 
Postado : 17/04/2012 7:21 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/04/2012 11:45 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

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

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/04/2012 11:57 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/04/2012 12:38 pm
(@regina)
Posts: 40
Eminent Member
Topic starter
 

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

 
Postado : 17/04/2012 12:48 pm
(@regina)
Posts: 40
Eminent Member
Topic starter
 

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?

 
Postado : 19/04/2012 5:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/04/2012 6:00 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/04/2012 7:02 am
(@regina)
Posts: 40
Eminent Member
Topic starter
 

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

 
Postado : 19/04/2012 1:46 pm