excel - VBA: Trying to consolidate all worksheets into one new worksheet in single workbook -

-

i trying copy worksheets, 1 @ time, , pasting new worksheet. these files come multiple third parties worksheets can vary. i'm running problem below when trying determine last row lrow , last column lcol because error appears saying object doesn't support property or method. plan on submitting work error proofing or general macro tips appreciated.

sub ws_copy() dim lrow long dim lcol long dim pasterow long dim wscount integer dim integer  'on error resume next     'application.displayalerts = false         = application.inputbox(prompt:="enter place order of first tab copied.", title:="worksheet consolidation", type:=1)       if isempty(i) = true         exit sub     else      if isnumeric(i) = false         msgbox "enter numeric value."     else      if isnumeric(i) = true          worksheets.add(before:=sheets(1)).name = "upload"               wscount = worksheets.count          = + 1 wscount           lrow = worksheets(i).find("*", after:=cells(1, 1), _                     lookin:=xlformulas, _                     lookat:=xlpart, _                     searchorder:=xlbyrows, _                     searchdirection:=xlprevious, _                     matchcase:=false).row          lcol = worksheets(i).find("*", after:=cells(1, 1), _                     lookin:=xlformulas, _                     lookat:=xlpart, _                     searchorder:=xlbycolumns, _                     searchdirection:=xlprevious, _                     matchcase:=false).row       pasterow = lrow + 1      workbook.worksheets(i).range(cells(1, 1), cells(lrow, lcol)).copy     workbook.worksheets("upload").cells(pasterow, 1).paste            next      else     exit sub      end if     end if     end if  'on error goto 0 'application.displayalerts = false  end sub

a common way find last row/column is:

with worksheets(i)      lrow = .cells(.rows.count, 1).end(xlup).row     lcol = .cells(1, .columns.count).end(xltoleft).column  end

hth


Comments

Post a Comment

Popular posts from this blog

wordpress - (T_ENDFOREACH) php error -

-
creating wordpress website , i'm getting following php error: parse error: syntax error, unexpected 'endforeach' (t_endforeach) in /home/soralmedia/public_html/wp-content/themes/soral media/woocommerce/myaccount/my-orders.php on line 98 here's code file: <?php /** * orders * * shows recent orders on account page. * * template can overridden copying yourtheme/woocommerce/myaccount/my-orders.php. * * however, on occasion woocommerce need update template files , (the theme developer). * need copy new files theme maintain compatibility. try this. * little possible, happen. when occurs version of template file will. * bumped , readme list important changes. * * @see http://docs.woothemes.com/document/template-structure/ * @author woothemes * @package woocommerce/templates * @version 2.5.0 */ if ( ! defined( 'abspath' ) ) { exit; } $my_orders_columns = apply_filters( 'woocommerce_my_account_my_orders_columns', array( ...
Read more

Export Excel workseet into txt file using vba - (text and numbers with formulas) -

-
i new vba have developed code use in excel move text/numbers txt file. issue have 3 functions need go same txt file. when run first function has set fs = createobject("scripting.filesystemobject") set = fs.createtextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the other 2 functions had save. set fs = createobject("scripting.filesystemobject") set = fs.savetextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the first function go txt file, other 2 error object doesn't support property or method. when changed 3 create last function goes txt file. can not figure out word use in order make other 2 functions follow txt file in order keyed. the entire code follows private sub addrecord_click() on error goto errhandler module1.nys45uploadfilename = application.getsaveasfilename(filefilter:="textfiles (*.txt), *.txt") if module1.nys45uploadfilename = "false" exit sub ...
Read more

Using django-mptt to get only the categories that have items -

-
sample structure: all uppercase: category mixed case: item root ├── books │   ├── fiction │   │   └── classics │   └── non-fiction ├── clothing └── electronics ├── laptops ├── phones │   ├── apple │   │   ├── iphone 6 │   │   ├── iphone 6 plus │   │   ├── iphone 6s │   │   └── iphone 6s plus │   ├── motorola │   │   ├── moto g4 │   │   ├── moto g4 play │   │   ├── moto g4 plus │   │   └── moto x │   └── samsung └── tablets └── apple i'm trying have index page show "electronics" category. "clothing" category shouldn't show since it's empty , "books" category shouldn't show either since, although has child categories, child categories don't have items. similarly, "electronics" page should show "phones" category. "laptops" category shouldn't show since it's empty , "tablets" category shouldn't show either since...
Read more