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

2024 - VBA & Macros

Post Recente por valdabr 8 anos atrás

4 Posts

2 Usuários

0 Reactions

1,032 Visualizações

RSS

valdabr

(@valdabr)

Posts: 174

Estimable 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

lançamentos .xlsm

Postado : 02/02/2017 7:00 am

valdabr

(@valdabr)

Posts: 174

Estimable Member

Topic starter

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

lançamentos .xlsm

Postado : 02/02/2017 7:03 am

Fernando Fernandes

(@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....

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

Postado : 02/02/2017 8:29 am