excel - How to combine two vba codes? -


i'd combine (run) 2 different vba functions in 1 sheet. how that?

option explicit private sub worksheet_beforedoubleclick(byval target range, cancel boolean) 'updateby extendoffice 20161123     dim rgtable range     dim rgdata range     dim xcolumn integer     on error resume next     application.screenupdating = false     set rgtable = range("mydata")     rgtable         set rgdata = .offset(1, 0).resize(.rows.count - 1, .columns.count)         if not application.intersect(activecell, rgdata.cells) nothing             xcolumn = activecell.column - .column + 1             if activesheet.autofiltermode = false                 .autofilter             end if             if activesheet.autofilter.filters(xcolumn).on = true                 .autofilter field:=xcolumn             else                 .autofilter field:=xcolumn, criteria1:=activecell.value             end if         end if     end     set rgdata = nothing     set rgtable = nothing     application.screenupdating = true end sub

and

public blntoggle boolean private sub worksheet_beforedoubleclick _     (byval target range, cancel boolean) 'updateby extendoffice 20161123     dim lastcolumn long, keycolumn long, lastrow long     dim sortrange range     lastcolumn = _     cells.find(what:="*", after:=range("a1"), _     searchorder:=xlbycolumns, searchdirection:=xlprevious).column     keycolumn = target.column     if keycolumn > lastcolumn exit sub     application.screenupdating = false     cancel = true     lastrow = cells(rows.count, keycolumn).end(xlup).row     set sortrange = target.currentregion     blntoggle = not blntoggle     if blntoggle = true         sortrange.sort _         key1:=cells(2, keycolumn), order1:=xlascending, header:=xlyes     else         sortrange.sort _         key1:=cells(2, keycolumn), order1:=xldescending, header:=xlyes     end if     set sortrange = nothing     application.screenupdating = true end sub

source: https://www.extendoffice.com/documents/excel/4258-excel-click-cell-to-filter.html https://www.extendoffice.com/documents/excel/4259-excel-click-on-header-to-sort.html

this how take 2 functionalities one. imagine have code1 , code2 , want build code1andcode2together:

public sub code1()     debug.print "i code 1" end sub  public sub code2()     debug.print "i code 2" end sub

what should check these codes doing , unite them together. in general, should this:

public sub code1andcode2together()     debug.print "i code 1"     debug.print "i code 2" end sub

or this:

public sub code1andcode2together()     code1     code2 end sub

in case - copy , paste not work, start. try understand codes doing , try achieve it.


Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more