excel - Open Selected Pivot Detail or create new sheet -


i need vba code open pivot field's details on new page or if field not found in pivot table, create new sheet named field supposed named. keep getting compile error: end if without block if missing?? have far:

sub macro6 sheets("sheet4").select columns("a:a").select set found = cells.find(what:="+ deposit", after:=cells(1, 1), lookat:=xlpart, searchorder:=xlbycolumns, searchdirection:=xlnext) if = found.address range(a).select activecell.offset(0, 3).select selection.showdetail = true sheets("sheet5").name = "deposits" else: sheets.add after:=sheets(sheets.count) sheets("sheet5").name = "deposits" end if  sheets("sheet4").select columns("a:a").select set found = cells.find(what:="- withdrawal", after:=cells(1, 1), lookat:=xlpart, searchorder:=xlbycolumns, searchdirection:=xlnext) if = found.address range(a).select activecell.offset(0, 3).select selection.showdetail = true sheets("sheet6").name = "withdrawals" else: sheets.add after:=sheets(sheets.count) sheets("sheet6").name = "withdrawals" end if  sheets("sheet4").select columns("a:a").select set found = cells.find(what:="- check", after:=cells(1, 1), lookat:=xlpart, searchorder:=xlbycolumns, searchdirection:=xlnext) if = found.address range(a).select activecell.offset(0, 3).select selection.showdetail = true sheets("sheet7").name = "checks" else: sheets.add after:=sheets(sheets.count) sheets("sheet7").name = "checks" end if end sub 

sub macro10() ' ' macro10 macro ' sheets("sheet4").select range("a4").select set found = cells.find(what:="+ deposit", after:=cells(1, 1), lookat:=xlpart,    searchorder:=xlbycolumns, searchdirection:=xlnext) on error goto nodeposit = found.address range(a).select activecell.offset(0, 3).select selection.showdetail = true   withdrawals: sheets("sheet4").select range("a4").select set found = cells.find(what:="- withdrawal", after:=cells(1, 1), lookat:=xlpart, searchorder:=xlbycolumns, searchdirection:=xlnext) on error goto nowithdrawal = found.address range(a).select activecell.offset(0, 3).select selection.showdetail = true   checks:    sheets("sheet4").select range("a4").select set found = cells.find(what:="- check", after:=cells(1, 1), lookat:=xlpart, searchorder:=xlbycolumns, searchdirection:=xlnext) on error goto nocheck = found.address range(a).select activecell.offset(0, 3).select selection.showdetail = true   labels:  sheets("sheet5").name = "deposits" sheets("sheet6").name = "withdrawals" sheets("sheet7").name = "checks"     exit sub nodeposit:  sheets.add after:=sheets(sheets.count) resume withdrawals:  nowithdrawal: sheets.add after:=sheets(sheets.count) resume checks:  nocheck: sheets.add after:=sheets(sheets.count) resume labels:   end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Jquery show_hide, what to add in order to make the page scroll to the bottom of the hidden field once button is clicked -

i have button on website when clicked, reveals map. button can seen when page first loads up, when clicked, section holding map slides open , goes out of screen since page loads @ top (normal). want page scroll down bottom of div select when button pushed, if map out of screen. if page scrolled down, , clicks show map button, don't want page jump bottom of map. i tried figure out myself, no luck. seasoned jquery coders able give me guidance? many thanks! map = mapdiv.gmap3("get"); infobox = new infobox({ pixeloffset: new google.maps.size(-220, -310), closeboxurl: '', enableeventpropagation: true }); mapdiv.delegate('.infobox .close','click',function () { infobox.close(); }); jquery(".slidingdiv").hide(); jquery(".show_hide").show(); jquery('.show_hide').click(function(){ lastcenter=map.getcenter(); jquery(".slidingdiv&quo
Read more

javascript - Highcharts multi-color line -

Image
i looking create highchart multi-colored line. if goes down under value, become red, , when comes on value, become green . here picture example: or maybe highcharts have other charts models differentiate high or low level color? you can achieve coloring using lineargradient coloring: color: { lineargradient: { x1: 0, x2: 0, y1: 0, y2: 1 }, stops: [ [0, 'red'], [0.25, 'yellow'], [0.50, 'green'], [0.75, 'yellow'], [1, 'red'] ] } here 0 in stops relates minimum value of series , 1 maximum value, , in between percentages between values. if find percentages according values prior creating chart use correct stops values make relate specific values in data (at least approximately). see this jsfiddle example .
Read more

javascript - Enter key does not work in search box -

tried search guys sorry. input in search box doesnt work (or search) when hit enter when user clicks search button. doing wrong? here code. thanks. <script type="text/javascript"> $(document).ready(function() { $("#submit").click(function() { var url = "http://asla.org/awardssearch.html"; url += "?s=" + $('#googlecse').val(); window.location = url; }); $('#googlecse').keydown(function(event) { if (event.keycode == '13') { $("#submit").click(); } else { //do nothing :) } }); }); </script> <form class="navbar-form navbar-right" role="search"> <div class="search"> <input id="googlecse" type="text" onblur="if(this.value=='')this.value=this.defaultvalue;" onfocus="if(this.value==this.defaultvalue)t
Read more