Boton del menu de herramienas deshacer desaparece
Publicado por Dan (8 intervenciones) el 15/01/2024 20:31:49
Buenas noches
Tengo el siguiente archivo y he añadido un código para que al desplazarse hacia la derecha, cuando se oculta el textbox, al hacer click, con el ratón, la barra aparezca visible. El problema es que si luego hago algún cambio en alguna celda el botón de deshacer de la barra superior se deshabilita. Si quito dicho código se puede deshacer cualquier cambio.
¿Alguna solución?
Gracias de antemano. Un saludo
Tengo el siguiente archivo y he añadido un código para que al desplazarse hacia la derecha, cuando se oculta el textbox, al hacer click, con el ratón, la barra aparezca visible. El problema es que si luego hago algún cambio en alguna celda el botón de deshacer de la barra superior se deshabilita. Si quito dicho código se puede deshacer cualquier cambio.
¿Alguna solución?
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Dentro_de As String
Dim Debe_estar_en_1 As String
Dim Izquierda As Single
Dim Arriba As Single
Dentro_de = ActiveWindow.VisibleRange.Address
Debe_estar_en_1 = Range(Dentro_de).Cells(-4, 2).Address
With ActiveSheet.Shapes("TextBox1")
If .TopLeftCell.Address = Debe_estar_en_1 Then Exit Sub
Izquierda = Range(Debe_estar_en_1).Left
.Left = Izquierda
End With
End Sub
- Lista-animales.xlsm.rar(24,6 KB)
Valora esta pregunta
0