Jump to content
Forgon

consultas no excel

Recommended Posts

Forgon

Ora viva,

Estou a fazer um trabalho no excel, no entanto deparei com um problema que eu não sei resolver. Tenho uma lista de dados numa folha excel, que é actualizada diariamente e as vezes é necessário fazer algumas consultas, (por data, por exemplo). Carrego num botão "Consulta" e introduzo a data a consultar. Alguém pode ajudar-me?

Cumprimentos

Share this post


Link to post
Share on other sites
Forgon

Eu tenho uma folha excel mais ou menos como está na imagem:

4165106_z1soW.jpeg

O que eu quero fazer é o seguinte: tenho um form simples onde introduzo uma data e ele deve fazer uma nova tabela numa outra janela com os dados desse dia. Eu tive a pensar em Vlookup(), mas esta função só me dá 1 valor.

Share this post


Link to post
Share on other sites
vbtipo

Utiliza os filtros.


Lema: Se eu não saber de alguma coisa não se preocupem porque tento sempre ajudar alguma coisita, nem que seja, por palpites/sugestões.

Share this post


Link to post
Share on other sites
Forgon

Obrigado a todos por terem respondido.

joseA, era mesmo isso que eu procurava. No entanto vou estudar o teu código e testâ-lo no meu trabalho.

Obrigado pela ajuda

Cumprimentos

Share this post


Link to post
Share on other sites
Forgon

Olha, e se eu tivesse uma tabela assim:

4166563_YnwjD.jpeg

e que em vez de fazer a procura numa coluna, o tivesse que fazer em duas colunas e comparâ-las. O que eu quero mesmo é que faça uma tabela numa outra folha somente com os dados onde a Quantidade seja igual inferior a Quantidade mínima (Quantidade =< Quantidade mínima).

Boa noite a todos.

Share this post


Link to post
Share on other sites
Forgon

Tendo em conta o seu código, criei este para a solução do 2º problema.

Application.EnableEvents = False
        
    Dim lastRow As Long
    Dim lastResultRow As Long
    Dim X As Long
    Dim Quantidade As Long
    Dim QuantMinima As Long
        
        ' Verifica qual a ultima célula preenchida
        lastRow = Folha1.Cells(Rows.Count, 1).End(xlUp).Row
        
        ' Apaga valores anteriores
        Folha2.Range("a2:g65536").ClearContents
        
        lastResultRow = 2 'linha resultado
        
        ' Ciclo em todas as linhas
        For X = 2 To lastRow '1 Linha dados pequisa
           ' verifica se o valor é igual ao da pesquisa
           Quantidade = Folha1.Cells(X, 3).Value 'coluna pequisa
           QuantMinima = Folha1.Cells(X, 4).Value 'coluna pequisa
           
           If Quantidade <= QuantMinima Then
           
                ' Copia os valores
                Folha2.Cells(lastResultRow, 1).Value = Folha1.Cells(X, 1).Value
                Folha2.Cells(lastResultRow, 2).Value = Folha1.Cells(X, 2).Value
                Folha2.Cells(lastResultRow, 3).Value = Folha1.Cells(X, 3).Value
                Folha2.Cells(lastResultRow, 4).Value = Folha1.Cells(X, 4).Value
                lastResultRow = lastResultRow + 1
           End If
        Next
        
    Application.EnableEvents = True
    Folha2.Select

É só atribuir o código a um botão, ou algo do género.

Obrigadão pela ajuda.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.