Saberexcel - O site das macros

ESSA PLANILHA FAZ PARTE DAS 340 PLANILHAS EXEMPLOS WORKSHEETFUNCTIONS

Esta macros do Aplicativo Microsoft Excel VBA, usando as WorksheetsFunctions, Funções de Planilhas, retornam as funções procv, que busca determinados valores e as exibe em uma msgbox e retornam para folha de planilhas, usei também a worksheetFunction Soma(sum) para retornar um cálculo de comissão referente à busca do procv, realizada com a wkfunction Procv(Lookup).
A finalidade das WorksheetFunctions é retornar valores, sem a necessidade de usar as fórmulas referente as funções. (Veja macro abaixo)

Você pode usar a Função PROCV para pesquisar a primeira coluna de um intervalo (intervalo: duas ou mais células em uma planilha. As células de um intervalo podem ser adjacentes ou não adjacentes.) de células e, em seguida, retornar um valor de qualquer célula na mesma linha do intervalo. Por exemplo, suponhamos que você tenha uma lista de funcionários contida no intervalo A2:C10. Os números de identificação dos funcionários são armazenados na primeira coluna do intervalo, como mostrado na ilustração a seguir.
Observem que a WorksheetFunction retorna a Função Procv e também a Função Soma, sem a necessidade de fórmulas , usando



VBA(Visual Basic Application)

Sub Funcao_de_planilha_procv()
Dim sb As String
Dim sbx As Variant

Dim vRange1 As Range
Dim vRange2 As Range

'configurando titulo da mensagem
sb = "Saberexcel - o site das Macros"
sbx = vbInformation

Set vRange1 = Worksheets("Plan1").Range("M14:M19")
Set vRange2 = Worksheets("Plan1").Range("N14:N19")
FuncaoProcv = Application.WorksheetFunction.Lookup([M1].Value, vRange1, vRange2)

'retornará o valor total de comissões em determinada célula na folha de planilha
MsgBox "Salário [ " & [M1] & " ] Faturou [R$ " & FuncaoProcv & " ]" & " comissões para receber :[ R$" & [D3].Value & " ]", sbx, sb

[D3].Value = Application.WorksheetFunction.Sum(Val(FuncaoProcv) * 0.15)
[D4].Value = [M1].Value & " Faturou : [ " & FuncaoProcv & " ] comissões para receber : [ R$ " & [D3].Value & " ]"

End Sub


'macro auxiliar usada para limpar os valores na realização do teste usuario
Sub limpar_teste()
[C4].ClearContents
[D1].Select
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel