Ahora les traigo una consulta nueva no se que tan sencilla o compleja sea pero la verdad no eh dado con la solucion,, existe la forma de que cuando ejecute mi macro antes de esta instruccion:

Windows("Libro1.xlsx").Close savechanges:=True

Tambien me guarde el libro en una posicion en especifico es decir, si yo abro mi libro y recorro con el scroll hasta la ultima columna donde tengo informacion y le doy guardar, despues cuando vuelva a abrir el archivo me lo abrira en la posicion donde me quede (al final de la ultima columna donde tengo informacion).

Antes de cerrar tengo esta instruccion, la probe con las dos

Range("B2").activate

Range("B2").select

Pero al momento de abrir el archivo sigue en la posicion donde lo guarde la ultima vez, si recorro hasta la columna B me muestra seleccionada B2 pero no es lo que necesito, si alguien conoce alguna manera de hacer esto de forma automatica se los agradesco.

Saludos ciao ciao.

Hola Gerardo

Si lo que pretendes es ir a la ultima celda de una columna con datos ,puedes usar "Range("B100").end(xlup)".

Con esto se recorre las celdas desde la fila 100 de la columna B en direccion ascendente hasta encontrar una celda con datos.

Esto lo puesde aplicar al abrir el libro.

Private Sub Workbook_Open()

Range("B100").end(xlup)

end[/CODE]

Hola Ama, che gracias por tomarte el tiempo de leer mi problematica y por mandarme una respuesta. Tal vez no me explique bien, solo necesito que al abrir el libro siempre me abra en la segunda columna, ya que de las columnas de la A hasta la D tengo inmovilizar panel entonces las demas columnas se van recorriendo, si yo abro mi libro siempre me lo abre en el punto donde me quede la ultima vez, es decir si yo me quede señalando la celda c56 me muestra el libro en ese punto, yo quiero que al abrir me muestre siempre digamos en la columna E.

Saludos y gracias por tomarte el tiempo.

Gerardo A.

Hola Gerardo

Pues con el procedimiento Open puedes ir a la celda inc¡dicada al abrir el libro.

Private Sub Workbook_Open()

Cells(1, 5).Select

End Sub

Y si lo que necesitas es ir a la columna "E" pero a la fila donde se guardó el libro ,puedes usar esta.

Private Sub Workbook_Open()

Cells(ActiveCell.Row, 5).Select

End Sub

Esto lo tienes que poner en el módulo "ThisWorkbook" del libro.

Gracias Ama, quedo muy satisfecho con la respuesta.

TEMA SOLUCIONADO

Saludos