Sume n veces

[bada]

hola como puedo hacer para que al presionar un boton

me sume ejemplo: la celda D1:E1 y me la guarde en la celda F1

y si ingreso nuevos valores a las celdas d y e me las sume con un for

aqui mi codigo :

suma= WorksheetFunction.sum(Range("D1:E1"))

Worksheets("Hoja1").Range("F1") =suma

donde hace la suma pero la quiero para mas celdas sin repetir el codigo ya que quiero sumar mas de 100 celdas

saludos y gracias

[Gerson Pineda]

Hola [uSER=183218]@bada[/uSER]

Prueba asi

suma = WorksheetFunction.Sum(Range("D1", Range("IV1").End(xlToLeft)))

Worksheets("Hoja1").Range("F1") = suma

[/CODE]

Pensando en que el rango sera extendido en la misma fila

Saludos

[bada]

que significa IV1?? y no me funciona :/ ya que quiero q se sume la siguiente fila se podria hacer un for que me sume desde un ejemplo desde la fila 5 hasta la 100

que ingrese datos a la a d3 y e3 y el resultado lo guarde en f3 y asi hasta el 100

yo lo puedo hacer pero me quedaria un codigo gigante y puede que excel no soporte o no jaja saludos

[John Jairo V]

Hola [uSER=183218]@bada[/uSER] (y [uSER=9328]@Gerson Pineda[/uSER])!

Para lo que estás pidiendo (de lo que se entiende) no es necesario un for. Prueba este código:

Sub Suma()
    Dim uf&
    uf = Range("D" & Rows.Count).End(xlUp).Row
    With Range("F1:F" & uf)
        .Formula = "=SUM(D1:E1)"
        .Value = .Value
    End With
End Sub[/PHP]

Acá está ejecutando la suma por filas desde la fila 1 hasta la última donde hayan datos (de acuerdo a la columna D.) Si quieres, por ejemplo, que arranque en la fila 5 hasta la última:

[PHP]Sub Suma()
Dim uf&
uf = Range("D" & Rows.Count).End(xlUp).Row
With Range("F5:F" & uf)
.Formula = "=SUM(D5:E5)"
.Value = .Value
End With
End Sub[/PHP]

Comentas!

Espero haberte ayudado, Dios te bendiga!

[bada]

muchas te pasaste Dios te bendiga a ti igual hermano en la fé

[bada]

[uSER=113842]@johnmpl[/uSER] otra consulta como puedo hacer lo mismo pero en vez de sumar este libro me sume otro ?? ejemplo

suma = WorksheetFunction.sum(Range("G16:H16"))

Workbooks("Libro2").Worksheets("Hoja1").Range("J16") = suma