excel - Paste Run Time Error 1004 -


i trying copy set of filtered data 1 sheet bottom of sheet. , code works great except first time upon opening file a:

run time error 1004

if quit debugger , re-run macro works great.
here code: noted problem occurs.

sub movedata_click()     'select filtered alarm data , paste on master spreadsheet     sheets("dailygen").select     activesheet.usedrange.offset(5, 0).specialcells _         (xlcelltypevisible).copy      sheets("2015 master").select      if activeworkbook.activesheet.filtermode _     or activeworkbook.activesheet.autofiltermode         activeworkbook.activesheet.showalldata     end if      range("c4").select     selection.end(xldown).select     activecell.offset(1, -2).range("a1").select     activesheet.paste '~~> errors      'sort newest oldest in date column      activeworkbook.worksheets("2015 master").listobjects("table44").sort.sortfields.clear     activeworkbook.worksheets("2015 master").listobjects("table44").sort.sortfields.add _         key:=range("table44[[#all],[active time]]"), _         sorton:=xlsortonvalues,          order:=xldescending, dataoption:=xlsortnormal     activeworkbook.worksheets("2015 master").listobjects("table44").sort        .header = xlyes        .matchcase = false        .orientation = xltoptobottom        .sortmethod = xlpinyin        .apply     end end sub

when showalldata (same data->clear in filter section) emptying clipboard , telling excel forget copied range. outside of vba confirm if want. excel loves empty clipboard when edit cell or of other selecting.

to fix, copy after showalldata. in case, have select worksheet , forth.

you should work avoid using select , activate vba. see post details.

here final code changes made:

sub movedata_click()  'select filtered alarm data , paste on master spreadsheet  sheets("2015 master").select if activeworkbook.activesheet.filtermode or activeworkbook.activesheet.autofiltermode activeworkbook.activesheet.showalldata end if  sheets("dailygen").select activesheet.usedrange.offset(5, 0).specialcells _     (xlcelltypevisible).copy  sheets("2015 master").select range("c4").select selection.end(xldown).select activecell.offset(1, -2).range("a1").select activesheet.paste   'sort newest oldest in date column  activeworkbook.worksheets("2015 master").listobjects("table44").sort.sortfields.clear     activeworkbook.worksheets("2015 master").listobjects("table44").sort.sortfields.add _     key:=range("table44[[#all],[active time]]"), sorton:=xlsortonvalues, order _      :=xldescending, dataoption:=xlsortnormal activeworkbook.worksheets("2015 master").listobjects("table44").sort    .header = xlyes    .matchcase = false    .orientation = xltoptobottom    .sortmethod = xlpinyin    .apply end  end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Bootstrap Popover: iOS Safari strange behaviour -

i looking through twitter bootstrap documentation, , i'm interested in implementing dismissible popover when button clicked. here example bootstrap's docs: http://getbootstrap.com/javascript/#dismiss-on-next-click when press "dismissible popover" button os x safari browser works fine. when access same link above ios safari, button not work. is, popover not dismissed on click. why button not working ios safari? the example linked using data-trigger="focus" attribute. try changing data-trigger="click" . <a tabindex="0" class="btn btn-lg btn-danger" role="button" data-toggle="popover" data-trigger="click" title="dismissible popover" data-content="and here's amazing content. it's engaging. right?">dismissible popover</a>
Read more

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

session - Logging Out Using PHP -

i have seen other programs regarding can't seem make work. doing wrong? want achieve after user logged out, going previous pages become restricted. i have 3 php files: 1. sample.php - main page username , password filled in 2. successful.php - user's page after logging in 3. logout.php - destorys session hinder user access pages after logging out sample.php </html> <form action="" method="post"> <table> <tr> <td>username:</td> <td>password:</td> </tr> <tr> <td><input type="text" name="username"></td> <td><input type="password" name="password"></td> </tr> <tr> <td><input type="submit" value="submit" name="submit"></td> </tr> </table> </form> </html> <?php $servername = "localhost"; $username = ...
Read more