ffialho

Teste_VBA_2.xl Olá @OreiaG Malz! montei o post anterior todo errado! Estou tentando usar a solução do exemplo la de cima - porque foi muito rápido! Quando tentei aplicar neste planilha anexa deu 0 ou 01/01/1900. não alterei nada no código a não ser as colunas. valeu pela ajuda!! Sub BuscaChaves() Dim UL As Long UL = Sheets("Base_Ajustada_120").Cells(Rows.Count, "U").End(xlUp).Row With Sheets("Base214") .Columns("AF") = "" .Range("AT2:AT" & .Cells(Rows.Count, "AS").End(xlUp).Row).Formula = _ "=MIN(IF(ISNUMBER(SEARCH(AS2,Base_Ajustada_120!U$2:U$" & UL & ")),Base_Ajustada_120!A$2:A$" & UL & "))" . Columns("AT").Value = .Columns("AT").Value .Columns("AT").NumberFormat = "dd/mm/yyyy": .Columns("AT").AutoFit End With End Sub

@OreiaG Tudo bem? Tentei fazer a sua solução rodar na planilha anexa, mas ele não retorna o valor - mas sim 0 ou 01/01/1900. consegue ver onde errei?!

estou com um trecho de código que funciona super bem quando especifico a coluna para fazer o autofill. mas no caso, como alteram a planilha e as vezes incluem colunas no meio dela, quero automatizar a minha parte inserindo meus calculos sempre ao final... sem precisar me preocupar se adicionaram 1 ou 10 colunas neste interim. O codigo abaixo vai bem até a linha vermelha ou seja... ele identifica a ultima coluna preenchida, escreve o titulo e comeca o "calculo" na linha de baixo .porém na hora de fazer o AUTOFILL ele não funciona. alguém teria uma luz de como fazer autofill em uma coluna dinamica, sem que eu precise especificar que vai ser na AT ou AZ ou CB? Vale ressaltar que a ação de cálculo - exemplifiquei 1 ( conta.se ) porém - ao final do codigo terei aproximadamente 8 calculos. Por isso a necessidade do AUTOFILL em colunas dinamicas. qq ajuda será bem vinda. Worksheets("Base214").Activate Dim ultima_linha As Long Dim LastColumn As Long Dim sht As Worksheet Dim StartCell As Range Set sht = Worksheets("Base214") Set StartCell = Range("A1") ultima_linha = Range("A" & Rows.Count).End(xlUp).Row ultima_coluna = sht.Cells(StartCell.Row, sht.Columns.Count).End(xlToLeft).Column Range("A1").Select Selection.End(xlToRight).Select ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "Classificacao" ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = _ "=IF(COUNTIF(Suporte!R2C1:R22C1,Base214!RC12)>=1,""ADIANTAMENTO"",""padrão"")" Range("ultima_coluna").AutoFill Destination:=Range(ultima_coluna & ultima_linha) Range("A1").Select

Muito boa solução também OreiaG! Funcionou muito bem também! Salvei aqui!!

Bom dia Afonso! Muito obrigado pela ajuda! WOW! Funcionou como um relogio! muito obrigado! Também estou pesquisando sobre como fazer esse ajuste das datas ou condicional das datas. Postarei aqui assim que encontrar uma solução

Olá Afonso funcionou perfeitamente na planilha que mandei como exemplo. Porém quando fui tentar aplicar em uma outra planilha com a mesma estrutura. Entrou em LOOP e travou o excel. ( vide planilha anexa - com a mesma estrutura, porém em colunas diferentes e com grande quantidade de dados ) Deixei exatamente os titulos e posição das colunas dos campos "chaves" que estava tentando utilizar. ABA FATURADO: CHAVE_I - Coluna AB ABA RECEBIDOS: CHAVE_II - Coluna U Reforçando o meu problema: se o valor da CHAVE_I ( CLIENTE + NF ) da ABA FATURADO estiver CONTIDO em alguma linha da na linha CHAVE_II da ABA RECEBIDOS - ele preenche com data de VENCIMENTO na aba FATURADO. Pode ser que os valores se repitam por algum motivo que desconheco - neste caso, o codigo deve pegar a data mais antiga. qualquer ajuda será bem vinda! CONSOLIDACAO_TESTE.xlsx

Bom dia pessoal, tudo bem? Estou tentando fazer um VBA onde tenho 2 ABAS: 1.Faturado 2.Recebido o que já consegui via formula ( dps vou jogar para o VBA ) é identificar se uma NF da aba Faturado está CONTIDA na ABA Recebido - por que isso? porque o sistema inclui caracteres na ABA recebido NF 1234 - ABA FATURADO sai como 1234#01 na RECEBIDOS - porém podem ter outros caracteres. Planilha exemplo anexo, ABA FATURADO - não tem a data de vencimento da NF, já a recebido possui. O que não consegui fazer foi: se o valor da CHAVE ( CLIENTE + NF ) da ABA FATURADO estiver CONTIDO em alguma linha da na linha CHAVE_I da ABA RECEBIDOS - ele preenche com data de VENCIMENTO na aba FATURADO. Pode ser que os valores se repitam por algum motivo que desconheco - neste caso, o codigo deve pegar a data mais antiga. estou tentando fazer via VBA porque essa etapa faz parte de um processo que estou tentando automatizar nesse acompanhamaneto, desde já agradeço! AJuda_VBA_Esta_Contido.xlsx

Olá Patropi, estou reenviando a planilha. O que estou fazendo é o seguinte: B2 - usuario escolhe o Mês B3 - Data inicial sempre será o dia 01 de cada mês B4 - Usuario escolhe a data final - ou seja no desenvolver da planilha o que vou fazer é que aparecera a producao ate a data escolhida, producao no dia anterior, etc. Eu poderia fazer uma lista de validacao com todos os dias do ano, mas imagina a pessoa ter que procurar a data numa listagem o 365 linhas. Fazendo com essa formula a pessoa escolhe o mes e so aparece na data final a validacao com as datas desse mês especifico. Essa formula funciona com ate 6 SES, como tenho 12 SES ficou muito grande... valeuuuPlanilha_Teste.xlsx

Boa tarde Patropi, anexei planilha exemplo. a validacao de dados em que a formula ficou muito grande se refere a celula B4. grato ffialho Planilha_Teste.xlsx

Pessoal, Preciso de uma ajuda, em como reduzir o tamanho de uma formula que preciso inserir no Campo de Formulas de Validacao de Dados. a Formula segue abaixo: =IF($J$2=$Y$2;INDIRECT($Y$2);IF($J$2=$Z$2;INDIRECT($Z$2);IF($J$2=$AA$2;INDIRECT($AA$2);IF($J$2=$AB$2;INDIRECT($AB$2);IF($J$2=$AC$2;INDIRECT($J$2);IF($J$2=$AD$2;INDIRECT($J$2);IF($J$2=$AE$2;INDIRECT($J$2);IF($J$2=$AF$2;INDIRECT($J$2);IF($J$2=$AG$2;INDIRECT($J$2);IF($J$2=$AH$2;INDIRECT($J$2);IF($J$2=$AI$2;INDIRECT($J$2);IF($J$2=$AJ$2;INDIRECT($J$2);$IV$4)))))))))))) O que ela faz: no campo J2 a pessoa tem uma lista de validacao com os meses do ano. Quando o mês é encontrado ela habilita uma 2a lista de validação onde a pessoa vai escolher o dia daquele mês. O problema é que a formula acima é muito grande para inserir no campo da formula de validacao de lista, preciso de uma ajuda em como reduzir esta formula ou transforma-la em uma macro. qq ajuda é bem vinda. valeu!!