COMO ACUMULAR UNA SUMA EN UNA MISMA CELDA
Publicado por Hector Emilio (4 intervenciones) el 15/01/2021 22:45:29
HOLA YA SE COMO REALIZA UNA SUMA EN UNA MISMA(ES DECIR PONGO UN VALOR EN LA CELDA POR EJEMPLO 5, LUEGO PONGO EN LA MISMA CELDA EL 10, INMEDIATAMENTE SE SUMA Y CAMBIA A 15)
HASTA AHI TODO BIEN
EL PROBLEMA ES QUE TENGO MUCHAS CELDAS A LAS QUE TENGO QUE REALIZAR LO MISMO, PERO SOLO LO LOGRE CON UNA CELDA. COMO LO HARIA PARA LAS DEMAS.
EL CODIGO PARA UNA CELDA SERIA ESTE
HASTA AHI TODO BIEN
EL PROBLEMA ES QUE TENGO MUCHAS CELDAS A LAS QUE TENGO QUE REALIZAR LO MISMO, PERO SOLO LO LOGRE CON UNA CELDA. COMO LO HARIA PARA LAS DEMAS.
EL CODIGO PARA UNA CELDA SERIA ESTE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
Dim valor As Long
Dim cantidadVeces As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$8" Then
cantidadVeces = cantidadVeces + 1
If cantidadVeces > 1 Then
Exit Sub
End If
valor = valor + Sheets("PAPELERIA").Range("D8").Value
Sheets("PAPELERIA").Range("D8").Value = valor
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
valor = 0
cantidadVeces = 0
If Target.Address = "$D$8" Then
valor = Sheets("PAPELERIA").Range("D8").Value
End If
End Sub
Valora esta pregunta
0