Este fórum está sendo desativado

[CAMILOALVES]

Boa Tarde!
Se Possível, Precisava de Uma Macro Para Copiar as Fórmulas Existentes nas linhas “I3”, “J3”, “K3”, “L3”, Respectivamente Até as Últimas Linhas, ou seja: “I1048576”, “J1048576”, “K1048576”, “L1048576”.
OBS: Planilha Anexada Para Análise.
Desde Já Agradeço!

[babdallas]

Código: Selecionar todos

Public Sub CopiaFormulas()
    Dim lngUltLin       As Long
    
    With wshBD
        lngUltLin = .Cells(.Rows.Count, 1).End(xlUp).Row
        
        .Range("I4:L" & lngUltLin).Formula = .Range("I3:L3").Formula
    End With
End Sub

[CAMILOALVES]

Prezado babdallas 16 Abr 2020 às 18:39
Boa Tarde!
Primeiramente Agradecer por dispor de seu tempo para me ajudar.
Então...
Ao implementar sua macro, noto que há duplicidades após o resultado, criei uma macro que até conseguiram atingir o objetivo para colunas: “J”, “K”, “L”. Porém para coluna “I”, o sistema não está suportando copiar as fórmulas até o final (I1048576), Suponho ser por causa das funções: ÍNDICE + CORRESP +CONT.SE combinadas em uma só fórmula.

Pedido de Ajuda: Se Possível, Caso Você tenha uma solução mais eficaz para o objetivo da coluna “I” seria importantíssimo e valioso.
Sendo....
O objetivo das colunas “I” é o seguinte: a partir da coluna “I3” é sumarizar os dados a partir das informações contidas nas colunas “A” , note que tem dados iguais (“Rolamento Esfera”) em momentos diferentes.
Já as colunas “J” e “K” somam os eventos (“E” e “S”) das colunas “B” em função da coluna “I”
A coluna “L”, faz um cálculo simples de subtração.
Anexo novamente o arquivo para que caso Seja Possível, Solicito Vossa Análise Quanto a Situação da Coluna “i”
Desde Já Agradeço

[babdallas]

Veja no Gerenciador de Nomes que eu tinha criado um intervalo dinâmico. Faça o mesmo na sua planilha.

Segue planilha anterior com o código corrigido. Não esqueça de criar o intervalo dinâmico na sua planilha, agilizando o tempo de cálculo das fórmulas.