vba - Copy Excel Data With Source Formatting -

-

i recorded macro this, , copied macro code , adapted how needed it. however, issue source formatting not kept when paste on new worksheet. step did miss? must selection.pastespecial right? below non-working syntax

selection.autofilter activesheet.listobjects("db1.accdb").range.autofilter field:=1, criteria1:="pink" lastrow = 2 worksheets("sheet2").range("a65536").end(xlup).row   next lastrow range("a1", "m" & lastrow).copy sheets.add after:=activesheet selection.pastespecial paste:=xlpasteallusingsourcetheme, operation:=xlnone, skipblanks:=false, transpose:=false range("a1").select activesheet.name = "pink"

no need selection.pastespecial, normal copy method sufficient.

sub copytest()      '/ source             destination     '--------             -----------     sheet1.usedrange.copy sheet2.cells(1, 1)     application.cutcopymode = false  end sub

<< --this work code.>>

sub test()      dim lastrow     long     dim rngcopy     range       selection.autofilter     activesheet.listobjects("db1.accdb").autofilter field:=1, criteria1:="pink"      set rngcopy = activesheet.usedrange      '/ rid of headers     set rngcopy = rngcopy.offset(1).resize(rngcopy.rows.count - 1)       set rngcopy = rngcopy.specialcells(xlcelltype.xlcelltypevisible)        thisworkbook.worksheets.add after:=activesheet     activesheet.name = "pink"      rngcopy.copy thisworkbook.worksheets("pink").cells(1, 1)     application.cutcopymode = false  end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Uncaught FirebaseError: Messaging: This method is available in a Window context -

-
i'm using firebase service worker web push notification. currently, facing error: uncaught firebaseerror: messaging: method available in window context. (messaging/only-available-in-window). i using website on desktop register sw. how resolve issue? error stack i'm getting in console. browsererrormessage: "failed register serviceworker: serviceworker script evaluation failed" code :"messaging/failed-serviceworker-registration" message :"messaging: unable register default service worker. failed register serviceworker: serviceworker script evaluation failed (messaging/failed-serviceworker-registration)." stack: "firebaseerror: messaging: unable register default service worker. failed register serviceworker: serviceworker script evaluation failed (messaging/failed-serviceworker-registration).↵ @ https://www.gstatic.com/firebasejs/3.7.0/firebase.js:555:225" __proto__: error thank you this method should there in main
Read more

c# - How to clear picker if It is selected in xamarin forms? -

-
i have 2 picker. second picker dependent on first picker. both pickers bind service. using dictionary object bind data picker. i not using mvvm pattern. first service call dictionary object first picker bind. then fill first picker dictionary object. @ time second picker empty. on selectedindexchange event of first picker call service bind dictionary object of second picker. now fill values second picker dictionary object. (if picker has data put picker.items.clear() ) now if select value second picker , change value of first picker gives me error @ picker.items.clear() system.argumentoutofrangeexception: index out of range. must non-negative , less size of collection. parameter name: index global declaration : dictionary<string, string> dicobjactivitytype; dictionary<string, string> dicobjselfactivity; first picker selectedindexchange event private async void pckractivitytype_selectedindexchanged(object sender, eventargs e) {
Read more

angular - File Name and Extension not respected when sent from .NET Web API to Angular2 App -

-
the use case : input field receives .rdl file on actions performed. file gets sent .net web api service gets processed , once processing complete, returns processed file user. client implemented using angular2. view template <h3 align="center" class="title" onclick="window.location.reload()"> converter utility </h3> <div align="center"> <input type="file" accept=".rdl" (change)="changelistener($event)"/> <br> <br> <input id="replace" name="replace" type="checkbox"> replace file?<br> <label></label> <br> <br> <input type="button" value="process" (click)="doprocess()" /> <br> <br> </div> component import { component } '@angular/core'; import { mainservice } './services/main.service'; @component({ select
Read more