Problema con FreezePanes y celda activa oculta

[Juan Suarez]

Hola, buenos días.

Estoy inmovilizando paneles y ocultando columnas,, el código que adjunto funciona correctamente de acuerdo a los requerimientos, el problema surge después  de ejecutarse,, la celda activa al desplazarse queda oculta detrás de los paneles inmovilizados.

 Saludos

Inmovilizar.xlsb

[JSDJSD]

Prueba y comenta

Sub Movilizar()
    Dim CeldaActiva As Range
    Set CeldaActiva = ActiveCell
    
    With ActiveWindow
        .FreezePanes = False
        .Split = False
        Columns.Hidden = False
    End With
    
    CeldaActiva.Select
End Sub

Sub InmovilizarColumnaYFilas()
    Dim CeldaActiva As Range
    Set CeldaActiva = ActiveCell
    
    With ActiveWindow
        .FreezePanes = False
        .SplitColumn = 4
        .SplitRow = 5
        .FreezePanes = True
    End With
    
    Columns("A:B").Hidden = True
    CeldaActiva.Select
End Sub

 

[JSDJSD]

El archivo

Inmovilizar.xlsm

[Juan Suarez]

Estimado, Muchas gracias!

Resuelto el tema

Saludos

[Juan Suarez]

hace 3 horas, JSDJSD dijo:

El archivo

Inmovilizar.xlsm 22.39 kB · 1 descarga

Ya que estamos y para avanzar un poco mas, como haríamos para movilizar solo las columnas y dejar inmovilizadas las filas?, no le encontre la vuelta

Gracias

[JSDJSD]

Prueba y comenta

Inmovilizar(1).xlsm

[JSDJSD]

Ten siempre en cuenta que cuando se resuelve una consulta, debe darse el tema por resuelto y si tenemos otra consulta abrimos un nuevo tema, saludos

[Juan Suarez]

hace 6 horas, JSDJSD dijo:

Ten siempre en cuenta que cuando se resuelve una consulta, debe darse el tema por resuelto y si tenemos otra consulta abrimos un nuevo tema, saludos

Entendido estimado,

Muchas gracias por los aportes

Abrazo