hyperlink in visual basic excel -


what want in code when click cell b3 in sheet1 direct me a5 in sheet2 vice versa, when click a5 in sheet2 bring me b3 in sheet1 http://i.stack.imgur.com/qungd.jpg

sub macro3() ' ' macro3 macro '  '     range("b3").select     activesheet.hyperlinks.add anchor:=selection, address:="", subaddress:= _     "sheet2!a5", texttodisplay:="gg"     sheets("sheet2").select     activesheet.hyperlinks.add anchor:=selection, address:="", subaddress:= _     "sheet1!b3", texttodisplay:="gg"     sheets("sheet1").select end sub

now problem if name of sheet userdefined? there's messagebox says should input name of sheet. sub address changes not "sheet2" anymore. instance put in msgbox "123", name of sheet become "sheet2 123".

you should take advantage of indexing of worksheets collection.

sub indexingsheets()     sheets(1).range("b3").formula = _      "=hyperlink(""#" & thisworkbook.sheets(2).name & "!a5"", ""texttodisplay"")"     sheets(2).range("a5").formula = _      "=hyperlink(""#" & thisworkbook.sheets(1).name & "!b3"", ""texttodisplay"")" end sub

this code assumes sheet1 , sheet2 first 2 sheets in workbook.

if wanted ask name use instead:
code checks if sheet exists ( can refer ). if executes macro , if doesn't calls procedure recursively ask name.

dim sheetexist boolean  sub prefnamedsheets()      dim shname$, i&     shname = inputbox("whats second sheet name?")     = 1 worksheets.count         if strcomp(cstr(sheets(i).name), shname, vbtextcompare) = 0             sheetexist = true         end if     next     if sheetexist         activesheet.range("b3").formula = _          "=hyperlink(""#" & shname & "!a5"", ""texttodisplay"")"         sheets(shname).range("a5").formula = _          "=hyperlink(""#" & thisworkbook.sheets(1).name & "!b3"", ""texttodisplay"")"     else         call prefnamedsheets     end if end sub

you may find this link useful!


Comments

Post a Comment

Popular posts from this blog

blackberry 10 - how to add multiple markers on the google map just by url? -

i have android application, want convert blackberry 10 , google map needed in app,but blackberry 10 not support googlemap , blackberry developer web site supply way replace it.the sample below: @override public void oncreate(bundle savedinstancestate) { super.oncreate(savedinstancestate); setcontentview(r.layout.main); webview webview = (webview) findviewbyid(r.id.mywebview); webview.getsettings().setjavascriptenabled(true); webview.loadurl("http://maps.google.com/?ll=36.97, -122&lci=bike&z=13&t=p"); } i cannot understand it,i not know how add multiple markers on googlemap via url? can me? this worked me map shown in webview.
Read more

php - guestbook returning database data to flash -

i've been struggling problem long , unable make work, hope can me it. first, know php files correct , mysql database works fine. in flash, able submit comment database comments not display. did many tests such making returned_database flash separately , worked fine - can see old comments. long combine submitting 1 , returning 1 together, flash doesn't show comments more. put lower version flash effects on frame thinking doesn't collaborate returning flash, submitting flash works fine. since pretty complex problem hard me copy actionscript code because on different frames in flash. if has ideas fixing maybe can send file you?
Read more

delphi - Dynamic file type icon -

i want register file type in windows , make program delphi draw icon of file according contents (something custom icon format). how can this? thanks nortd , user539484 comments, searched internet "shell icon handler delphi" , found sample here , , shell+ components has component this.
Read more