Visual Basic para Aplicaciones - Ayuda con Macro... No mueve pantalla

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con Macro... No mueve pantalla

Publicado por Raymundo (1 intervención) el 28/10/2011 05:31:30
Hola:

Tengo un archivo Excel con varios modulos.

Deseo que al abrir el libro el cursor se mueva a la celda A1 y se pueda visualizar el area de A1 a K25, sin embargo con el código que muestro a continuación NO logro que se mueva la pantalla. En el área de indicador de celda me muestra que SI se paso el cursor a A1 pero la pantalla se queda estática mostrandome de la columna Q en adelante.

Solicito puedan indicarme que estoy haciendo Mal... y como poder solucionarlo.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").Select
Range("E13").Select
ActiveWorkbook.Worksheets("Comparables").ScrollArea = "A1:K25"
ActiveWorkbook.Worksheets("Comparables_Lin").ScrollArea = "A1:P28"
Sheets(1).Protect UserInterFaceOnly:=True
Sheets(1).EnableSelection = xlUnlockedCells
Sheets(2).Protect UserInterFaceOnly:=True
Sheets(2).EnableSelection = xlUnlockedCells
Application.DisplayAlerts = False
'Workbooks(Book).Worksheets("Comparables").Activate
End Sub

Private Sub Worksheet_Activate()
ActiveWindow.LargeScroll ToRight:=-2
Range("A1").Select
Range("E13").Select
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Ayuda con Macro... No mueve pantalla

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 28/10/2011 13:22:47
probá con lo siguiente

Application.Goto Range("A1"), True

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar