×
Ir ao conteúdo
  • Cadastre-se

Visual Basic Pesquisar dados ao digitar um valor em uma célula


Posts recomendados

Olá amigos,

  Estou tentando criar uma macro que excutaria o seguinte:

 

 Tenho uma lista suspensa com nome de vendedores. Na coluna A, recebe os nomes dos vendedores Na coluna B, os valores vendidos. Os dados das colunas A e B são importados de um txt). Na célula D3, trás a quatidade vezes em que o vendedor X foi lançado na coluna A. Na célula F3 soma os valores vendidos do vendedor X. Até aí ja tenho as macros prontas. O que me falta seria uma macro que pesquisasse as vendas  do vendetor selecionado contando de cima para baixo alterando o valor da célula D3. Caso digitasse 2, por exemplo, retornaria os valores das células 9 e 10.

 

Agradeço antecipadamente.

Arquivo Excel pesquisar vendas.zip

Link para o comentário
Compartilhar em outros sites

@valbeezerra Assim é só passar o nome e a contagem para a função. O retorno será zero se não encontrar o nome ou a contagem for menor que 1. 

Function Vendas(Vendedor As String, Conta As Long) As Double
    Dim ColunaVendedor  As Range
    
    Set ColunaVendedor = ThisWorkbook.Sheets("Plan1").[A:A].Find( _
        What:=Vendedor, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Conta > 0 And Not ColunaVendedor Is Nothing Then
        Vendas = WorksheetFunction.SumIf( _
            ColunaVendedor.Resize(Conta), Vendedor, _
            ColunaVendedor.Offset(0, 1).Resize(Conta))
    End If
End Function

 

Link para o comentário
Compartilhar em outros sites

18 horas atrás, Midori disse:

@valbeezerra Assim é só passar o nome e a contagem para a função. O retorno será zero se não encontrar o nome ou a contagem for menor que 1. 

Function Vendas(Vendedor As String, Conta As Long) As Double
    Dim ColunaVendedor  As Range
    
    Set ColunaVendedor = ThisWorkbook.Sheets("Plan1").[A:A].Find( _
        What:=Vendedor, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Conta > 0 And Not ColunaVendedor Is Nothing Then
        Vendas = WorksheetFunction.SumIf( _
            ColunaVendedor.Resize(Conta), Vendedor, _
            ColunaVendedor.Offset(0, 1).Resize(Conta))
    End If
End Function

 

Muitissimo obrigado por responder. Só esqueci de escrever que não sou da área de programação, conheço apenas o básico em VBA. Realmente não entendi o quis dizer " passar o nome e a contagem para a função". Pode me dizer como faço isso?

Link para o comentário
Compartilhar em outros sites

@valbeezerra Cole a função no módulo e atribua o retorno dela a célula desejada, p.ex este é código completo,

 

Sub Teste()
    Dim Vendedor    As String
    Dim Numero      As Range
    
    Set Numero = Range("D3")
    
    If IsNumeric(Numero) Then
        Vendedor = Plan1.ComboBox1.Value
        Range("F3") = Vendas(Vendedor, Numero.Value)
    End If
End Sub

Function Vendas(Vendedor As String, Conta As Long) As Double
    Dim ColunaVendedor  As Range
    
    Set ColunaVendedor = ThisWorkbook.Sheets("Plan1").[A:A].Find( _
        What:=Vendedor, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Conta > 0 And Not ColunaVendedor Is Nothing Then
        Vendas = WorksheetFunction.SumIf( _
            ColunaVendedor.Resize(Conta), Vendedor, _
            ColunaVendedor.Offset(0, 1).Resize(Conta))
    End If
End Function

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

4 horas atrás, Midori disse:

@valbeezerra Cole a função no módulo e atribua o retorno dela a célula desejada, p.ex este é código completo,

 

Sub Teste()
    Dim Vendedor    As String
    Dim Numero      As Range
    
    Set Numero = Range("D3")
    
    If IsNumeric(Numero) Then
        Vendedor = Plan1.ComboBox1.Value
        Range("F3") = Vendas(Vendedor, Numero.Value)
    End If
End Sub

Function Vendas(Vendedor As String, Conta As Long) As Double
    Dim ColunaVendedor  As Range
    
    Set ColunaVendedor = ThisWorkbook.Sheets("Plan1").[A:A].Find( _
        What:=Vendedor, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Conta > 0 And Not ColunaVendedor Is Nothing Then
        Vendas = WorksheetFunction.SumIf( _
            ColunaVendedor.Resize(Conta), Vendedor, _
            ColunaVendedor.Offset(0, 1).Resize(Conta))
    End If
End Function

 

É exatamente o que precisava. Muitissimo obrigado!

Link para o comentário
Compartilhar em outros sites

10 horas atrás, valbeezerra disse:

É exatamente o que precisava. Muitissimo obrigado!

Desculpe -me se estou a abusar da sua boa vontade, mas tenho uma outra questão que não conseguir resolver. Na coluna C, trás o número de avaliação que o vendedor recebeu em cada respectiva venda. Se eu tenho um outro comboBox que trás alguns números, como ficaria a rotina  retornando em outra célula quantidade de vezes em que o vendedor recebeu tal número de avaliação?

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Como se tornar um desenvolvedor full-stack

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!