To open workbook to same worksheet I using macro

Private Sub Workbook_Open()
Sheets (€œtrips€�).Select
End Sub

Is that possible add to this macro,
open to the next empty row or next empty cell in Column A?

Thanks in advance.
Sincerely, Igor. (inta251)

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...tions/200702/1

Amended code below assuming no blanks in column A

Private Sub Workbook_Open()
Sheets (“trips”).Select
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
End Sub

Assuming first blank cell down.

Private Sub Workbook_Open()
Sheets("trips").Select
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub


Is that possible add to this macro,
open to the next empty row or next empty cell in Column A?

Thanks in advance.
Sincerely, Igor. (inta251)


Gord Dibben MS Excel MVP

Yes but we really have to know the data layout. Suppose that before the next
empty row there is data in all the cells of column A, then the code would be
[A1].End(XLDown).Offset(1,0).Select


--
Cheers,
Shane Devenshire


"inta251 via OfficeKB.com" wrote:

To open workbook to same worksheet I using macro

Private Sub Workbook_Open()
Sheets (€œtrips€�).Select
End Sub

Is that possible add to this macro,
open to the next empty row or next empty cell in Column A?

Thanks in advance.
Sincerely, Igor. (inta251)

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...tions/200702/1

Thanks for respond.
Both formulas working for me perfectooo.
THANKS again.
Good weekend.
Sincrely, Igor (inta251)

Private Sub Workbook_Open()
Sheets ("trips").Select
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
End Sub


Private Sub Workbook_Open()
Sheets("trips").Select
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...tions/200702/1