Macro para sumas consecutivas
Buen día! A todos. Vuelvo a necesitar de su apoyo para conseguir solución a este problema.
Tengo un libro en el que existen 7 hojas, dentro de las cuales hay más de 150 operaciones de sumas y otras con multiplicaciones.
Utilizo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
con el fin de que se calcule todo a medida de que se llenan las celdas.
Para la suma estoy usando este código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
VarSuma = Range(Cells(2, 2), Cells(8, 2))
SUMA = Application.WorksheetFunction.Sum(VarSuma)
If SUMA = 0 Then
Range("B9").Value = ""
Else
Range("B9").Value = SUMA
End If
End SubPero al colocar más de 110 operaciones me genera un error diciendo que es muy largo el procedimiento.
¿Existe una Macro que sume distintas filas sin necesidad de colocar el código citado antes, tantas veces? Y evitar el error
Gracias de nuevo. Adjunto un xlsx para ejemploficar.
1 Respuesta
Creo que el evento no es el apropiado sería mejor el evento CHANGE. Si el rango B2:B8 son celdas en las que se introducen datos lo pondría así:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b2:b8")) Is Nothing Then
suma = Application.WorksheetFunction.Sum(Range("b2:b8"))
Range("b9").Value = suma
End If
End Subno olvides finalizar la consulta
Gracias, pero este código lo podré repetir más de 150 veces y no me generará el error de sentencia muy larga?
Este código se autojecutará automáticamente siempre que modifiques cualquier celda del rango B2:B8 de la hoja en la que estés y de forma ilimitada.
