Macro - Excel copiar a média de uma linha de uma planilha para outra

[Andrey_Silva]

Boa tarde pessoal...

Tenho um problema e gostaria que  me ajudassem a resolvê-lo.

Tenho uma planilha onde tenho 2 termos (brix e pureza) onde por dia tenho 3 valores para cada um deles.

Gostaria de uma macro que gerasse pra mim a média dos valores de casa um desses termos e jogasse para outra planilha.

Poderiam me ajudar?

 

Abraços....

Boletim Analítico da Fabricação do Açucar -.xls

[Visitante]

Tenho uma planilha onde tenho 2 termos (brix e pureza) onde por dia tenho 3 valores para cada um deles.

 

Não verifiquei todas as datas mas logo de início os dias 08/05/2014 e 29/05/2014 apresentam 4 valores.

E aí ? São sempre 3 valores ou pode variar?

 

Na planilha "Ficaria assim" você colocou:

06/05/2014    92,4    80,61666667

06/05/2014    91,6    82,45666667

06/05/2014    90,8    77,11666667

 

Não seria ?

06/05/2014    92,4    80,61666667

07/05/2014    91,6    82,45666667

08/05/2014    90,8    77,11666667

[Andrey_Silva]

Bom dia caro amigo...

 

São sempre 3 valores sim! É que por dia são feitas 3 análises! Daí eu faria a média das 3 análises e jogaria essa média em outra planilha entendeu?

Espero ter esclarecido sua dúvida assim como espero que possa me ajudar.

Forte abraço

[Visitante]

 

São sempre 3 valores sim! É que por dia são feitas 3 análises!

Ou estamos falando de coisas diferentes ou você não examinou a sua tabela.

Suponho que a tabela que servirá de base para extrair as médias diárias seja a tabela que está na planilha "0". É isso? Se sim, nessa tabela há datas com um valor, há datas com 3 valores e há datas com 4 valores!

No entanto você afirma que são sempre 3 valores. E aí???

 

Ainda, você não esclareceu a segunda dúvida que postei.

[Andrey_Silva]

Ola...bom dia.

 

você tem razão...na base de dados aparece um dia que tem 4 análises. No entanto, na verdade, serão só três.

Logo, seria a média apenas dos três valores como corri na planilha anexa.

Obrigado.

Boletim Analítico da Fabricação do Açucar -.xls

[Visitante]

 

você tem razão...na base de dados aparece um dia que tem 4 análises.

 

Não! São vários dias com 4 análises. Ainda há dias com 1 análise e há dias com 5 análises (veja 11/8).

Você precisa disponibilizar uma tabela corrigida, ou seja, com 3 análises/valores para cada dia, se não, não consigo te ajudar.

[Andrey_Silva]

Poxa você tem razão.

O correto então era fazer a média das análises que foram feitas no mesmo dia e mandar para outra planilha.

Tem jeito?

[Visitante]

Solução utilizando macro.

Instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. a partir da planilha que contém a tabela tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).

O resultado será lançado na Plan3. Altere se necessário.
 

Sub MédiasDiárias() Dim LRo As Long, LRd As Long, i As Long, p As Long  LRo = Cells(Rows.Count, 1).End(xlUp).Row   For i = 6 To LRo    p = Application.CountIf(Range("A" & i & ":A" & LRo), Cells(i, 1))     With Sheets("Plan3")      LRd = .Cells(Rows.Count, 1).End(xlUp).Row      .Cells(LRd + 1, 1) = Cells(i, 1)      .Cells(LRd + 1, 2) = Application.Average(Range(Cells(i, 3), Cells(i + p - 1, 3)))      .Cells(LRd + 1, 3) = Application.Average(Range(Cells(i, 4), Cells(i + p - 1, 4)))      i = i + p - 1     End With   Next iEnd Sub

[Andrey_Silva]

Caro amigo....

 

Funcionou perfeitamente a macro.

 

Muito obrigado!

 

Me ajudou muito!!!!