Vídeo recomendado
https://youtu.be/diWPPPhW-9E

soma de 4 colunas

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Bruno 33
Colaborador
Colaborador
Mensagens: 23
Registrado em: Qui Mai 18, 2017 8:01 am

soma de 4 colunas

Mensagem por Bruno 33 »

Bom dia

Preciso de somar todas as linhas com valores de 4 colunas da folha mapa resumo e colocar o resultado numa célula especifica da folha resumo direção, mas de uma forma dinâmica e só estou a conseguir essa soma para a primeira linha, como mostro no exemplo:

Dim soma As Integer
Dim divisão As Integer

i = 5
soma = ThisWorkbook.Sheets("Mapa Resumo").Cells(5, 4).Value + ThisWorkbook.Sheets("Mapa Resumo").Cells(5, 5).Value + ThisWorkbook.Sheets("Mapa Resumo").Cells(5, 6).Value + ThisWorkbook.Sheets("Mapa Resumo").Cells(5, 7).Value

divisão = 4


ThisWorkbook.Sheets("Resumo Direção").Cells(i, 2).Value = soma / divisão

i = i + 1

Alguém pode ajudar nesta dúvida?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: soma de 4 colunas

Mensagem por Tov Elen Shau »

Bom dia...

Se possível, poste a planilha, fica mais fácil para analisar o código.

Atenciosamente

Tov Elen Shau


Bruno 33
Colaborador
Colaborador
Mensagens: 23
Registrado em: Qui Mai 18, 2017 8:01 am

Re: soma de 4 colunas

Mensagem por Bruno 33 »

Esta é a primeira planilha:
Sem Título.png
Sem Título.png (45.28 KiB) Exibido 4903 vezes
Onde tem os valores dos meses e anos

Esta é a planilha que estou a criar nova:
Sem Título1.png
Sem Título1.png (34.5 KiB) Exibido 4903 vezes
Agora preciso de calcular a média de todos os produtos como os títulos das colunas.

Eu já tenho isto feito, mas só me faz para os primeiros dois produtos, não percebo o motivo de não fazer para os outros:

Dim soma As Integer
Dim divisão As Integer

i = 5
Do While ThisWorkbook.Sheets("Mapa Resumo").Cells(i, y).Value <> ""

soma = ThisWorkbook.Sheets("Mapa Resumo").Cells(i, 4).Value + ThisWorkbook.Sheets("Mapa Resumo").Cells(i, 5).Value + ThisWorkbook.Sheets("Mapa Resumo").Cells(i, 6).Value + ThisWorkbook.Sheets("Mapa Resumo").Cells(i, 7).Value

divisão = 4


ThisWorkbook.Sheets("Resumo Direção").Cells(i, 2).Value = soma / divisão

i = i + 1
Loop


Agradeço se me conseguires ajudar. Obrigado


Bruno 33
Colaborador
Colaborador
Mensagens: 23
Registrado em: Qui Mai 18, 2017 8:01 am

Re: soma de 4 colunas

Mensagem por Bruno 33 »

Já descobri o problema, é de ter células vazias, têm de estar preenchidas com zeros, mas eu preencho e sempre que faço atualizar a planilha elimina os zeros todos


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Bruno 33
Colaborador
Colaborador
Mensagens: 23
Registrado em: Qui Mai 18, 2017 8:01 am

[Resolvido] soma de 4 colunas

Mensagem por Bruno 33 »

Obrigado Tov Elen Shau pela dica e ajuda


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: soma de 4 colunas

Mensagem por Tov Elen Shau »

Valeu Mano...

Qualquer outra dúvida estamos por aqui.

Atenciosamente

Tov Elen Shau


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder