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

[valbeezerra]

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

[Midori]

@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

 

[valbeezerra]

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?

[Midori]

@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

 

[valbeezerra]

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!

[valbeezerra]

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?