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

Calcular porcentagem com macro

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Lutgens10
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Seg Jun 29, 2020 6:44 pm

Calcular porcentagem com macro

Mensagem por Lutgens10 »

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 156 vezes
amb.jpg
amb.jpg (71.4 KiB) Exibido 2537 vezes
Editado pela última vez por Lutgens10 em Sex Mar 05, 2021 2:53 pm, em um total de 1 vez.


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.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Calcular porcentagem com macro

Mensagem por Reinaldo »

Seu anexo não contem o arquivo exemplo, e particularmente, não entendi a demanda.


Lutgens10
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Seg Jun 29, 2020 6:44 pm

Re: Calcular porcentagem com macro

Mensagem por Lutgens10 »

Ola Reinaldo obg pelo retorno coloquei o arwuivo em anexo , eu queria uma macro pra calcular essas porcentagens automaticamente como mandei na foto


Lutgens10
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Seg Jun 29, 2020 6:44 pm

Re: Calcular porcentagem com macro

Mensagem por Lutgens10 »

alguem ajuda ?


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.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Calcular porcentagem com macro

Mensagem por Reinaldo »

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


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