Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Calcular porcentagem com macro
Calcular porcentagem com macro
Ola galera boa tarde sou novo aqui tenho uma planilha que fiz umas macros e precisava de ajuda em uma que eu gostaria de fazer , calcular a porcentagem dos itens que tenho, o grande problema é que vai ter vezes de não ter exceção de sistema e outra nao ter de exceção de negócio isso que eu to empacando , segue arquivos em anexo que puder me ajudar agradeço , eu fiz os calculos na mão mesmo pra exemplo, gostaria de uma macro que calculasse essas porcentagens
- Anexos
-
- ambev.7z
- (6.46 KiB) Baixado 157 vezes
-
- amb.jpg (71.4 KiB) Exibido 2539 vezes
Editado pela última vez por Lutgens10 em Sex Mar 05, 2021 2:53 pm, em um total de 1 vez.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Calcular porcentagem com macro
Seu anexo não contem o arquivo exemplo, e particularmente, não entendi a demanda.
Re: Calcular porcentagem com macro
Ola Reinaldo obg pelo retorno coloquei o arwuivo em anexo , eu queria uma macro pra calcular essas porcentagens automaticamente como mandei na foto
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Calcular porcentagem com macro
Possibilidade
Código: Selecionar todos
Sub Calc_Percen()
Dim Lin As Long, Ini As Double
Lin = 2
Ini = 0
With Sheets("Plan1")
While Cells(Lin, 1) <> ""
If Left(Cells(Lin, 1), 3) = "Com" Or Left(Cells(Lin, 1), 3) = "Exc" Then
Cells(Lin, 3).Value = Cells(Lin, 2).Value / Ini
Else
Cells(Lin, 3).Value = 1
Ini = Cells(Lin, 2).Value
End If
Lin = Lin + 1
Wend
End With
End Sub