Greetings I have a very large book and with macros they work well, the problem I have is that in a sheet when I delete data from cells in the first instance the Undo is activated the arrow but then when I select any other cell the UNDO is deactivated
I allow myself to send in the event that may be causing this problem
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LimiteSuperior As Long, LimiteIzquierdo As Long
If Not Application.Intersect(Target, Range("AQ13:AQ25")) Is Nothing Then
Sheets("Hoja3").Visible = True
Sheets("PRESUPUESTOS").Shapes("IMAGENPU").Visible = True
Let LimiteSuperior = Target.Offset(-12, 0).Top
Let LimiteIzquierdo = Range("E1").Left
With ActiveSheet.Shapes("IMAGENPU")
.Top = LimiteSuperior
.Left = LimiteIzquierdo
End With
Else
If Not Application.Intersect(Target, Range("AQ26:AQ282")) Is Nothing Then
Sheets("Hoja3").Visible = True
Sheets("PRESUPUESTOS").Shapes("IMAGENPU").Visible = True
Let LimiteSuperior = Target.Offset(-25, 0).Top
Let LimiteIzquierdo = Range("E1").Left
With ActiveSheet.Shapes("IMAGENPU")
.Top = LimiteSuperior
.Left = LimiteIzquierdo
End With
Else
Sheets("PRESUPUESTOS").Shapes("IMAGENPU").Visible = False
Sheets("Hoja3").Visible = False
End If
End If
End Sub
I allow myself to send in the event that may be causing this problem
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LimiteSuperior As Long, LimiteIzquierdo As Long
If Not Application.Intersect(Target, Range("AQ13:AQ25")) Is Nothing Then
Sheets("Hoja3").Visible = True
Sheets("PRESUPUESTOS").Shapes("IMAGENPU").Visible = True
Let LimiteSuperior = Target.Offset(-12, 0).Top
Let LimiteIzquierdo = Range("E1").Left
With ActiveSheet.Shapes("IMAGENPU")
.Top = LimiteSuperior
.Left = LimiteIzquierdo
End With
Else
If Not Application.Intersect(Target, Range("AQ26:AQ282")) Is Nothing Then
Sheets("Hoja3").Visible = True
Sheets("PRESUPUESTOS").Shapes("IMAGENPU").Visible = True
Let LimiteSuperior = Target.Offset(-25, 0).Top
Let LimiteIzquierdo = Range("E1").Left
With ActiveSheet.Shapes("IMAGENPU")
.Top = LimiteSuperior
.Left = LimiteIzquierdo
End With
Else
Sheets("PRESUPUESTOS").Shapes("IMAGENPU").Visible = False
Sheets("Hoja3").Visible = False
End If
End If
End Sub
Last edited by a moderator: