• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Forgon

consultas no excel

11 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Coloque um exemplo para que possamos visualizar sua dúvida.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora