Pergunte aqui
1

PROCV-Multiplo

perguntadas 2018-12-12 22:58:08 +0200

imagem do gravatar de muca

updated 2019-03-01 18:07:43 +0200

Será que é possível uma macro Calc de acordo com a macro Excel abaixo?

Function PROCVMÚLTIPLO(NomePesquisa As String, IntervaloPesquisa As Range, IntervaloRetorno As Range) As String
Dim Valor, Nome
Dim k As Integer
Application.Volatile
    k = 1
    For Each Nome In IntervaloPesquisa
        If Nome = NomePesquisa Then
        Valor = IntervaloRetorno(k, 1)
        PROCVMÚLTIPLO = PROCVMÚLTIPLO & Valor & "; "
        End If
        k = k + 1
    Next Nome
    PROCVMÚLTIPLO = Left(PROCVMÚLTIPLO, Len(PROCVMÚLTIPLO) - 2)
End Function

=========================================

TABELA: 
Coluna A,  título Nomes = José, Antônio, Pedro, José, Antônio, José
Coluna B, título Valores = 10. 20, 30, 40, 50, 60

E2 = José
F2 = Resultado = 10; 40; 60
Fórmula =PROCVMÚLTIPLO(E2;$A$2:$A$7;$B$2:$B$7)
E2 = NomePesquisa
$A$2:$A$7 = IntervaloPesquisa
$B$2:$B$7 = IntervaloRetorno
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

2

respondidas 2018-12-13 12:00:28 +0200

imagem do gravatar de Conrado

updated 2018-12-13 19:01:42 +0200

@muca

Segue arquivo em function como solicitado.

Arquivo2

Se é essa função que procura, marque como resposta correta.


Segue uma planilha com fórmula que realiza a busca de informações com mais de 01 condição.

Arquivo1

Segue link do bate papo aqui no ASK sobre este assunto

https://ask.libreoffice.org/pt-br/que...

editar assinalar como ofensivo Excluir Link mais

Comentários

1

Obrigado Conrado, excelente exemplo, porém preciso do resultado apontado na pergunta.

imagem do gravatar de mucamuca ( 2018-12-13 14:37:08 +0200 )editar
1

Obrigado Conrado, o Arquivo2 solucionou perfeitamente a minha dúvida. Gilberto obrigado pela atenção.

imagem do gravatar de mucamuca ( 2018-12-14 13:22:39 +0200 )editar
0

respondidas 2018-12-12 23:29:36 +0200

esta mensagem está marcada como wiki comunitário

Esta mensagem é um wiki. Qualquer pessoa com karma >75 é bem-vinda para a melhorar.

Só acrescentar antes da function....

Desta maneira é acionado o Suporte a VBA, testei e funcionou.

' Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit
editar assinalar como ofensivo Excluir Link mais

Comentários

@muca, respondeu:

ERRO:

Erro de Execução do BASIC '5' Chamada de procedimento incorreta.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-12-13 00:20:15 +0200 )editar
1

@Gilberto Schiavinatto, no arquivo utilizando a function no exemplo citado, precisa acrescentar o seguinte comando antes de iniciar o procedimento For Next: PROCVMÚLTIPLO = "". se não fizer isso, os números serão concatenados sempre, acrescentando com as informações anteriores da célula.

imagem do gravatar de ConradoConrado ( 2018-12-14 13:16:06 +0200 )editar
1

Ok @Conrado, perfeito, como executei uma vez não vi o erro. Grato.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-12-14 13:46:27 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-12-12 22:58:08 +0200

Lidas: 82 vezes

Última atualização: Dec 13 '18