Excel VBA hanging when pasting Pivot table over itself -


the following code hangs when try paste pivot table on itself. i've used same code earlier doesn't work here. i've run through step step find problem. below whole code problem in bold close end of code. i've added whole code in case can see problems higher up, doubt since runs smoothly pasting @ end.

'create pivot store stock issues  dim rowcount long dim wsissues worksheet dim pc pivotcache dim pt pivottable dim pi pivotitem dim pf pivotfield dim lastrow long  set wsissues = worksheets.add     rowcount = worksheets("summary").cells(51, 1).end(xldown).row set pc = activeworkbook.pivotcaches.create(xldatabase, "summary!r51c1:r" & rowcount & "c38") set pt = pc.createpivottable(wsissues.range("a3"))      'speeds code dramatically     pt.manualupdate = true      pt.pivotfields("site")         .orientation = xlrowfield         .position = 1         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("name")         .orientation = xlrowfield         .position = 2         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("ownership")         .orientation = xlrowfield         .position = 3         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("article")         .orientation = xlrowfield         .position = 4         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("article description")         .orientation = xlrowfield         .position = 5         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("promo")         .orientation = xlrowfield         .position = 6         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)         .pivotitems("(blank)").caption = " "     end     pt.pivotfields("vendor")         .orientation = xlrowfield         .position = 7         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("pack size")         .orientation = xlrowfield         .position = 8         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end      wsissues.pivottables(1).name = "stockissues"      pt.pivotfields("ms")         .orientation = xlrowfield         .position = 9         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)         .pivotfilters.add type:=xlcaptionequals, value1:="4"     end     pt.pivotfields("listing status")         .orientation = xlrowfield         .position = 10         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)         .pivotfilters.add type:=xlcaptionequals, value1:="listed"     end     pt.pivotfields("rp type")         .orientation = xlrowfield         .position = 11         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)         .pivotfilters.add type:=xlcaptionequals, value1:="roster"     end      pt.pivotfields("oos no soo")         .orientation = xlrowfield         .position = 12         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("oos soo")         .orientation = xlrowfield         .position = 13         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("soh no soo")         .orientation = xlrowfield         .position = 14         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("negative stock")         .orientation = xlrowfield         .position = 15         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("overstock")         .orientation = xlrowfield         .position = 16         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("dormant stock")         .orientation = xlrowfield         .position = 17         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("outdated stock counts")         .orientation = xlrowfield         .position = 18         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end     pt.pivotfields("total issues")         .orientation = xlrowfield         .position = 19         .subtotals = array(false, false, false, false, false, false, false, false, false, false, false, false)     end      pt         .showdrillindicators = false         .ingriddropzones = true         .rowaxislayout xltabularrow     end      pt.repeatalllabels xlrepeatlabels      pt         .columngrand = false         .rowgrand = false     end      pt.manualupdate = false      wsissues.pivottables("stockissues").tablerange2         .copy         **.pastespecial paste:=xlpastevalues**     end      application.wait (now + timevalue("0:00:02"))

i've ran code slight modification, , worked fine:

' defined , set pt object, why not use pt.tablerange2.copy '<-- copy tablerange2 of pivot-table  ' paste range "a3" wsissues.range("a3").pastespecial xlpastevalues

Comments

Post a Comment

Popular posts from this blog

What is happening when Matlab is starting a "parallel pool"? -

running parallel cpu processes in matlab starts command parpool() according documentation , function: [creates] special job on pool of workers, , [connects] matlab client parallel pool. this function takes bit of time execute, on order of 30 seconds. in other multi-cpu paradigms openmp, parallel execution seems totally transparent -- i've never noticed behavior analogous matlab (granted i'm not experienced parallel programming). so, happening between time parpool() called , when finishes executing? takes long? parallel computing toolbox enables run matlab code in parallel using several different paradigms (e.g. jobs , tasks, parfor , spmd , parfeval , batch processing), , run either locally (parallelised across cores in local machine) or remotely (parallelised across machines in cluster - either 1 own, or 1 in cloud). in of these cases, code run on matlab workers , copies of matlab without interactive desktop. if you're intending run on remo...
Read more

angular - DownloadURL return null in below code -

when change file updated in firebase storage when try downloadurl show null. filechange(event: any) { const imagefolder: string = this.employee.id; const filelist: filelist = event.target.files; const file: file = filelist[0]; const storageref = firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file); console.log(storageref.snapshot.downloadurl); } the put() asynchronous. if want url after file uploaded have this: firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file).then((snapshot) => { storageref = snapshot.downloadurl: console.log(snapshot.downloadurl); });
Read more

php - Cannot override Laravel Spark authentication with own implementation -

during login process of laravel spark need request token of remote api. api stores exact same users , passwords laravel spark application. therefore need username , non hashed password of user during authentication process. i thought overriding authenticated method solution problem. in routes/web.php override post /login endpoint , pointing endpoint own logincontroller: <?php namespace app\http\controllers\auth; use illuminate\support\facades\log; use illuminate\http\request; use laravel\spark\http\controllers\auth\logincontroller sparklogincontroller; class logincontroller extends sparklogincontroller { /** * create new login controller instance. * * @return void */ public function __construct() { parent::__construct(); } /** * handle successful authentication attempt. * * @param request $request * @param \illuminate\contracts\auth\authenticatable $user * @return response */ public fu...
Read more