Sumar celdas con una macro

1 post / 0 nuevos
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 16 horas 19 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2775
Sumar celdas con una macro

Estimados/as usuarios/as del foro un saludo cordial a tod@s:

Quiero plantear la siguiente cuestión.

Tengo una macro que me facilitaron para le ejecucion que ejecuta, la cual paso a introducir siempre me ha funcionado usandola en una plantilla con tabla

¿Con q icono se envuelve?

'Suma celda por celda segun se va seleccionando celda, sin usar la tecla Ctrl+Click
'Al seleccionar alguna celda vacia, la H17 donde hace la sumatoria, se coloca vacia
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CeldaSuma = "H17" 'indica la celda donde se debe sumar la selección
If Target.Count = 1 Then
    If Target.Value = 0 Then
        Application.EnableEvents = False
            Range(CeldaSuma).ClearContents
        Application.EnableEvents = True
    Else
    'Solo celdas que contengan numeros con el signo Bs
        If InStr(1, Target.NumberFormat, "Bs") And IsNumeric(Target.Value) And Target.Address(False, False) <> CeldaSuma Then
    'Todas Celdas que contengan numeros con signo o sin signo
        'If IsNumeric(Target.Value) And Target.Address(False, False) <> CeldaSuma Then
            Range(CeldaSuma).Value = Target.Value + Range(CeldaSuma).Value
        End If
    End If
End If
End Sub

h**ps://w*w.subeimagenes.com/img/suma-2055018.html   (corregir asteriscos con https://www)

No logro insertar aqui la imaje

Dejo de sumar

En otra maquina con el mismo Office, con el mismo y la misma edicion de Windows, funciona en esta maquina no, conclusion mia, ¿a este excel le pasa algo? ¿que será?

Gracias por su ayuda en la solucion y su tiempo

AdjuntoTamaño
File seguimiento_fundicion_excel_mas.xlsm18.33 KB

Etiquetas: