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
Adjunto | Tamaño |
---|---|
![]() | 18.33 KB |