Boa tarde!!

Porque então que você não grava uma macro com as mesmas formulas que você descartou, porém via Macro.

Eu tenho várias postagens (use a pesquisa), com exemplos de com inserir formula matricial e formula e funções via VBA.

Att

Olá Alexandre, sempre alerta !

Bom, vamos nós outra vez. Esta outra planilha é um complemento da anterior, a qual já considero resolvida. Eu imaginei uma rotina que faz a importação das informações de uma planilha para outra obedecendo a 2 critérios de comparação (chaves). Quando eu disse que havia descartado as funções, era também pelo fato de que as mesmas deveriam ser inseridas linha a linha na planilha que receberia as informações, Isso deixaria a planilha pesada e pouco funcional. Eu me recordo de uma fórmula matricial que postei aqui e foi convertida da VBA, mas ela apenas tatalizava uma coluna em razão de 2 critérios. Não lembro de nenhuma outra.
Já vi alguns posts sobre a importação, já tentei adaptá-los. Não consegui.
A solução via VBA me pareceu mais flexivel no momento de fazer adaptações, isso ao contrário de ter que verificar intervalos longos com fórmulas.
Além de que, a importação se aplicará em uma considerável quantidade de linhas.
Porém, caso você afirme não ser possível, vou começar a perambular mais algum tempo na rede.

Em todo caso obrigado pela atenção.

Boa tarde!!

Na guia Exemplo Origem, seria a representação do arquivoOrigem e você pretende deixar como Exemplo Destino,do arquivoDestino ?

Qual critério seria para importar os dados...?

A coluna de nome NUM MAPP? caso igual então importar..?

Att

Sim! "..Na guia Exemplo Origem, seria a representação do arquivoOrigem ..."

O critério seria a correspondência de "NUM MAPP" com "Nº PROJETO MAPP" e também "FONTE RECURSO" com "FONTE".

A importação será de todos os valores numéricos das coluna "VAL PROGRAMADO 2007"...e "VAL EMPENHADO 2007).... para as colunas "VALOR ATUAL 2007"... e "EMPENHADO 2007"....

sendo que; VAL PROGRAMADO 2007 corresponde na outra planilha a VALOR ATUAL 2007 e assim sucessivamente para os demais anos 2008, 2009....)

A guia EXEMPLO DESTINO pode ser utilizada para receber as importações fazendo referencias aos critérios descritos acima, ou seja, todos os atuais valores contantes podem ser desprezados.

Boa noite Alexandre,

Muito complicada minha dúvida?

Boa tarde!!

Na guia Exemplo Origem, seria a representação do arquivoOrigem e você pretende deixar como Exemplo Destino,do arquivoDestino ?

Qual critério seria para importar os dados...?

A coluna de nome NUM MAPP? caso igual então importar..?

Att

Boa tarde!!

Veja se ajuda.

Att

O arquivo parece vazio...

Boa tarde!!

Veja agora...

Att

Bom dia Alexandre,

Utilizando a dúvida do colega. Imaginemos que este arquivo Origem possua várias abas separadas em um critério. É possivel fazer esta pesquisa sem ter que mensurar qual aba você quer fazer a pesquisa? Por exemplo, ele buscar em todas as abas de uma vez só uma única referencência e puxe para o ArqDestino o valor?

Bom dia!!

Sim!!!

Sub Um_Exemplo()
'Este execemplo mere adaptação, seria só uma demonstração
'de como copia o mesmo intervalo de todas as guias
    Dim ws As Worksheet
     
    Application.ScreenUpdating = False
    Sheets("GuiaPrincipal").Activate
     
    For Each ws In Worksheets
        If ws.Name <> "GuiaPrincipal" Then
            ws.Range("F46:O47").Copy 'Copia mesmo intervalo de várias guias
            ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0) 'Cola na guia ativa que neste cao é GuiaPrincipal
        End If
    Next ws
End Sub

Mas neste caso merece uma adaptação ao meu modelo de importar dados.

Att

Olá Fernando,

Estarei fazendo alguns testes com seu código. Apenas para dar um retorno.

Bom dia!!

Eu fico no aguardo de seu retorno!

Olá Fernando,

Meu nome é: Alexandre
Att

Bom dia!!

Sim!!!

Sub Um_Exemplo()
'Este execemplo mere adaptação, seria só uma demonstração
'de como copia o mesmo intervalo de todas as guias
    Dim ws As Worksheet
     
    Application.ScreenUpdating = False
    Sheets("GuiaPrincipal").Activate
     
    For Each ws In Worksheets
        If ws.Name <> "GuiaPrincipal" Then
            ws.Range("F46:O47").Copy 'Copia mesmo intervalo de várias guias
            ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0) 'Cola na guia ativa que neste cao é GuiaPrincipal
        End If
    Next ws
End Sub

Mas neste caso merece uma adaptação ao meu modelo de importar dados.

Att

Em respeito deste código, há como relacionar como se fosse um proch? Por exemplo, eu tenho uma planilha com todos os itens e outra com os mesmos itens mas separados em abas. Mas eu gostaria de puxar o valor de uma coluna X relacionada ao item de uma coluna Y.

Como faria?