vba - Excel automatically add comment with cell edit history -


i have following code in "sheet macros" (right click sheet - view code). used work it's not adding comments in specified range a5:aq155.

private sub worksheet_change(byval target range)  application.enableevents = false  'if (target.row > 3 , target.row < 155) cells(target.row, "at") = now()  const srng string = "a5:aq155" ' change required dim sold string dim snew string dim scmt string dim ilen long dim bhascomment boolean   target(1) if intersect(.cells, range(srng)) nothing exit sub snew = .text sold = .text .value = snew application.enableevents = true   scmt = "edit: " & format$(now, "dd mmm yyyy hh:nn:ss") & " " & application.username & chr(10) & "previous text :- " & sold   if target(1).comment nothing .addcomment else ilen = len(.comment.shape.textframe.characters.text) end if   .comment.shape.textframe .autosize = true .characters(start:=ilen + 1).insert iif(ilen, vblf, "") & scmt end end end sub

what have done wrong?

the code stopped firing because event firing disabled , never turned on. way code written, makes change worksheet outside range a5:aq155, events become disabled without being turned on, means subsequent event triggers not fired (ie. - next time edit cell).

if make these slight tweaks in code should work intended going forward.

however, before type application.enableevents = true in immediate window , hit enter turn events on code begins fire again.

private sub worksheet_change(byval target range)  const srng string = "a5:aq155" ' change required dim sold string dim snew string dim scmt string dim ilen long  if not intersect(target, me.range(srng)) nothing      application.enableevents = false      target          snew = .value2         application.undo         sold = .value2         .value2 = snew          application.enableevents = true          scmt = "edit: " & format$(now, "dd mmm yyyy hh:nn:ss") & " " & application.username & chr(10) & "previous text :- " & sold           if .comment nothing             .addcomment         else             ilen = len(.comment.shape.textframe.characters.text)         end if          .comment.shape.textframe             .autosize = true             .characters(start:=ilen + 1).insert iif(ilen, vblf, "") & scmt         end      end  end if  end sub

Comments

Post a Comment

Popular posts from this blog

javascript - jQuery: Add class depending on URL in the best way -

i have html progress meter: <div class="col-md-3" style="margin-left: -20px;"> <div class="progress-pos active" id="progess-1"> <div class="progress-pos-inner"> login </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-2"> <div class="progress-pos-inner"> scan items </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-3"> <div class="progress-pos-inner"> confirm address </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-4"> <div class="progress-pos-in...
Read more

caching - How to check if a url path exists in the service worker cache -

i need check if particular url path exists in service worker cache. example, suppose url is: /myserviceworker/service?a=110&b=70 this url exists in cache, there many of them different values of , b. now, suppose want refresh of these urls, how can that? i want know how access key values service worker cache. if know key, plan follows: var url = new url(key); if(url.pathname === "\/myserviceworker/service") refetch key but not sure how cache key , in format is. mean, string or url? cache api has match() method returns promise resolving in response object if match or undefined if no match exists. second parameter object can specify ignoresearch not take account url parameters. the ignoresearch option supported firefox ( chrome status here ). in other hand, retrieve cache entries, can use keys() method.
Read more

Redirect to a HTTPS version using .htaccess -

i need modify .htaccess file redirect urls https version without "www". http://example.com --> https://example.com http://www.example.com --> https://example.com https://www.example.com --> https://example.com this how .htaccess file looks like: rewriteengine on rewritecond %{request_filename} !-d rewritecond %{request_filename} !-f rewriterule ^(.*)$ redirect.php?id=$1&page=$2 [qsa,l] what modifications need make .htaccess in order forward https without "www"? it depends on doing current code. looks file called redirect trying display php page seo friendly url. think might confusing people. anyway, need , force https without www, need 1 more rule above. also second rule needs two capture groups in rewriterule test string because wanting 2 different values using $1 , $2 references. rewriteengine on #rediect www non www and/or http https --- combinations. rewritecond %{http_host} !^example\.com [nc,or] rewritecond %{https} !^...
Read more