I have 13 worksheets that I need to consolidate onto one sheet. I've tried
using codes from VB and they error out or give unwanted results.

I want to use consolidate from the data tools group. I've followed the steps
provided by help and even though the function appears to execute; no results
show. Can someone help me out?

--
Melanie

Hi Melanie

Try this example with aexample workbook
http://www.rondebruin.nl/copy2.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Melanie" wrote in message ...
I have 13 worksheets that I need to consolidate onto one sheet. I've tried
using codes from VB and they error out or give unwanted results.

I want to use consolidate from the data tools group. I've followed the steps
provided by help and even though the function appears to execute; no results
show. Can someone help me out?

--
Melanie

I've tried the VB scripts provided and they error out at:

'Find the last row with data on the DestSh
Last = LastRow(DestSh)

--
Melanie


"Ron de Bruin" wrote:

Hi Melanie

Try this example with aexample workbook
http://www.rondebruin.nl/copy2.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Melanie" wrote in message ...
I have 13 worksheets that I need to consolidate onto one sheet. I've tried
using codes from VB and they error out or give unwanted results.

I want to use consolidate from the data tools group. I've followed the steps
provided by help and even though the function appears to execute; no results
show. Can someone help me out?

--
Melanie

Hi Melanie

When you read the information above the macro it say

Important:
The macro examples use the LastRow or LastCol function that you can find in the last section of this page.

So copy the function also in the same module as the macro.
Let me know if you need more help



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Melanie" wrote in message ...
I've tried the VB scripts provided and they error out at:

'Find the last row with data on the DestSh
Last = LastRow(DestSh)

--
Melanie


"Ron de Bruin" wrote:

Hi Melanie

Try this example with aexample workbook
http://www.rondebruin.nl/copy2.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Melanie" wrote in message ...
I have 13 worksheets that I need to consolidate onto one sheet. I've tried
using codes from VB and they error out or give unwanted results.

I want to use consolidate from the data tools group. I've followed the steps
provided by help and even though the function appears to execute; no results
show. Can someone help me out?

--
Melanie

Yes, I read that but, I don't understand where in the series of commands do I
insert the additional function. The directions don't provide enough detail
for a novice.
--
Melanie


"Ron de Bruin" wrote:

Hi Melanie

When you read the information above the macro it say

Important:
The macro examples use the LastRow or LastCol function that you can find in the last section of this page.

So copy the function also in the same module as the macro.
Let me know if you need more help



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Melanie" wrote in message ...
I've tried the VB scripts provided and they error out at:

'Find the last row with data on the DestSh
Last = LastRow(DestSh)

--
Melanie


"Ron de Bruin" wrote:

Hi Melanie

Try this example with aexample workbook
http://www.rondebruin.nl/copy2.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Melanie" wrote in message ...
I have 13 worksheets that I need to consolidate onto one sheet. I've tried
using codes from VB and they error out or give unwanted results.

I want to use consolidate from the data tools group. I've followed the steps
provided by help and even though the function appears to execute; no results
show. Can someone help me out?

--
Melanie

Hi

Sorry I think this part of the page is not so bad <g
Download also the Example workbook so you can see it working


Where do I copy the macros and functions from this page?

1. Alt-F11
2. InsertModule from the Menu bar
3. Paste the Code there
4. Alt-Q to go back to Excel
5. Alt-F8 to run the subs

Common Functions required for all routines:

Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function


Function LastCol(sh As Worksheet)
On Error Resume Next
LastCol = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Column
On Error GoTo 0
End Function





--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Melanie" wrote in message ...
Yes, I read that but, I don't understand where in the series of commands do I
insert the additional function. The directions don't provide enough detail
for a novice.
--
Melanie


"Ron de Bruin" wrote:

Hi Melanie

When you read the information above the macro it say

Important:
The macro examples use the LastRow or LastCol function that you can find in the last section of this page.

So copy the function also in the same module as the macro.
Let me know if you need more help



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Melanie" wrote in message ...
I've tried the VB scripts provided and they error out at:

'Find the last row with data on the DestSh
Last = LastRow(DestSh)

--
Melanie


"Ron de Bruin" wrote:

Hi Melanie

Try this example with aexample workbook
http://www.rondebruin.nl/copy2.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Melanie" wrote in message ...
I have 13 worksheets that I need to consolidate onto one sheet. I've tried
using codes from VB and they error out or give unwanted results.

I want to use consolidate from the data tools group. I've followed the steps
provided by help and even though the function appears to execute; no results
show. Can someone help me out?

--
Melanie

Just copy the LastRow and LastCol functions from Ron's site and paste them
into the same module where you placed the other code.

They are separate functions and are not inserted into any existing code.


Gord Dibben MS Excel MVP


On Tue, 28 Apr 2009 14:40:01 -0700, Melanie
wrote:

Yes, I read that but, I don't understand where in the series of commands do I
insert the additional function. The directions don't provide enough detail
for a novice.