Hyperlink macro

[flats]

Iemand die weet hoe ik zoiets kan maken:

een macro om hyperlink in een cel te zette die start met de vraag :
macro in cel ? (bijvoorbeeld "D20")
om deze in de macro te zetten
Range("D20").Select
Vervolgens zou de macro moeten vragen naar een andere cel en de waarde van deze cel overbrengen in (bijvoorbeeld de waarde 'Air' van cel C20
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Z:\ALBUMS\Air"
End Sub

 

[edmoor]

En hoe wil je dat die macro wordt geactiveerd?

 

[flats]

knopje

knopje maken om de macro te starten he

 

[Cobbe]

Zo iets?

Sub cobbe()
Antwoord = MsgBox("Wil je een macro in D20?", vbYesNoCancel, "MACRO OF NIET")
 If Antwoord = vbYes Then
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Z:\ALBUMS\" & [C20]
 End If
End Sub

 

[Ginger]

@Cobbe, wellicht met een Application.Inputbox met de optie "cel referentie"? Volgens mij moet de invoer variabel zijn...

 

[flats]

Inderdaad variable zowel voor (d20) als voor (c20)

 

[edmoor]

Gebruik daarvoor de RefEdit control.

 

[Cobbe]

Of dit in afwachting:

Sub cobbe()
On Error GoTo oeps
  ActiveSheet.Hyperlinks.Add Anchor:=Range(Application.InputBox("Doelcel voor hyperlink(bv A20) :")), Address:="Z:\ALBUMS\" & Range(Application.InputBox("Broncel met de hyperlinkwaarde (bv B15)"))
oeps:
End Sub

 

[flats]

Ga ik zeker proberen later vandaag, moet er even tussenuit, tot straks en alvast bedankt.

Done

Super Cobbe, super, macro werkt, vraag mij af of dat ook met een range zou werken, doelcellen d20..d40 met broncellen c20..c40

 

[flats]

super

Super Cobbe, super, macro werkt, vraag mij af of dat ook met een range zou werken, doelcellen d20..d40 met broncellen c20..c40