Tips VBA en Excel Porcentaje de participación ListBox

[@EcoDev-Solutions]

Código del calculo y su porcentaje de participación
Sub Calcular()
Dim Suma As Double
Dim I As Single
Dim Por As Double
Dim SP As Double
Suma = 0
'Totales
With Me.ListBox1
For I = 0 To .ListCount - 1

Suma = Suma + .List(I, 1)

Next I
End With
Me.LblTotal.Caption = Suma

'Porcentaje de participacion
With Me.ListBox1
For I = 0 To .ListCount - 1

Por = .List(I, 1) / Suma
SP = SP + Por
.List(I, 2) = Format(Por, "0.00%")

Next I

End With
MsgBox Format(SP, "0.00%")
End Sub

[@analitycs1303]

Muchas gracias muy bueno...saluditos...!!!!

[@EcoDev-Solutions]

Gracias a ti

[@ingjuanpablofrancolozada6303]

hay una manera mas facil de realizar la autosuma mira alt = y enter
pero el video esta super.

[@EcoDev-Solutions]

Si.
Gracias por tu aporte.