Notifications
Clear all

FILTRO EM OUTRA PLANILHA COM TABELA LANÇADO ATRAVÉS DE VBA

4 Posts
2 Usuários
0 Reactions
1,015 Visualizações
(@valdabr)
Posts: 174
Reputable Member
Topic starter
 

bom dia caros amigos, preciso de uma ajuda nesse arquivo chamado lançamento, tenho aqui as planilhas de entradas e saídas formatadas com tabelas, e meu problema é que abri uma planilha chamada fluxo de caixa para controlar melhor o que entra e sai e nela coloquei a seguinte fórmula (=SOMASES(TabelaEntradas[VALOR];TabelaEntradas[MÊS E ANO];B$2;TabelaEntradas[ESPECIFICAÇÕES];$A3)) para buscar o total de lançamentos diários na planilha entradas. o problema é que essa formula só filtra quando faço os lançamentos manualmente na planilha entradas quando faço lançamentos via VBA ela não faz esse filtro como segue no exemplo que coloquei no arquivo, gostaria que os amigos me ajudassem pis preciso que funcione pela VBA caso seja possível, desde já agradeço fica aqui meu muito obrigado.

obs: o acesso a VBA se dá ao clicar na userforme LOGIN através da senha 1234

 
Postado : 02/02/2017 7:00 am
(@valdabr)
Posts: 174
Reputable Member
Topic starter
 

desculpem acho que mandei o arquivo errado, este é o exato!

 
Postado : 02/02/2017 7:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Use ao cadastrar datas e valores as funções de conversão de dados do VBA

Private Sub BOTÃO_ENTRADA_Click()
TOTALREGISTRO = Worksheets("ENTRADAS").UsedRange.Rows.Count + 1
Worksheets("ENTRADAS").Select 'comando para que o program selecione a planilha na qual vai lançar os dados inseridos
Cells(TOTALREGISTRO, 1) = VBA.CDate(CAIXA_DATA.Text)
Cells(TOTALREGISTRO, 2) = CAIXA_MOVIMENTO
Cells(TOTALREGISTRO, 3) = VBA.CDbl(CAIXA_VALOR.Text)
Cells(TOTALREGISTRO, 4) = CAIXA_ESPECIFICAÇÃO
Cells(TOTALREGISTRO, 5) = CAIXA_ORIGEM....
 
Postado : 02/02/2017 8:29 am
(@valdabr)
Posts: 174
Reputable Member
Topic starter
 

amigo muito obrigado por dispor do seu tempo para me ajudar, era exatamente o que eu precisava, deixo aqui meu agradecimento aos demais também

 
Postado : 03/02/2017 6:25 am