Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
SOMASE - Célula com...
 
Notifications
Clear all

SOMASE - Célula com Função Agora

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por ttorres 8 anos atrás
6 Posts
3 Usuários
0 Reactions
1,613 Visualizações
RSS
 ttorres
(@ttorres)
Posts: 14
Active Member
Topic starter
 

Olá queridos, tudo bem?

Eu tenho a seguinte função:

SOMASES(VALOR;DATA;$K$32;GRUPOS;"ENTRADA")

Na coluna DATA existe a função =SE(D22="";"";DateTime())
Sendo assim a Data a Coluna é preenchida automaticamente quando é informado um valor na Célula D22.

Quando vou somar o valor usando uma verificação se a DATA que digitei em K32 é a mesma que foi preenchida pela formula na coluna DATA, não funciona.
Se eu colocar a data manual sem a formula funciona.

Como resolver esse problema?
Obrigado!

Desenvolvendo uma Planilha Financeira para Igrejas para ser distribuída gratuitamente.

 
Postado : 08/03/2017 10:21 pm
deciog
 deciog
(@deciog)
Posts: 0
Trusted Member
 

ttorres

Tente usar função VALOR(célula onde esta a data)

Decio

Marque o tópico como Resolvido se foi solucionado seu problema.
Brasil, São Paulo - SP
Décio Gassi

 
Postado : 09/03/2017 5:19 am
hronconi
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Você está usando na coluna DATA 

=SE(E22="";"";HOJE())

?

Se for isso então é a questão de atualização da função HOJE() toda vez em que a planilha é recalculada. Neste caso terá que fazer uma programação VBA para gravar a data quando os dados são inseridos.

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado! ;)

 
Postado : 09/03/2017 5:20 am
hronconi
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Seria algo como por exemplo:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
        If Application.Intersect(Target.EntireRow, Range("Data")) then
                          Target.EntireRow, Range("Data") .Value = Now()

        End If
        Application.EnableEvents = True
        application.screenupdating = true
End sub

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado! ;)

 
Postado : 09/03/2017 5:34 am
hronconi
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Corrigindo:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
        Application.Intersect(Target.EntireRow, Range("Data")).Value = Format(Now(), "dd/mm/yyyy")
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Assim vai funcionar!!!

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado! ;)

 
Postado : 09/03/2017 6:01 am
 ttorres
(@ttorres)
Posts: 14
Active Member
Topic starter
 

Olá Henrique,
Assim funciona para alterar a própria célula quando for preenchida.
Eu preciso que a Range Data receba a data quando a CAIXATIPOS for preenchia, e que a Range Data seja limpa quando a CAIXATIPOS for apagada

Obrigado.

Desenvolvendo uma Planilha Financeira para Igrejas para ser distribuída gratuitamente.

 
Postado : 09/03/2017 7:35 am
Forum Jump:
  Tópico Anterior
Próximo Tópico