excel - This macro is giving me error after creating pivot table? -


when run macro goes perfect upto line 143. adds pivot table in sheet, gives

error 13, type mismatch.

i not programming guy. recorded macro , edited more hour searching on internet. think here help. 

sub macro9() ' macro1 macro     dim lr long     dim pcache pivotcache     dim ptable pivottable      lr = cells(activesheet.rows.count, 1).end(xlup).row      dim prange range     set prange = range(cells(1, 1), cells(lr, 5))      columns("e:e").select     selection.insert shift:=xltoright, copyorigin:=xlformatfromleftorabove      range("e1").select     activecell.formular1c1 = "decimal"      range("e2").select     activecell.formular1c1 = "=rc[-1]*24"      range("e2").select     selection.copy      range(cells(lr, 5), cells(2, 5)).select     activesheet.paste      application.cutcopymode = false     selection.numberformat = "general"      range("a1").select     range(selection, selection.end(xltoright)).select     range(selection, selection.end(xldown)).select      selection.borders(xldiagonaldown).linestyle = xlnone     selection.borders(xldiagonalup).linestyle = xlnone     selection.borders(xledgeleft)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlthin     end     selection.borders(xledgetop)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlthin     end     selection.borders(xledgebottom)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlthin     end     selection.borders(xledgeright)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlthin     end     selection.borders(xlinsidevertical)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlthin     end     selection.borders(xlinsidehorizontal)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlthin     end     selection.borders(xldiagonaldown).linestyle = xlnone     selection.borders(xldiagonalup).linestyle = xlnone     selection.borders(xledgeleft)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlmedium     end     selection.borders(xledgetop)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlmedium     end     selection.borders(xledgebottom)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlmedium     end     selection.borders(xledgeright)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlmedium     end     selection.borders(xlinsidevertical)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlthin     end     selection.borders(xlinsidehorizontal)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlthin     end      range("a1:f1").select     selection.borders(xldiagonaldown).linestyle = xlnone     selection.borders(xldiagonalup).linestyle = xlnone     selection.borders(xledgeleft)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlmedium     end     selection.borders(xledgetop)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlmedium     end     selection.borders(xledgebottom)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlmedium     end     selection.borders(xledgeright)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlmedium     end     selection.borders(xlinsidevertical)         .linestyle = xlcontinuous         .colorindex = 0         .tintandshade = 0         .weight = xlthin     end     selection.borders(xlinsidehorizontal).linestyle = xlnone     columns("f:f").entirecolumn.autofit      range("h2").select     set pcache = activeworkbook.pivotcaches.create _       (sourcetype:=xldatabase, sourcedata:=prange). _       createpivottable(tabledestination:=activesheet.cells(2, 8), _       tablename:="pivottable")      cells(2, 8).select     activesheet.pivottables("pivottable1").pivotfields("activity")         .orientation = xlrowfield         .position = 1     end     activesheet.pivottables("pivottable1").adddatafield activesheet.pivottables( _         "pivottable1").pivotfields("decimal"), "sum of decimal", xlsum     activeworkbook.showpivottablefieldlist = false end sub


Comments

Post a Comment

Popular posts from this blog

python - Operations inside variables -

this question has answer here: evaluating mathematical expression in string 12 answers i want make python script finds maximum possible output using 2 operations. problem says there syntax error @ 2nd last line, in b in there. how can fix it? x = 0 = int(input("1st number:")) c = int(input("2nd number:" )) e = int(input("3rd number:" )) in range(4): if == 0: b = "+" elif == 1: b = "-" elif == 2: b = "/" else: b = "*" j in range(4): if j == 0: d = "+" elif j == 1: d = "-" elif j == 2: d = "/" else: d = "*" k = b c d e print(k) if you're after variables e on single line, couldn...
Read more

Generic Map Parameter java -

i having lot of methods of type: public static list<eduusers> getdetails(class c, map<string, integer> params) { list<eduusers> details = null; session session = hibernateutil.getsessionfactory().opensession(); transaction tx = null; try { tx = session.begintransaction(); criteria cr = session.createcriteria(c); (map.entry<string, integer> entry : params.entryset()) { cr.add(restrictions.eq(entry.getkey(), entry.getvalue())); } details = cr.list(); tx.commit(); } catch (exception asd) { log.debug(asd.getmessage()); if (tx != null) { tx.commit(); } } { session.close(); } return details; } i trying have generic method them , have written far: public static <t> list<t> getdetails(class<t> c, class<t> b) { l...
Read more

arrays - What causes a java.lang.ArrayIndexOutOfBoundsException and how do I prevent it? -

what arrayindexoutofboundsexception mean , how rid of it? here code sample triggers exception: string[] name = {"tom", "dick", "harry"}; for(int = 0; i<=name.length; i++) { system.out.print(name[i] +'\n'); } your first port of call should documentation explains reasonably clearly: thrown indicate array has been accessed illegal index. index either negative or greater or equal size of array. so example: int[] array = new int[5]; int boom = array[10]; // throws exception as how avoid it... um, don't that. careful array indexes. one problem people run thinking arrays 1-indexed, e.g. int[] array = new int[5]; // ... populate array here ... (int index = 1; index <= array.length; index++) { system.out.println(array[index]); } that miss out first element (index 0) , throw exception when index 5. valid indexes here 0-4 inclusive. correct, idiomatic for statement here be: for (int index = 0; index <...
Read more