excel - Running a different macro or code part by different user -


i wrote macro save file onto specific url. problem macro run different users in company different levels of permission access intranet's folders. macro activated button on spreadsheet. far know have @ least 2 solutions:

  1. create different macros , link them different buttons(users press respective. not elegant-possibility in error)
  2. make vba recognise user , run specific macro or code string correct save url. i'd avoid first solution, don't know how write second.

here's entire code path in save as method:

sub test_salva()  workbooks.open filename:= _     "\\share\qualita_mg\gestione documentazione\doc. tecnici-  qualita'\moduli di supporto\c - controllo qualita'\mod unico.xlsm" windows("riepilogativo 2015.xlsb.xlsm").activate activesheet.range("a3").select   while not isempty(activecell)   activecell.offset(1, 0).select   loop   activecell.offset(-1, 0).select  selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("af31").select selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _     :=false, transpose:=false  windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("r2").select activesheet.paste windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("b5").select activesheet.paste windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("ad4").select activesheet.paste windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("ad5").select activesheet.paste application.cutcopymode = false progressivo = range("af31") nomefile = range("b5") activeworkbook.saveas filename:= _"\\share\qualita_mg\documentazione  registrazione\certificati serie\2015\s - certificati tubi\" & progressivo & "-" & nomefile _  , fileformat:=xlopenxmlworkbookmacroenabled, createbackup:=false       windows("riepilogativo 2015.xlsb.xlsm").activate activesheet.range("a3").select while not isempty(activecell) activecell.offset(1, 0).select loop activecell.offset(-1, 0).select variabile = selection nome = activecell.range("c1") activecell.offset(0, 2).range("a1").select activesheet.hyperlinks.add anchor:=selection, address:= _     "s%20-%20certificati%20tubi\" & variabile & "-" & nome & ".xlsm",   texttodisplay:=nome  activecell.offset(1, -2).range("a1").select  end sub

i'd post solution issue:

sub test_salva()  **if application.username = "manuela frignani" goto line1 else goto         line2**  **line1:** workbooks.open filename:= _     "z:\certificati serie\2015\mod unico.xlsm" windows("riepilogativo 2015.xlsb.xlsm").activate activesheet.range("a3").select   while not isempty(activecell)   activecell.offset(1, 0).select   loop   activecell.offset(-1, 0).select  selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("af31").select selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _     :=false, transpose:=false  windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("r2").select activesheet.paste windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("b5").select activesheet.paste windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("ad4").select activesheet.paste windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("ad5").select activesheet.paste application.cutcopymode = false progressivo = range("af31") nomefile = range("b5") activeworkbook.saveas filename:= _     "z:\certificati serie\2015\s - certificati tubi\" & progressivo & "-" &  nomefile _     , fileformat:=xlopenxmlworkbookmacroenabled, createbackup:=false       windows("riepilogativo 2015.xlsb.xlsm").activate activesheet.range("a3").select while not isempty(activecell) activecell.offset(1, 0).select loop activecell.offset(-1, 0).select variabile = selection nome = activecell.range("c1") activecell.offset(0, 2).range("a1").select activesheet.hyperlinks.add anchor:=selection, address:= _     "s%20-%20certificati%20tubi\" & variabile & "-" & nome & ".xlsm",    texttodisplay:=nome selection.font     .name = "calibri light"     .size = 17.6     .strikethrough = false     .superscript = false     .subscript = false     .outlinefont = false     .shadow = false     .underline = xlunderlinestylesingle     .themecolor = xlthemecolorhyperlink     .tintandshade = 0     .themefont = xlthemefontnone end selection.font.size = 16 selection.font.size = 14 selection.font.size = 12 selection.font.size = 11 selection.font.size = 10 selection.font.underline = xlunderlinestylenone selection.font.underline = xlunderlinestylesingle selection.font     .themecolor = xlthemecolorlight1     .tintandshade = 0.499984740745262 end activecell.offset(1, -2).range("a1").select goto line3   **line2:** workbooks.open filename:= _     "\\share\qualita_mg\gestione documentazione\doc. tecnici- qualita'\moduli di supporto\c - controllo qualita'\mod unico.xlsm" windows("riepilogativo 2015.xlsb.xlsm").activate activesheet.range("a3").select   while not isempty(activecell)   activecell.offset(1, 0).select   loop   activecell.offset(-1, 0).select  selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("af31").select selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks  _     :=false, transpose:=false  windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("r2").select activesheet.paste windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("b5").select activesheet.paste windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("ad4").select activesheet.paste windows("riepilogativo 2015.xlsb.xlsm").activate activecell.offset(0, 1).range("a1").select application.cutcopymode = false selection.copy windows("mod unico.xlsm").activate sheets("ita-eng").activate range("ad5").select activesheet.paste application.cutcopymode = false progressivo = range("af31") nomefile = range("b5") activeworkbook.saveas filename:= _     "\\share\qualita_mg\documentazione registrazione\certificati serie\2015\s - certificati tubi\" & progressivo & "-" & nomefile _     , fileformat:=xlopenxmlworkbookmacroenabled, createbackup:=false       windows("riepilogativo 2015.xlsb.xlsm").activate activesheet.range("a3").select while not isempty(activecell)   activecell.offset(1, 0).select loop activecell.offset(-1, 0).select variabile = selection nome = activecell.range("c1") activecell.offset(0, 2).range("a1").select activesheet.hyperlinks.add anchor:=selection, address:= _     "s%20-%20certificati%20tubi\" & variabile & "-" & nome & ".xlsm",  texttodisplay:=nome selection.font     .name = "calibri light"     .size = 17.6     .strikethrough = false     .superscript = false     .subscript = false     .outlinefont = false     .shadow = false     .underline = xlunderlinestylesingle     .themecolor = xlthemecolorhyperlink     .tintandshade = 0     .themefont = xlthemefontnone  end     selection.font.size = 16     selection.font.size = 14     selection.font.size = 12     selection.font.size = 11     selection.font.size = 10     selection.font.underline = xlunderlinestylenone     selection.font.underline = xlunderlinestylesingle selection.font     .themecolor = xlthemecolorlight1     .tintandshade = 0.499984740745262 end     activecell.offset(1, -2).range("a1").select  **line3:**  end sub

Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more