excel - With VBA how to apply conditional formatting to the last column of a pivot table according specific cell values -

-

i have below pivot table :

    risk impact                  high        low     medium      grand total aa       2          7         3               12 ab                 10                         10 ac       2         1          2                5 ad       2         1                           3 ae                 1                           1 ba                 3           1               4 bb                   bc       1          1

and apply specific cell colour according value of each cells describe below:

  • no risk findings : "grand total cell colour" = green
  • 1 2 low risk findings; or 1 medium risk finding : "grand total cell colour" = orange
  • as of more 2 low risk findings; or of 1 low risk finding , 1 medium risk finding;or of more 1 medium risk finding; or of 1 high risk finding : "grand total cell colour" = red

the approach tried define each "pivot item" , apply if statement assess each conditions.

please find code below:

sub conditionalformatting4()  dim c range activesheet.pivottables("pivottable2") set = activesheet.pivottables("pivottable2").pivotfields("risk impact").pivotitems("high").datarange.cells set u = activesheet.pivottables("pivottable2").pivotfields("risk impact").pivotitems("low").datarange.cells set v = activesheet.pivottables("pivottable2").pivotfields("risk impact").pivotitems("medium").datarange.cells set c = activesheet.pivottables("pivottable2").pivotfields("risk impact").pivotitems("grand total").datarange.cells  ' apply formatting last column cell if condition met  each c in .pivotfields("risk impact").pivotitems("grand total").datarange.cells   if i.value >= 1 or v.value > 1 or u.value > 2 or (v.value >= 1 , u.value >= 1)     .tablerange1.rows(c.row - .tablerange1.row + 1)       .font.bold = true       .interior.colorindex = 3     end   elseif (u.value > 1 , u.value < 2) or v.value = 1     .tablerange1.rows(c.row - .tablerange1.row + 1)       .font.bold = true       .interior.colorindex = 45     end   else   .tablerange1.rows(c.row - .tablerange1.row + 1)       .font.bold = true       .interior.colorindex = 4   end   end if next end end sub

so know if think correct approach?

then error "grand total column" not recognised. ideas?


Comments

Post a Comment

Popular posts from this blog

java - Oracle EBS .ClassNotFoundException: oracle.apps.fnd.formsClient.FormsLauncher.class ERROR -

-
i need in configuring java on machine because, when try loading forms, loader goes in circles , gives error: java.lang.classnotfoundexception: oracle.apps.fnd.formsclient.formslauncher.class @ sun.plugin2.applet.applet2classloader.findclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass0(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ java.lang.classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadcode(unknown source) @ sun.plugin2.applet.plugin2manager.createapplet(unknown source) @ sun.plugin2.applet.plugin2manager$appletexecutionrunnable.run (unknown source) @ java.lang.thread.run(unknown source) i have tried re-installing firefox, older versions of java runtime environments, disabling proxy. what missing? application working on other machines. i spent around 100 hours finding s
Read more

c# - how to use buttonedit in devexpress gridcontrol -

-
Image
i trying create gridcontrol buttonedit in 1 of columns. when user clicks button edit, popups form select product. when selection done on popup, returns datarow selection main grid below. but when column loses focus, value wrote column disappear. here code creates gridcontrol's data , buttonedit's click event. private void frmsiparisnew_load(object sender, eventargs e) { dt = new datatable(); dt.columns.add("malzeme_kodu",typeof(string)); dt.columns.add("malzeme_aciklama", typeof(string)); dt.columns.add("adet", typeof(decimal)); dt.columns.add("birim", typeof(string)); dt.columns.add("fiyat", typeof(decimal)); dt.columns.add("kur", typeof(string)); dt.columns.add("tutar", typeof(decimal)); datarow dr = dt.newrow(); dt.rows.add(dr); gc.datasource = dt; } private void repositoryitembuttoneditmal
Read more

nvd3.js - angularjs-nvd3-directives setting color in legend as well as in chart elements -

-
good morning i using angularjs-nvd3-directives, great, having difficulties when setting color of multi bar chart ( http://cmaurer.github.io/angularjs-nvd3-directives/multi.bar.chart.html ). the show legend works well: <div ng-controller="examplectrl"> <nvd3-multi-bar-chart data="exampledata" id="showlegendexample" width="550" height="300" showxaxis="true" showyaxis="true" xaxistickformat="xaxistickformatfunction()" showlegend="true"> <svg></svg> </nvd3-multi-bar-chart> </div> but when add option in conjunction color="colorfunction()" where, var colorarray = ['#ff0000', '#0000ff', '#ffff00', '#00ffff']; $scope.colorfunction = function() { return function(d, i) { return colorarray[i]; }; } the color of cha
Read more