Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
TRAZER DADOS - ORÇA...
 
Notifications
Clear all

TRAZER DADOS - ORÇAMENTO

 
2024 - VBA & Macros
4 Posts
1 Usuários
0 Reactions
639 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

E ai Galera,

Pessoal, estou montando um novo modo de controle das minhas finanças (não que eu tenha muito dinheiro, pelo contrario ... muita divida), fiz uma plan "toda da hora" com alguns comandos basicos do VBA e tudo mais, mas agora preciso trazer os dados do meu BD para a pagina principal de acordo com alguns criterios, mas vamos lá:

A primeira parte é facil:
Lançamento = somente para lançarmos os dados resumidos e jogar nos BD´s
BD_SAIDA = armazena os debitos
BD_ENTRADA = armazena toda entrada de dinheiro/credito

Pronto, ai que esta meu problema:
Quero que na propria capa (Plan3) traga os dados conforme eu selecione o ano na celula "H3" e o mês na celula "H4".

Não sei se tenho que criar um critério para que eu possa trazer esses dados.

Obs.: inicialmente esta somente para trazer os dados de despesa mesmo, quero saber se vai dar certo, caso dê ainda vou complementar.

Obrigado

 
Postado : 26/03/2014 1:17 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!

Tente
http://www.sendspace.com/file/ltl5um

Att

 
Postado : 27/03/2014 8:50 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Nossa Ale, é isso mesmo!! Muito obrigado.

Mas você poderia me explicar o que foi feito ?

Eu olhei o codigo e entendi mais ou menos, queria saber como realmente funciona esse codigo para eu adptar nas outras partes da minha planilha.

Mais uma vez obrigado.

 
Postado : 27/03/2014 11:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Eu fico feliz que você resolveu sua dúvida, segue.

Sub AleVBA_Filtrar()
     
 Dim LastRow As Long
 'Limpa as células ("G7:L2000"),da guia ("Resumo")
    Worksheets("Resumo").Range("G7:L2000").ClearContents
    ActiveSheet.AutoFilterMode = False
    With Worksheets("BD_SAIDAS")
    'Procura a ultima linha
    LastRow = .Cells(Rows.Count, "B").End(xlUp).Row
    'Filtra na guia "BD_SAIDAS" de acordo as células G4 e H4 da guia ("Resumo")
    .Range("B2:I2").AutoFilter
    .Range("B2:I2").AutoFilter field:=7, Criteria1:=Worksheets("Resumo").Range("G4").Value
    .Range("B2:I2").AutoFilter field:=8, Criteria1:=Worksheets("Resumo").Range("H4").Value
    'Copia os dados filtrados e cola na guia destino
    .Range("B3:G" & LastRow).Copy Destination:=Worksheets("Resumo").Range("G7")
    .ShowAllData
    End With
     
End Sub

Além da ajuda (F1), dentro do EditorVB
Leia também:
https://www.google.com.br/url?sa=t&rct= ... 8443,d.dmQ

Att

 
Postado : 27/03/2014 11:42 am
Forum Jump:
  Tópico Anterior
Próximo Tópico