Aqui está uma solução baseada em um curto UDF () .
Digamos que a tabela de pesquisa esteja nas colunas F e G da linha 1 até o máximo 100 linhas. Primeiro insira este UDF () em um módulo padrão:
Public Function GetType(sIN As String) As String
Dim LookupTable As Range, nItems As Long
Set LookupTable = Range("F1:G100")
nItems = 100
For i = 1 To nItems
If LookupTable(i, 1) = "" Then Exit For
If InStr(1, sIN, LookupTable(i, 1)) > 0 Then
GetType = LookupTable(i, 2)
Exit Function
End If
Next i
GetType = "UN-FOUND"
End Function
Em seguida, na célula C1 , digite:
=GetType(A1)
e copie:
FunçõesDefinidaspeloUsuário(UDFs)sãomuitofáceisdeinstalareusar:
- ALT-F11exibeajaneladoVBE
- ALT-IALT-Mabreumnovomódulo
- coleomaterialefecheajaneladoVBE
Sevocêsalvarapastadetrabalho,aUDFserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx
PararemoveroUDF:
- abrirajaneladoVBEcomoacima
- limpeocódigo
- fecheajaneladoVBE
ParausaroUDFdoExcel:
=myfunction(A1)
Parasabermaissobremacrosemgeral,consulte:
e
e para detalhes sobre UDFs, consulte:
As macros devem estar ativadas para que isso funcione!