DJunqueira

Anexa seu arquivo com 5 linhas só q eu monto ela p/ você.

É p/ informar ao Excel q essa é uma fórmula matricial, mas acaba executando a fórmula tb. Faça isso em apenas uma célula e depois extrapole p/ as demais.

Corrigi. Quando isso ocorrer copie a fórmula da primeira linha e cole na coluna inteira. PJDE.zip

https://support.office.com/en-us/article/Repair-a-corrupted-workbook-153a45f4-6cab-44b1-93ca-801ddcd4ea53?ui=en-US&rs=en-US&ad=US&fromAR=1

A fórmula q você precisa e estava tentando construir é: {=SEERRO(CORRESP(ARRUMAR([@[EAN/COD_TERCEARIO]]);ARRUMAR(Tabela2[CdChamada]);0);"Não encontrado")} Notar q essa é uma fórmula matricial e precisa teclar Ctrl + Shift + Enter. Coloque essa fórmula na aba 'TODOS PRODUTOS' e retire seu arquivo do sendspace por ter informação demais. Para te ajudar nós só precisaríamos de umas 20 linhas de exemplo. Aqui resultou em 4.316 itens não encontrados da tabela maior na menor. Na tabela menor todos os itens tem uma correspondência na maior.

Não me parece q você queira 'transpor' nada. Transpor no Excel é tirar informações q estão na vertical p/ colocar na horizontal e vice-versa, e na imagem q você anexou não vejo como fazer isso. você provavelmente quer selecionar alguma informação em outra pasta de trabalho com funções, mas só com imagens nós não vamos conseguir te ajudar. Anexa suas pastas com a estrutura do arquivo e uma explicação do q você quer.

Solução proposta. Função AGREGAR.xlsx

Outra possibilidade. Ind_Corr_Erro DJ.xlsx

Q tal C1? Range("C1").Select

Tem diversas forma, mas p/ isso você deve anexar um modelo da sua planilha e especificar qual versão do Excel você utiliza.

Com Windows 7 64 bits e MSOffice 2016 eu uso o XLTools (gratuito) já faz tempo e atende plenamente. https://xltools.net/

Levando em consideração a ótima explicação do @Black_Bird montei uma nova fórmula. =SE(ÉERROS(CORRESP(E3;CCAs!A:A;0));"";SE(CONT.SES(CCAs!A:A;E3;CCAs!I:I;"false");"NÃO";"SIM")) Ela leva em consideração q muitos dos códigos não são encontrados e portanto deixa de fazer o cálculo mais pesado de contagem se nada encontrar, caso encontre apenas verifica se há algum "false", evitando comparar duas contagens. Tabela 1 (2).xlsx

você mesmo quase chegou lá, só faltou as aspas: =SE(ESQUERDA(A2;1)="1";A2;0&A2)

outra fórmula =arredmultb.mat(a1+0,2;0,5)

Concordo plenamente com o @CasaDoHardware.

Me manda a planilha com acumulo de dias p/ entender melhor o q você quer. Quanto a função_xlfn pode ser qq uma das novas funções do Excel 2016, mas imagino q no caso seja a SEERRO(), essa função é interessante porque evita o trabalho dobrado, antes dela o Excel calculava uma fórmula e se não houvesse erro ele calculava novamente . Agora com ela o Excel só faz mais alguma coisa se der erro. A alternativa p/ o 2007 é testar se houve erro: =SE(ÉRRROS(TestaFunção); RespostaFunçãoComErro; FunçãoOkCalculaNovamente)

Não testei, mas você deveria estar passando p/ a variável Ordem o valor da célula: Plan15.Range("c28").Value Do jeito q está você está passando o intervalo por isso o Excel considera tipo incompatível.

Fiz diversas alterações nas fórmulas da sua pasta de trabalho especialmente relacionadas a pesquisa na aba dos dias. Estas fórmulas agora tem apenas uma linha. Quanto ao código siga a orientação do @CasaDoHardware. Andre Diario vDJ 1.zip

@Adriano Marcos dos Santos já q você declara não ter experiência com o Excel adiantei mais algumas coisas p/ você além da formatação. Seu problema não precisa ser resolvido com fórmulas, basta alterar a formatação, na planilha anexa já deixei alguns dados preenchidos. Para agilizar a entrada de dados protegi sua planilha - SEM SENHA - p/ q você possa usar a tecla TAB e navegar apenas pelos campos q devem ser preenchidos. O.S Disk Tudo Empresas.xlsx

você não anexou o arquivo...

Fiz da seguinte forma, usei o seu código do início do tópico na pasta de trabalho BD.xlsm, depois adicionei alguns dados na plan1 da Andre Diario.xlsx e constatei q o problema estava no uso de: 'Copia a região adjacente à celula A2 para a planilha de consolidação [Plan1!A2].CurrentRegion.Copy ThisWorkbook.ActiveSheet.Cells(Cells.Rows.Count, "A").End(xlUp).Offset(1, 0) No caso CurrentRegion seleciona e copia tudo q estiver escrito na aba, inclusive o cabeçalho, e depois cola na BD.xlsm. Minha proposta de solução é você trocar essa parte do código por: 'Copia a região adjacente à celula A2 para a planilha de consolidação [Plan1!A2:F20].Copy ThisWorkbook.ActiveSheet.Cells(Cells.Rows.Count, "A").End(xlUp).Offset(1, 0) Sendo q F20 é apenas um número qq q representa o número - com folga - de linhas q você irá costumeiramente copiar. Se forem 100 linhas coloque F200. Sua planilha Andre Diario.xlsx poderia se beneficiar de uma revisão nas fórmulas e alguma coisa no layout, se quiser posso fazer, mas p/ isso você deverá me repassar a estrutura sem senha, sem vínculos quebrados e sem informações sigilosas como nomes, CPF, etc. Substitua nomes por Cliente1, Cliente2 e assim por diante. BD.zip

Testa isso numa coluna distante da tabela p/ não ser incorporada, se der o retorno desejado você estará no caminho certo, mas p/ ajudar mais anexe a planilha.

@Ricstos Nova Consulta faz o q você quer, clicando apenas em Atualizar. Mas como você parece estar fechado com VBA...

Feito. Levantamento_de_dados_Serventias_Bahia_(cod_THIAGO).zip

Como você pode ver no endereço abaixo isso é um problema de longa data da M$ e só dá p/ contornar com VBA. https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_other/how-to-protect-an-excel-2010-table-allow-to-add/ee40ee81-8419-449c-b2c0-80e4f60b2e5d?page=2