Visual Basic para Aplicaciones - COMO ACUMULAR UNA SUMA EN UNA MISMA CELDA

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 13
Ha aumentado su posición en 8 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

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

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de NachoBM
Val: 32
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

COMO ACUMULAR UNA SUMA EN UNA MISMA CELDA

Publicado por NachoBM (7 intervenciones) el 17/01/2021 00:13:32
Hola,
1
If Target.Address = "$D$8" Then
Esa linea hace que independientemente de la celda en la que estes solo haga el calculo cuando estes en la "$D$8".
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 13
Ha aumentado su posición en 8 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

COMO ACUMULAR UNA SUMA EN UNA MISMA CELDA

Publicado por Hector Emilio (4 intervenciones) el 17/01/2021 03:31:43
esa es mi duda amigo como hago para que se haga en la celda en la que yo este, como dije antes se que esa linea hace que solo se haga la suma en D8 pero como haría para que se haga en otras celdas de forma independiente
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de NachoBM
Val: 32
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

COMO ACUMULAR UNA SUMA EN UNA MISMA CELDA

Publicado por NachoBM (7 intervenciones) el 17/01/2021 10:07:14
Hola,
Con el siguiente código lo puedes hacer:
1
2
3
4
5
6
7
8
9
10
11
12
13
Public valor As Long
 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
    Application.EnableEvents = False
    Target.Value = Target.Value + valor
fin:
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    valor = Target.Value
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 13
Ha aumentado su posición en 8 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

COMO ACUMULAR UNA SUMA EN UNA MISMA CELDA

Publicado por Hector Emilio (4 intervenciones) el 17/01/2021 23:14:43
EXCELENTE SOLUICIONO, EL UNICO PROBLEMA ES QUE YA NO ME DEJA ESCRIBIR EN LA HOJA JEJEJEJE, PORQUE NO FUNCIONA PARA UN GRUPO DE CELDAS EN ESPECÍFICO SI NO PARA TODA LA HOJA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.151
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

COMO ACUMULAR UNA SUMA EN UNA MISMA CELDA

Publicado por Antoni Masana (409 intervenciones) el 18/01/2021 11:26:31
Si especificas el rango de celdas puedes delimitar la zona de acción de la macro.
Evidentemente si no explicas cual es el rango la persona que te contesta no lo sabe y te responde con una generalidad.
Cuanta más información des más específicos pueden se las respuestas.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de NachoBM
Val: 32
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

COMO ACUMULAR UNA SUMA EN UNA MISMA CELDA

Publicado por NachoBM (7 intervenciones) el 19/01/2021 08:28:54
Hola,
Antoni tiene razón, debes ser mas específico,
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
Public valor As Long
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo fin
    Application.EnableEvents = False
 
    If Target.Cells.Count = 1 Then
 
        Set celda_dentro_del_rango = Application.Intersect(Target, Range("A1:A10")) ' Cambia el rango "A1:A10" al rango que necesites
 
        If Not celda_dentro_del_rango Is Nothing Then
            Target.Value = Target.Value + valor
        End If
 
    End If
 
fin:
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Cells.Count = 1 Then
    valor = Target.Value
End If
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 13
Ha aumentado su posición en 8 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

COMO ACUMULAR UNA SUMA EN UNA MISMA CELDA

Publicado por Hector Emilio (4 intervenciones) el 22/01/2021 23:33:44
si la verdad si me disculpo tienen razón debo ser mas específico. MUCHAS GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar