Macro función de suma de rango
La variable totalsuma no me esta funcionando es la suma de la columna i, algo sugerencia de como hacer que la variable total suma funciones lo intente con sum() pero no me funciono
Range("I2").Select
RangoSuma = Range(Cells(2, 9), Cells(20000, 9))
totalsuma = Application.WorksheetFunction.Sum(RangoSuma)
'Range("x2").Value = Range("i2").Value / totalsuma
Range("x2").Select
'ActiveCell.FormulaR1C1 = "=+RC[-15]/" & totalsuma
1 Respuesta
Podrías usar este códigos:
Sub sumaColumnaI()
Dim i As Long
Dim totalSuma As Double
totalSuma = 0
For i = 2 To 20000
If IsNumeric(Cells(i, 9)) Then totalSuma = totalSuma + Cells(i, 9)
Next i
Range("x2").Value = Range("i2").Value / totalSuma
End Sub
Muchas gracias por ayudarme la verdad ocupaba una solución y no soy muy experto en macros hasta hace 2 semanas los voy entendiendo repito gracias y saludos!
