How to Select Last Row of Sheet
 

Hello,

I have a sub & function where I email the First (column headers) and Last
Row of the Sheet. (Sheetname=VoiceMailData)

The email is working, and copying the data works fine. I just can't select
the First and Last Row.

I have 12 columns. Here is my code:

Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Cells(Rows.Count, "A").End(xlUp).Row
'You can also use a range if you want
'Set rng =
Sheets("YourSheet").Range("D4:D12").SpecialCells(x lCellTypeVisible)
On Error GoTo 0


Thanks

Stephan

How to Select Last Row of Sheet
 

Cells(65536, 1).End(xlUp).Select

This will select the last row of data in column 1. This is the same as
clicking on cell A65536 and pressing Ctrl+Up.

"Stephan Leduc" wrote:

Hello,

I have a sub & function where I email the First (column headers) and Last
Row of the Sheet. (Sheetname=VoiceMailData)

The email is working, and copying the data works fine. I just can't select
the First and Last Row.

I have 12 columns. Here is my code:

Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Cells(Rows.Count, "A").End(xlUp).Row
'You can also use a range if you want
'Set rng =
Sheets("YourSheet").Range("D4:D12").SpecialCells(x lCellTypeVisible)
On Error GoTo 0


Thanks

Stephan

How to Select Last Row of Sheet
 

Thanks Andy.

Do you have something to select the Last Row for the Range A To L columns ?

Thanks

Stephan

"AndyM" wrote:

Cells(65536, 1).End(xlUp).Select

This will select the last row of data in column 1. This is the same as
clicking on cell A65536 and pressing Ctrl+Up.

"Stephan Leduc" wrote:

Hello,

I have a sub & function where I email the First (column headers) and Last
Row of the Sheet. (Sheetname=VoiceMailData)

The email is working, and copying the data works fine. I just can't select
the First and Last Row.

I have 12 columns. Here is my code:

Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Cells(Rows.Count, "A").End(xlUp).Row
'You can also use a range if you want
'Set rng =
Sheets("YourSheet").Range("D4:D12").SpecialCells(x lCellTypeVisible)
On Error GoTo 0


Thanks

Stephan

How to Select Last Row of Sheet
 

hi
select first and last row.
select first row......entire row

Range("A1").EntireRow.Select

select cells in first row with data in cells(assumes a solid row of data).

Range(Range("A1"), Range("A1").End(xlToRight)).Select

select last row - entire row

lr = Cells(Rows.Count, "A").End(xlUp).Row
Rows(lr).EntireRow.Select

select cells in last row with data in cells(assumes a solid row of data).

lr = Cells(Rows.Count, "A").End(xlUp).Row
Range(Range("A" & lr), Range("A" & lr).End(xlToRight)).Select

Regards
FSt1

"Stephan Leduc" wrote:

Hello,

I have a sub & function where I email the First (column headers) and Last
Row of the Sheet. (Sheetname=VoiceMailData)

The email is working, and copying the data works fine. I just can't select
the First and Last Row.

I have 12 columns. Here is my code:

Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Cells(Rows.Count, "A").End(xlUp).Row
'You can also use a range if you want
'Set rng =
Sheets("YourSheet").Range("D4:D12").SpecialCells(x lCellTypeVisible)
On Error GoTo 0


Thanks

Stephan

How to Select Last Row of Sheet
 

i've used this befo

Sub test()
Dim ws As Worksheet
Dim lastcol As Long
Dim lastrow As Long
Dim arr As Variant
Dim i As Long

Set ws = Worksheets("Sheet1")
lastcol =12

ReDim arr(1 To lastcol)
For i = 1 To lastcol
arr(i) = ws.Cells(Rows.Count, i).End(xlUp).Row
Next
lastrow = Application.Max(arr)
End Sub


--


Gary

"Stephan Leduc" wrote in message
...
Thanks Andy.

Do you have something to select the Last Row for the Range A To L columns
?

Thanks

Stephan

"AndyM" wrote:

Cells(65536, 1).End(xlUp).Select

This will select the last row of data in column 1. This is the same as
clicking on cell A65536 and pressing Ctrl+Up.

"Stephan Leduc" wrote:

Hello,

I have a sub & function where I email the First (column headers) and
Last
Row of the Sheet. (Sheetname=VoiceMailData)

The email is working, and copying the data works fine. I just can't
select
the First and Last Row.

I have 12 columns. Here is my code:

Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Cells(Rows.Count, "A").End(xlUp).Row
'You can also use a range if you want
'Set rng =
Sheets("YourSheet").Range("D4:D12").SpecialCells(x lCellTypeVisible)
On Error GoTo 0


Thanks

Stephan

How to Select Last Row of Sheet
 

hi
supplimental
select cells in first row with data in cells(data not in all cells).

lc = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(1, 1), Cells(1, lc)).Select"

select cells in last row with data in cells(data not in all cells).

lc = Cells(1, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(lr, 1), Cells(lr, lc)).Select

lot of ways to do this.
regards
FSt1

FSt1" wrote:

hi
select first and last row.
select first row......entire row

Range("A1").EntireRow.Select

select cells in first row with data in cells(assumes a solid row of data).

Range(Range("A1"), Range("A1").End(xlToRight)).Select

select last row - entire row

lr = Cells(Rows.Count, "A").End(xlUp).Row
Rows(lr).EntireRow.Select

select cells in last row with data in cells(assumes a solid row of data).

lr = Cells(Rows.Count, "A").End(xlUp).Row
Range(Range("A" & lr), Range("A" & lr).End(xlToRight)).Select

Regards
FSt1

"Stephan Leduc" wrote:

Hello,

I have a sub & function where I email the First (column headers) and Last
Row of the Sheet. (Sheetname=VoiceMailData)

The email is working, and copying the data works fine. I just can't select
the First and Last Row.

I have 12 columns. Here is my code:

Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Cells(Rows.Count, "A").End(xlUp).Row
'You can also use a range if you want
'Set rng =
Sheets("YourSheet").Range("D4:D12").SpecialCells(x lCellTypeVisible)
On Error GoTo 0


Thanks

Stephan