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

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

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

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

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

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