Open workbook to same worksheet and next empty row

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

inta251 - 24 Feb 2007 17:46 GMT

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)

Reply to this Message

Gord Dibben - 24 Feb 2007 19:16 GMT

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

Reply to this Message

inta251 - 24 Feb 2007 20:00 GMT

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

Reply to this Message

ShaneDevenshire - 24 Feb 2007 19:17 GMT

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

Signature

Cheers,
Shane Devenshire

> To open workbook to same worksheet I using macro
>
[quoted text clipped - 7 lines]
> Thanks in advance.
> Sincerely, Igor. (inta251)

Reply to this Message