Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
soma de 4 colunas
soma de 4 colunas
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?
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?
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: soma de 4 colunas
Bom dia...
Se possível, poste a planilha, fica mais fácil para analisar o código.
Atenciosamente
Tov Elen Shau
Se possível, poste a planilha, fica mais fácil para analisar o código.
Atenciosamente
Tov Elen Shau
Re: soma de 4 colunas
Esta é a primeira planilha:
Esta é a planilha que estou a criar nova: 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
Onde tem os valores dos meses e anosEsta é a planilha que estou a criar nova: 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
Re: soma de 4 colunas
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
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: soma de 4 colunas
Valeu Mano...
Qualquer outra dúvida estamos por aqui.
Atenciosamente
Tov Elen Shau
Qualquer outra dúvida estamos por aqui.
Atenciosamente
Tov Elen Shau