Saltar al contenido

Problema con FreezePanes y celda activa oculta

publicado

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

Featured Replies

publicado

Prueba y comentaimage.thumb.gif.8e266e9eac4b6e2053a296d717406a83.gif

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

 

publicado
  • Autor

Estimado, Muchas gracias!

Resuelto el tema

Saludos

publicado
  • Autor
hace 3 horas, JSDJSD dijo:

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

publicado

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

publicado
  • Autor
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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.