vba - Excel macro select cell that contains a string and replace a character -


i have worksheet more 200 cells. each cell contains formula below:

=average('worksheetname'!range)

i want run macro changes formula following formula:

=iferror(average('worksheetname'!range),100%)

i have worked out can change =average example &average , search & replace &average &iferror. allow me search cells contains &iferror , add missing parenthesis @ end of formula )

i want build macro have few problems:

  • how search & replace once each cell
  • macro gives me mismatch error

below code macro:

    sub aaaa()  ' ' iferror macro '  '     dim myrange range     dim mycell range     dim integer     set myrange = range("e4:bb120")       sheets("zones").select      cells.replace what:="=average(", replacement:="&iferror(average(", lookat _         :=xlpart, searchorder:=xlbyrows, matchcase:=false, searchformat:=false, _         replaceformat:=false      each mycell in myrange     if mycell "*&iferror*"     mycell.select      = 1     while < 2     selection.replace what:=")", replacement:="),100%)", lookat _         :=xlpart, searchorder:=xlbyrows, matchcase:=false, searchformat:=false, _         replaceformat:=false     = + 1     loop     end if     next mycell      cells.replace what:="&iferror(average(", replacement:="=iferror(average(", lookat _         :=xlpart, searchorder:=xlbyrows, matchcase:=false, searchformat:=false, _         replaceformat:=false      end sub

you might find easier replacement "manually" in code instead of using replace :

sub aaaa()       dim myrange range     dim c range     dim f string, long       on error resume next     set myrange = sheets("zones").range("e4:bb120").specialcells( _                                                 xlcelltypeformulas)     on error goto haveerror      if myrange nothing exit sub      application.calculation = xlcalculationmanual      each c in myrange.cells         f = c.formula         if f "=average(*)"             c.formula = "=iferror(" & right(f, len(f) - 1) & ",100%)"             = + 1         end if     next c      msgbox "replaced " & & " formulas"  haveerror:      if err.number <> 0 msgbox err.description     application.calculation = xlcalculationmanual end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending
Read more

Android soft keyboard reverts to default keyboard on orientation change -

i'm building android soft keyboard , can't seem fix bug - have arabic , qwerty keyboard , when rotate device on qwerty keyboard (or arabic shift), it's if program has "restarted" , becomes arabic keyboard without shift. the onsaveinstancestate(bundle savedinstancestate) not work because application not extend activity inputmethodservice . i put following in android manifest android:configchanges="keyboard|keyboardhidden|orientation" android:windowsoftinputmode="stateunchanged|adjustresize"> i tried using @override public void onconfigurationchanged(configuration newconfig) { super.onconfigurationchanged(newconfig); log.i(mydebug, "config changed " + currentkeyboard.equals(qwerty)); } however, currentkeyboard.equals(qwerty)) results false , made sure true before orientation change. any appreciated. i think applications fault. if application restarting on orientation change
Read more

jquery - javascript onscroll fade same class but with different div -

i new @ javascript , want learn new. there wrong code : why div fades @ same time. i want ask how fade different div s same class name.can me , explain me. thanks in advance. javascript: $(window).scroll(function(){ if ($( "div.fade" ).offset().top - $(window).scrolltop() <= 100){ $('.fade').addclass( "fade-in"); } else { $('.fade').removeclass("fade-in"); } }); here jsfiddle onscroll = function () { var scrolltop = $(this).scrolltop() ; $("div.fade").each(function(){ if(($(this).offset().top - scrolltop) <= 100){ $(this).toggleclass("fade-in"); } }) }
Read more