Excel - Cómo sumar o restar un nº a todo un rango sin poner fórmulas en las celdas de ese rango

 
Vista:
Imágen de perfil de celia
Val: 679
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo sumar o restar un nº a todo un rango sin poner fórmulas en las celdas de ese rango

Publicado por celia (256 intervenciones) el 06/11/2019 09:17:55
Buenas de nuevo
¿Es posible sumar o restar un nº a todo un rango y que solo deje los valores numéricos finales en dicho rango?
Adjunto un ejemplo
Gracias como siempre por vuestra ayuda
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 wordexperto.com
Val: 5.916
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo sumar o restar un nº a todo un rango sin poner fórmulas en las celdas de ese rango

Publicado por wordexperto.com (2021 intervenciones) el 06/11/2019 10:43:31
Hazlo con Pegado especial, marcando en Operación, Sumar. Si pones la grabadora de macros y depuras tendrás el código.
https://www.youtube.com/channel/UCxgRcbeR2q4PpE1Pgft74Iw
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
Imágen de perfil de celia
Val: 679
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo sumar o restar un nº a todo un rango sin poner fórmulas en las celdas de ese rango

Publicado por celia (256 intervenciones) el 06/11/2019 12:13:47
Hola de nuevo.
Intenté seguir esos pasos pero no sé cómo depurar el código
Hice esta macro que solo suma cada celda consigo misma
El pegado especial no me da opción de elegir la celda B1 para que la sume a todo el rango B4:AE13

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1()
'
' Macro1 Macro
'
 
    Range("B1").Select
    Selection.Copy
    Application.CutCopyMode = False
    Range("B4:AE13").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    Application.WindowState = xlNormal
 
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
0
Comentar
Imágen de perfil de Dirk
Val: 451
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Cómo sumar o restar un nº a todo un rango sin poner fórmulas en las celdas de ese rango

Publicado por Dirk (114 intervenciones) el 06/11/2019 15:29:16
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
Imágen de perfil de celia
Val: 679
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo sumar o restar un nº a todo un rango sin poner fórmulas en las celdas de ese rango

Publicado por celia (256 intervenciones) el 06/11/2019 21:42:10
Hola Dirk
Va genial, 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
Imágen de perfil de wordexperto.com
Val: 5.916
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo sumar o restar un nº a todo un rango sin poner fórmulas en las celdas de ese rango

Publicado por wordexperto.com (2021 intervenciones) el 06/11/2019 16:19:29
Únicamente este código es necesario, y a eso me refería con depurar:

1
2
3
4
5
6
7
8
Sub Macro1()
' Macro1 Macro
    Range("B1").Select
    Selection.Copy
    Range("B4:AE13").Select
    Selection.PasteSpecial Operation:=xlAdd
    Application.CutCopyMode = False
End Sub

Seguro que hay otros métodos que usan menos código, que dejo a los expertos en vba.

https://www.youtube.com/channel/UCxgRcbeR2q4PpE1Pgft74Iw
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
Imágen de perfil de celia
Val: 679
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo sumar o restar un nº a todo un rango sin poner fórmulas en las celdas de ese rango

Publicado por celia (256 intervenciones) el 06/11/2019 21:44:11
Muy bien, gracias de nuevo
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