Acumular valores ingresados, utilizando command button

Necesito acumular el valor ingresado en las celdas (Av34) a la (Av41) en las celdas (Aw34) a la (Aw41) utilizando un command button y al mometo de acumular se borren los valores para seguir ingresando.

1 Respuesta

Respuesta
1

En tu hoja dibuja un botón Activex. Luego clic derecho y opción 'Ver código' te llevará al Editor de macros. Allí copia este código:

Private Sub CommandButton1_Click()
'x Elsamatilde
Dim i As Integer
For i = 34 To 41
    Range("AW" & i) = Range("AW" & i) + Range("AV" & i)
Next i
'limpiar rango
[AV34:AV41] = ""
[AV34].Select
End Sub

Para más información acerca de cómo asignar macros a botones te invito a leer el tema que lo tengo desarrollado en la sección Macros de mi sitio.

Sdos y no olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas