vba - Copy and paste every 10 Excel rows into another workbook loop -


from excel workbook (original_workbook.xlsx) of 100 rows (or number of rows, preferably).

i macro copies , pastes every 10 rows new excel workbook named workbook_[date]_[random number].xlsx.

note: first row of original_workbook.xlsx header each new workbook. using recorded macro, have following vb code far:

workbooks.add activeworkbook.saveas filename:= _     "c:\path\workbook_[date]_[random number].xlsx", fileformat:= _     xlopenxmlworkbook, createbackup:=false  windows("original_workbook.xlsx").activate rows("1:1").select selection.copy windows("workbook_[date]_[random number].xlsx").activate activesheet.paste windows("original_workbook.xlsx").activate rows("2:11").select application.cutcopymode = false selection.copy windows("workbook_[date]_[random number].xlsx").activate range("a2").select activesheet.paste range("a2").select application.cutcopymode = false activeworkbook.save windows("original_workbook.xlsx").activate windows("workbook_[date]_[random number].xlsx").activate

i above code loop until there no more rows left.

i suspect rows("2:11").select need change. i've looked doing i, wasn't working. thank you.

recording macro great way idea of framework , individual commands involved in proves resulting code can verbose in areas , lacking in others.

your recorded macro lacking names of worksheets being copied , pasted , from. not part of recording active worksheets. purposes of code below, i've used sheet1 on both workbooks.

dim rw long, nwb workbook, owb workbook  set owb = windows("original_workbook.xlsx") set nwb = workbooks.add nwb.saveas filename:= _     "c:\path\workbook_[date]_[random number].xlsx", fileformat:= _     xlopenxmlworkbook, createbackup:=false  owb.sheets("sheet1")     .rows("1:1").copy _         destination:=nwb.sheets("sheet1").range("a1")     rw = 2 92 step 10         .cells(rw, 1).resize(10, 1).entirerow.copy _             destination:=nwb.sheets("sheet1").range("a2").offset(rw, 0)     next rw     nwb.save     .activate end  nwb.activate

i've set loop isn't clear want results. if stacked 1 on top of other infinitely easier copy , paste them @ once.

see how avoid using select in excel vba macros more methods on getting away relying on select , activate accomplish goals.


Comments

Post a Comment

Popular posts from this blog

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

php - Bypass Geo Redirect for specific directories -

i'm trying bypass redirect specific url within site. wondering if might able help. the code below code use, original urls replaces example.com i'd able access http://example.com/admin without redirect occuring. is there way this, , there way using own ip? function country_geo_redirect() { $country = getenv('http_geoip_country_code'); if ($country == "us" ) { wp_redirect("http://usa.example.com/"); exit; } else if ($country == "gb" ) { wp_redirect("http://uk.example.com/"); exit; } } add_action('init', 'country_geo_redirect'); you can bypass redirection code if server found ip address. if ip address == <my ip address> ' nothing here else country_georedirect() end if
Read more

php - .htaccess mod_rewrite for dynamic url which has domain names -

i want convert url ex:( example.com/link.php?url=facebook.com ) ( example.com/facebook.com.php ) how can using .htaccess. or there other process make job easier ? i tried adding script .htaccess file options +followsymlinks rewriteengine on rewriterule url-(.*)\.htm$ link.php?url=$1 but converting url adding "url-" ( example.com/url-facebook.com.php ) i want remove "url-" , want make ( example.com/facebook.com.php ) rewriteengine on rewritecond %{the_request} ^get.*link\.php\?url\= [nc] rewritecond %{request_uri} !/system/.* [nc] rewriterule (.*?)link\.php\?url\=/*(.*) /$1$2 [r=301,ne,l] not sure how above work edit of used use remove index.php url
Read more