Merge cells from all worksheets into a master worksheet
I am attempting to use the macro as written, from
http://www.rondebruin.nl/copy2.htm. I have tried using the "Copy a range of each sheet" macro and also the "Copy from row 2 till the last row with data" macro. Each time I try to run them I get " Compile error:sub or function not defined" and visual basic is highlighting the following For Each sh In ThisWorkbook.Worksheets If sh.Name < DestSh.Name Then Last = LastRow(DestSh) LastRow is highlighted shLast = LastRow(sh) Is there something I need to define? |
Merge cells from all worksheets into a master worksheet
Hi pmv464
Read good On top of the page Important: The macro examples use the functions that you can find in the last section of this page And above the macro Note: This example use the function LastRow Copy the LastRow function also in the standard module -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "pmv464" wrote in message ... I am attempting to use the macro as written, from http://www.rondebruin.nl/copy2.htm. I have tried using the "Copy a range of each sheet" macro and also the "Copy from row 2 till the last row with data" macro. Each time I try to run them I get " Compile error:sub or function not defined" and visual basic is highlighting the following For Each sh In ThisWorkbook.Worksheets If sh.Name < DestSh.Name Then Last = LastRow(DestSh) LastRow is highlighted shLast = LastRow(sh) Is there something I need to define? |
Merge cells from all worksheets into a master worksheet
You need to enter this code in as well to define the function lastrow. The
code was at the bottom of the page where the code was. 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 MVK "pmv464" wrote in message ... I am attempting to use the macro as written, from http://www.rondebruin.nl/copy2.htm. I have tried using the "Copy a range of each sheet" macro and also the "Copy from row 2 till the last row with data" macro. Each time I try to run them I get " Compile error:sub or function not defined" and visual basic is highlighting the following For Each sh In ThisWorkbook.Worksheets If sh.Name < DestSh.Name Then Last = LastRow(DestSh) LastRow is highlighted shLast = LastRow(sh) Is there something I need to define? |
All times are GMT +1. The time now is 08:34 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com