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