Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Como activar la "DESHACER" y "REACER"

Akapella

Member
Registrado
23 Abr 2021
Mensajes
46
Un placer salidar Foro, tengo la siguientes lineas de codigo que no me desactivan las opciones de Deshacer y de Reacer las cuales son vitales para los trabajos que se realizan
Código:
Private Sub...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

    Sin permisos de acceso
Solución
Así solo perderás la pila de niveles al seleccionar las celdas C7 y C42:
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CeldaActual As String
CeldaActual = ActiveCell.Address
If Not Intersect(Target, Range("C7")) Is Nothing Then
  ActiveSheet.Shapes("Combobox1").Visible = True
Else
  If ActiveSheet.Shapes("Combobox1").Visible = True Then
     ActiveSheet.Shapes("Combobox1").Visible = False
  End If
End If
If Not Intersect(Target, Range("C42")) Is Nothing Then
  ActiveSheet.Shapes("Combobox2").Visible = True
Else
  If ActiveSheet.Shapes("Combobox2").Visible = True Then
     ActiveSheet.Shapes("Combobox2").Visible = False
  End If
End If
End Sub


Aunque la pregunta del millón es ¿Porque no usas listas de...
Así solo perderás la pila de niveles al seleccionar las celdas C7 y C42:
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CeldaActual As String
CeldaActual =...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Volver
Arriba