instruccion para fijar pantalla

28/07/2006 - 03:57 por isaac | Informe spam
con el codigo siguiente fijo la pantalla o inmovilizo los paneles, para
que al tener muchas filas pueda visualizar los titulos y lo que hago es
en el comando Ventana | inmovilizas paneles:

Range("B42").Select
ActiveWindow.FreezePanes = true
end sub

pero cuando el rango b42 esta a la mitad de la pantalla, alli se fijan,
lo que quisiera es que el codigo fije la celda b42 en la esquina
superior izquierda de la pantalla sin importar en que parte se
encuentre, cuando se dispare la macro, para que asi me deje una area de
trabajo razonable.

alguien sabe como hacerlos,

Gracias
 

Leer las respuestas

#1 Héctor Miguel
28/07/2006 - 07:14 | Informe spam
hola, isaac !

con el codigo siguiente fijo la pantalla o inmovilizo los paneles, para que al tener muchas filas pueda visualizar los titulos
y lo que hago es en el comando Ventana | inmovilizas paneles:
Range("B42").Select
ActiveWindow.FreezePanes = true
pero cuando el rango b42 esta a la mitad de la pantalla, alli se fijan
lo que quisiera es que el codigo fije la celda b42 en la esquina superior izquierda de la pantalla sin importar en que parte se encuentre
cuando se dispare la macro, para que asi me deje una area de trabajo razonable.



adapta las siguientes lineas, indicando que numero de linea quedara como 'top' y que numero de columna como 'left'
el codigo seleccionara una celda 'abajo y a la derecha' para fijar los paneles...

With ActiveWindow
If .Panes.Count > 1 Then .FreezePanes = False
.ScrollRow = 41
.ScrollColumn = 1
Cells(.ScrollRow + 1, .ScrollColumn + 1).Select
.FreezePanes = True
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares