excel - Change Background when formula removed by user change -


aim:

change background colour if there no formula (when user overrides defaults formula goes , needs highlighted)

private sub worksheet_change(byval target range)  set currentsheet = activeworkbook.sheets("audit findings")     '############# 'check if missing formulas not allowed dim rng range dim row range dim cell range  set rng = currentsheetrange("j7:j11")  each cell in rng      if cell.hasformula       range(cell.address).interior.colorindex = 37       ' msgbox "cell " & cell.address & " contains formula."     else         range(cell.address).interior.color = rgb(255, 0, 0)        'msgbox "the cell has no formula."     end if  next cell      '#############  'check if blanks not allowed on error goto whoa  application.enableevents = false 'set range check if not intersect(target, range("e7:j11")) nothing      'check length , reverse if blank has value      '################# if len(trim(target.value)) = 0 application.undo end if  letscontinue:     application.enableevents = true     exit sub whoa:     msgbox err.description     resume letscontinue   end sub

references:

looping

cell content

background colour

your code works fine (except in code provided in both cases change interior color red).

i move code worksheet_change event, , scan cells being modifed fall inside scanned range (the for each cell in rng loop not needed anymore) 

private sub worksheet_change(byval target range)  dim watchrange                  range dim intersectrange              range  ' modify range suit needs set watchrange = range("j7:j11") set intersectrange = intersect(target, watchrange)  if not intersectrange nothing      if target.hasformula       target.interior.color = rgb(0, 255, 0) ' has formula >> color green       ' msgbox "cell " & cell.address & " contains formula."     else         target.interior.color = rgb(255, 0, 0) ' has no formula >> color red        'msgbox "the cell has no formula."     end if  end if  end sub

Comments

Post a Comment

Popular posts from this blog

php - How to add and update images or image url in Volusion using Volusion API -

actually have store importing products store product data insert , update image or image url not insert , update. this xml code name datapro.txt. <products_joined> <productcode>3710_012t</productcode> <vendor_partno>eah5450silent/di/1gd3(lp)</vendor_partno> <productname>test product ta</productname> <hideproduct>n</hideproduct> <stockstatus>20</stockstatus> <lastmodified>1/5/2016 10:25:00 am</lastmodified> <lastmodby>2</lastmodby> <productweight>0.9</productweight> <productprice>100</productprice> <productmanufacturer>asus tek</productmanufacturer> <vendor_price>32.69</vendor_price> <numproductssharingstock>0</numproductssharingstock> <categoryids>107</categoryids> <producturl>http://tebkq.mvlce.servertrust.com/productdetails.asp?productcode=3710_012t</producturl...
Read more

Laravel mail error `Swift_TransportException in StreamBuffer.php line 269: Connection could not be established with host smtp.gmail.com [ #0]` -

i developing website contact-us page guest users can send me email using gmail . anytime try send mail using contact-us form, error swift_transportexception in streambuffer.php line 269: connection not established host smtp.gmail.com [ #0] this mail.php return [ 'driver' => env('mail_driver', 'smtp'), 'host' => env('mail_host', 'smtp.gmail.com'), 'port' => 587, 'from' => ['address' => '', 'name' => ''], 'encryption' => env('mail_encryption', 'tls'), 'username' => env('mail_username'), 'password' => env(mail_password), 'sendmail' => '/usr/sbin/sendmail -bs', 'pretend' => env('mail_pretend', false), ]; this .env mail_driver=smtp mail_host=smtp.gmail.com mail_port=587 mail_username=afecjaped@gmail.com mail_password=********...
Read more

c# SetCompatibleTextRenderingDefault must be called before the first -

i tried search exception couldn't find solution on case i'am using code below invoke .net application : assembly assem = assembly.load(data); methodinfo method = assem.entrypoint; var o = activator.createinstance(method.declaringtype); method.invoke(o, null); the application invoked has form , in entrypoint of application : [stathread] static void main() { application.enablevisualstyles(); application.setcompatibletextrenderingdefault(false); //exception application.run(new form1()); } setcompatibletextrenderingdefault must called before first iwin32window object created in application. edit : assembly = assembly.load(data); methodinfo method = a.gettype().getmethod("start"); var o = activator.createinstance(method.declaringtype); method.invoke(o, null); you should create new method skips initialization...
Read more