Export Last Completed Row of Sheet to a New Spreadsheet
 

Good Afternoon,

I have a user form upon which users enter information. That information is
then submitted to the master Log.

Question: Is there code i can run that will search the master log, select
the last row and export it to a new Excel Sheet. This sheet will then be
used as an attachment.

Any help would be great!
--
Carlee

Export Last Completed Row of Sheet to a New Spreadsheet
 

Fire from anywhere in the workbook.

Sub copylastrowinanothersheet()
With Sheets("sheet11") 'source
..Rows(.Cells(Rows.Count, "a").End(xlUp).Row).Copy _
Sheets("sheet16").Rows(14) 'destination
End With
End Sub
--
Don Guillett
SalesAid Software

"Carlee" wrote in message
...
Good Afternoon,

I have a user form upon which users enter information. That information
is
then submitted to the master Log.

Question: Is there code i can run that will search the master log, select
the last row and export it to a new Excel Sheet. This sheet will then be
used as an attachment.

Any help would be great!
--
Carlee

Export Last Completed Row of Sheet to a New Spreadsheet
 

Hi there,
I tried the code you provided, but i got an error stating 'out of
subscription range'
any ideas?

With Sheets("Site Reading Log") 'source
..Rows(.Cells(Rows.Count, "1").End(xlUp).Row).Copy _
Sheets("Exported").Rows(14) 'destination
End With
--
Carlee


"Don Guillett" wrote:

Fire from anywhere in the workbook.

Sub copylastrowinanothersheet()
With Sheets("sheet11") 'source
..Rows(.Cells(Rows.Count, "a").End(xlUp).Row).Copy _
Sheets("sheet16").Rows(14) 'destination
End With
End Sub
--
Don Guillett
SalesAid Software

"Carlee" wrote in message
...
Good Afternoon,

I have a user form upon which users enter information. That information
is
then submitted to the master Log.

Question: Is there code i can run that will search the master log, select
the last row and export it to a new Excel Sheet. This sheet will then be
used as an attachment.

Any help would be great!
--
Carlee

Export Last Completed Row of Sheet to a New Spreadsheet
 

try changing
Rows.Count, "1").End(xlUp).
to
Rows.Count, "a").End(xlUp) as I posted
or
Rows.Count,1).End(xlUp) without quotes
--
Don Guillett
SalesAid Software

"Carlee" wrote in message
...
Hi there,
I tried the code you provided, but i got an error stating 'out of
subscription range'
any ideas?

With Sheets("Site Reading Log") 'source
.Rows(.Cells(Rows.Count, "1").End(xlUp).Row).Copy _
Sheets("Exported").Rows(14) 'destination
End With
--
Carlee


"Don Guillett" wrote:

Fire from anywhere in the workbook.

Sub copylastrowinanothersheet()
With Sheets("sheet11") 'source
..Rows(.Cells(Rows.Count, "a").End(xlUp).Row).Copy _
Sheets("sheet16").Rows(14) 'destination
End With
End Sub
--
Don Guillett
SalesAid Software

"Carlee" wrote in message
...
Good Afternoon,

I have a user form upon which users enter information. That
information
is
then submitted to the master Log.

Question: Is there code i can run that will search the master log,
select
the last row and export it to a new Excel Sheet. This sheet will then
be
used as an attachment.

Any help would be great!
--
Carlee