Como acumulo los datos ingresados en la celda a1 en a2?
Necesito acumular la cantidad ingresada en a1 y que me la vaya acumulando en a2, y al acumular a1 quede en blanco para seguir ingresando datos
1 Respuesta
Respuesta de Dante Amor
1
H o l a!
Pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target = "" Then Exit Sub
If IsNumeric(Target) Then
[B1] = [B1] + Target
Target = ""
Target.Select
End If
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
excelente dante gracias solo un detallito sabrás como acoplarlo a un command button?
Macro actualizada
Sub Acumular() 'Por.Dante Amor celda = "A1" If IsNumeric(Range(celda)) Then [B1] = [B1] + Range(celda) Range(celda) = "" End If End Sub
