Função que retorna ...
 
Notifications
Clear all

Função que retorna todos os resultados encontrados

1 Posts
1 Usuários
0 Reactions
323 Visualizações
(@andersonrich)
Posts: 2
Active Member
Topic starter
 

Gostaria que a função a seguir retornasse todos os resultados encontrados. Cada resultado em uma célula diferente. Obrigado

 

Function BuscaVertical(intervalo As Range, palavra As String) As Variant


Dim c As Object
Dim a
Dim posicao As Long

posicao = 0

For Each c In intervalo.Cells

If palavra = c.Value Then

a(posicao) = palavra

posicao = posicao + 1
End If


Next c


BuscaVertical = a
End Function
 
Postado : 24/01/2024 2:43 pm