Este fórum está sendo desativado

[Leonardo1234]

Olá Pessoal,

Eu tive que abrir um novo tópico pois como eu marquei resolvido no tópico anterior, eu não consigo mandar mais mensagens. Eu notei um problema ao rodar a macro em que quando algum percentual está zerado, a macro da erro. Conseguem ajudar?

[osvaldomp]

Acrescente a parte em vermelho conforme abaixo.

If c.Offset(, 1).Value > 0 Then Cells(Rows.Count, 9).End(3)(2).Resize(c.Offset(, 1).Value * 100).Value = c.Value

[AlbertoBraga]

Olá
Eu tinha criado uma solução, e não deu tempo de postar, mas como o tópico foi reaberto e longe de qualquer comparação, mas para não perder o esforço, anexo planilha com a minha solução.
Até