COMO INICIAR EN UNA HOJA DETERMINADA?

En un modulo escribe la siguiente rutina

Sub Auto_Open()
Application.ScreenUpdating = False
Sheets("Hoja2").Select
Range("a4").Select
End Sub
Con esto cada vez que se abra el archivo , se ejecutara este codigo.
Tambien podrias hacerlo AL "cerrar" el archivo, esto seria lo ultimo que se
ejecutaria automaticamente antes de cerrar

Sub Auto_Close()
Application.ScreenUpdating = False
Sheets("Hoja2").Select
Range("a4").Select
End Sub



"alberto corrales" escribió:

HOLA COMO ESTAN A LA COMUNIDAD.

QUIERO PEDIRLES SU APOYO, COMO PUEDO HACERLE PARA QUE AL ABRIR UN ARCHIVO AL
INICIO SE POSISIONE POR ASI DECIRLO EN LA CELDA A3, HOJA2 Y AUNQUE CIERREN EL
ARCHIVO Y SE ENCUENTREN EN OTRA HOJA (POR EJEM HOJA1) AL ABRIRLO SE
POSICIONES EN LA CELDA A3 DE LA HOJA2.

MIL GRACIAS DE ANTEMANO...

MIL GRACIAS "José A. Castrejón"

ESTUVO PERFECTA...

ahora tengo otro problema:

en una "ThisWorkbook" tengo:

Private Sub Workbook_Open()
Dim Clave As String
Clave = Trim(InputBox("Teclee la clave de acceso:"))
Select Case Clave
Case "ALBERTO": Sheets("BUSCAR").Activate
Case "JOSE": Sheets("BUSCAR1").Activate
Case Else: MsgBox "No ha tecleado una clave correcta":
ActiveWorkbook.Save
ThisWorkbook.Close
End Select
End Sub

JUNTO CON LA ANTERIOR CON EN UN MODULO:
Sub Auto_Open()
Application.ScreenUpdating = False
Sheets("Hoja2").Select
Range("a4").Select
End Sub

SE EJECUTA PRIMERO LA DEL "ThisWorkbook" Y QUIERO PRIMERO EL DEL MODULO...
COMO LE PUEDO HACER...

ALGUNA AYUDITA PORFA... SE LOS AGRADESCO : )

Hola de nuevo, :

Hasta donde se ve, lo que quieres es que cuando cargue la hoja, te selecione
una hoja("x") y despues te pida la clave de acceso, para determinar que otra
hoja debe seleccionar.
Por ello pienso que la solucion más sencilla es que "juntes" los codigos en
un solo evento, ya sea en el Auto_Open() o en el Auto_Open () de
"thisworkbook".

Saludos


"alberto corrales" escribió:

ahora tengo otro problema:

en una "ThisWorkbook" tengo:

Private Sub Workbook_Open()
Dim Clave As String
Clave = Trim(InputBox("Teclee la clave de acceso:"))
Select Case Clave
Case "ALBERTO": Sheets("BUSCAR").Activate
Case "JOSE": Sheets("BUSCAR1").Activate
Case Else: MsgBox "No ha tecleado una clave correcta":
ActiveWorkbook.Save
ThisWorkbook.Close
End Select
End Sub

JUNTO CON LA ANTERIOR CON EN UN MODULO:
Sub Auto_Open()
Application.ScreenUpdating = False
Sheets("Hoja2").Select
Range("a4").Select
End Sub

SE EJECUTA PRIMERO LA DEL "ThisWorkbook" Y QUIERO PRIMERO EL DEL MODULO...
COMO LE PUEDO HACER...

ALGUNA AYUDITA PORFA... SE LOS AGRADESCO : )

Pega el codigo dentro del modulo que realiza el proceso que mencionas

Application.ScreenUpdating = False
Sheets("Hoja2").Select
Range("a4").Select