Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Macro pra calcular porcentagem
Macro pra calcular porcentagem
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 quem 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 159 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Macro pra calcular porcentagem
Uma 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