
arreglar macro que no funciona al copiar celdas con fórmulas de una parte a otra de la hoja
Publicado por manu (8 intervenciones) el 06/06/2022 20:48:20
hola comunidad
Tengo esta macro que no funciona. Lo que hace es copiar un rango de celdas de un sitio de la hoja a otro.
Ese rango tiene celdas con texto y celdas con fórmulas que desactivé cambiando el signo = por YYY.
Tras usar la macro y ya pegado ese rango donde quería pretendía volver a cambieas esa YYY por el = en todas las celdas pegadas pero no me lo hace.
Alguien tiene idea del motivo? o alguna sugerencia?
Gracias de antemano.
Saludos
Sub Macro1()
'
Range("BJ21:BV34").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-99
Range("AF4").Select
ActiveSheet.Paste
Selection.Replace What:="YYY", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Tengo esta macro que no funciona. Lo que hace es copiar un rango de celdas de un sitio de la hoja a otro.
Ese rango tiene celdas con texto y celdas con fórmulas que desactivé cambiando el signo = por YYY.
Tras usar la macro y ya pegado ese rango donde quería pretendía volver a cambieas esa YYY por el = en todas las celdas pegadas pero no me lo hace.
Alguien tiene idea del motivo? o alguna sugerencia?
Gracias de antemano.
Saludos
Sub Macro1()
'
Range("BJ21:BV34").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-99
Range("AF4").Select
ActiveSheet.Paste
Selection.Replace What:="YYY", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Valora esta pregunta


0