Boa tarde!!

Por favor, deposite seu arquivo modelo comapactado!!

Att

Alexandre, obrigado pela resposta!

Criei um modelo com base no arquivo original que possuo.

Nele contém as fórmulas que preciso.

O que acontece é que preciso de algo que possa adicionar essas fórmulas com apenas um clique. Pois lido com diversas planilhas desse modelo e perco um grande tempo com isto.

O fator que atrapalha é: Essa tem apenas duas linhas e vem o Total geral, mas poderia ter outra que tivesse 1000 linhas. E infelizmente resolver isso está além dos meus conhecimentos

Muito obrigado pela ajuda!

Boa tarde!!

Você pretende colocar as formula (Via VBA), em quais colunas (K e L)?
Além disso, precisa sempre ter o total geral na ultima linha?

Att

Alexandre,

Obrigado pela pergunta! Vou tentar explicar melhor

Eu preciso dar a resposta com todo o range para cada coluna, que especificarei abaixo, mas se tiver alguma outra solução que de o resultado e não envolva o Total Geral será muito bem vindo!

Eu preciso dos seguintes cálculos:

Coluna E > Média de todo o range.
Coluna F e G > Soma de todo o Range.
Coluna H > Divisão de G por F em todas as linhas inclusive no agregado do total geral (ou o substituto dele).
Coluna I e J > = mesma fórmula da F e G
Coluna K > Mesma fórmula da H
Coluna L > K+G/J+F para todas as linhas inclusive no agregado do total geral (ou o substituto dele).

Novamente, muito obrigado pela atenção e disposição!

Grande abraço!

Boa tarde!!

Seria mais ou menos isso.

Sub AleVBA_10784()
Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).EntireRow.Delete
 Dim TotalRow As Range
    With Worksheets("EmpresaX").Cells(4, 1).CurrentRegion
        Set TotalRow = .Rows(.Rows.Count).Offset(2, 0)
        TotalRow.Cells(0, 1) = "Total:"
        TotalRow.Cells(0, 5) = WorksheetFunction.Average(.Columns(5))
        TotalRow.Cells(0, 6) = WorksheetFunction.Sum(.Columns(6))
        TotalRow.Cells(0, 7) = WorksheetFunction.Sum(.Columns(7))
        TotalRow.Cells(0, 9) = WorksheetFunction.Sum(.Columns(9))
        TotalRow.Cells(0, 10) = WorksheetFunction.Sum(.Columns(10))
    End With
End Sub

Alexandre,

Obrigado pelo trabalho! Mas infelizmente ainda não é o que estou buscando

Deixa eu explicar um pouco do contexto, eu vou ter que repassar esse arquivo para outras pessoas e me pediram que as formúlas fossem imbutadas para que pudessem fazer simulações e ver se alcançavam as metas.

Por isso eu precisaria de ter a formulá de cada uma mesmo e não somente o resultado, apesar de ter achado um máximo você ter conseguido isso

Além disso, nas outras 3 colunas eu também precisava da formula tanto na linha total como nas linhas superiores, para quando alterarem o valor de uma pessoa já verem o resultado imediato dessa alteração.

Se fosse só um arquivo eu nem estaria me incomodando mas mando muitos iguais a esse e o tempo gasto nisso é bem considerável

Estou aberto a sugestões!

Grande abraço e muito obrigado!

Ainda estou travado nisso

Tem como fazer isso por VBA?

Boa tarde!!

Talvez lhe ajude.
http://www.sendspace.com/file/kgm6nb

Att

Amigão,

Muito obrigado mas ainda precisava das fórmulas

Fiz um jeito meio boca aqui com formula relátiva, ainda está longe do ideal mas está quebrando um galho ^^

Abraços!

Boa tarde!!

Perdão eu me esqueci de você
http://www.sendspace.com/file/2eb13s

Att