andersonrich
-
Total de itens
2 -
Registro em
-
Última visita
Posts postados por andersonrich
-
-
Gostaria que a função abaixo 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
Função que retorna array
em VBA
Postado
Muito obrigado amigo. Deu erro #valor não retornou nenhum resultado.