Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Sume n veces

publicado

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

Featured Replies

publicado
  • Autor

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

publicado

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!

publicado
  • Autor

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

publicado
  • Autor

[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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.