Quisiera con un botón grabar de un formulario ejecutar un a suma de un rando de celdas utilizando call summar

Tengo la siguiente sub función y necesito mediante el botón grabar en mi formulario que se ejecute esta suma, a mi no me funciona es decir que al hacer click en el botón

Pongo

Call summar

Pero no hace nada

¿Esto es posible?

Public Sub summar()
Dim L As Integer
Dim SUMA As Double
L = 5 'este es ni numero de fila donde comienza la primera celda 5
With Tabelle20 '(esta ES MI HOJA)
Do While .Cells(L, 2) <> ""
SUMA = Application.WorksheetFunction.Sum(.Range(.Cells(L, 2), .Cells(L, 9))) 'ver aqui que numero es nuestra columna es 2
.Cells(L, 10) = SUMA 'ver cual es el numero de nuestra celda donde se debe introducir la suma total
L = L + 1
Loop
End With
End Sub

1 respuesta

Respuesta
1

Puedes poner una imagen de tu hoja Tabelle20

Es la columna j5 hasta J11 y Lo mismo pero con otras celdas para V5 hasta V13

Gracias siempre muy rápido

Eusebio

En tu imagen no se ven las columnas B a la I.

La macro funciona bien, pero suma las celdas de B2 a la i2 y el resultado lo pone en la J2.

Luego suma de B3 a i3 y pone el resultado en J3

Saludos dante, recuerda que mi botón esta en un formulario y necesito que la operación se ejecute desde ese formularios y como te dije la suma (B5:I5)= se coloca en J5 así sucesivamente hasta la fila 10 pero utilizando call summar que es mi public

Eusebio

No te entendí.

La macro funciona para mí.

Pero tu imagen no concuerda con la descripción de la macro.

Pon la macro dentro del código del userform.

E spero que eso ayude, de otra manera deberás explicar con más detalle.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas