Excel Função Dmax Excel VBA

Crafteribanez · 19 de fevereiro de 2018

Bom dia,

Necessito inserir através do VBA no Excel a função Máximo com um parâmetro de critério.

Tem que ser no VBA pois preciso do valor de retorno da função para outro cálculo.

Tenho a seguinte planilha em Plan1

Preciso em retorno do VBA o maior valor de acordo com critério "Vendedor"

Criei a seguinte sub que só dá erro.

Sub maior()

Dim valor As Long
Dim Wsk As Worksheet

Set Wsk = Worksheets("Plan1")

valor = WorksheetFunction.DMax(Wsk.Range("A1:B13"), Wsk.Range("B1"), Wsk.Range("A1") = "Paulo")

MsgBox valor

End Sub

A função deveria retornar para a variável "valor" o número 627,591

Só que só dá erro.

Alguma dica ?

Basole · 19 de fevereiro de 2018

Experimente desta forma:

Sub maior()
    
    Dim valor As Double
    Dim Wsk As Worksheet
    
    Set Wsk = Worksheets("Plan1")
    
    valor = Excel.Evaluate("=MAX(IF(A1:A13=""Paulo"",B1:B13))")
    
    MsgBox valor
    
End Sub