SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

Saberexcel - O site das macros

ESSA PLANILHA FAZ PARTE DAS 340 EXEMPLOS DE PLANILHAS USANDO WORKSHEETFUNCTIONS ESTUDOS.

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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

  Baixe o exemplo de planilha contendo as macros acima
Excel planilhas worksheetFunctions procv e soma ret valores desejados intervalo (36.45 kB)