Skip to content

Instantly share code, notes, and snippets.

@cpereira7

cpereira7/MYVLOOKUP.vbs

Created August 24, 2017 18:05
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save cpereira7/9e495aa7b1f3420066986fcc083ae28b to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save cpereira7/9e495aa7b1f3420066986fcc083ae28b to your computer and use it in GitHub Desktop.
Download ZIP
PROCV - Valores multiplos.
Raw
MYVLOOKUP.vbs
Function MYVLOOKUP(lookupval, lookuprange As Range, indexcol As Long)
Dim r As Range
Dim result As String
result = ""
For Each r In lookuprange
If r = lookupval Then
result = result & " - " & r.Offset(0, indexcol - 1)
End If
Next r
MYVLOOKUP = result
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment