Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Hyperlink in validatiegegevens plaatsen.  (gelezen 1905 keer)

0 leden en 1 gast bekijken dit topic.

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Hyperlink in validatiegegevens plaatsen.
« Gepost op: 13 mei 2007, 00:03:06 »
Beste  ;)

Ik heb in een lijst 6 namen staan die gelinkt zijn naar een bepaalde cel op het werkblad.

Is het mogelijk om in een validatielijst 1 van de zes namen op te roepen uit de lijst die dan rechtstreeks gelinkt worden naar die cel  ???

zie bestandje voor wat duidelijkheid  :)

Groetjes Danny
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.280
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Hyperlink in validatiegegevens plaatsen.
« Reactie #1 Gepost op: 13 mei 2007, 11:01:39 »
Danny, het lukte mij inderdaad ook niet om zonder VBA een hyperlink in een validatielijst te krijgen. Ik heb nu gebruik gemaakt van de Worksheet_Change methode en een lookup functie.... Ook heb ik de verwijzingen naar de cellen opgenomen in je namentabel.Er zullen best mooiere methoden zijn, maar deze werkt wel.
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target = Range("B3") Then
        Range(Application.WorksheetFunction.VLookup(Range("B3"), Range("N5:O15"), 2, False)).Select
    End If

End Sub

Groet, Leo
______________________________

Groet, Leo

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: Hyperlink in validatiegegevens plaatsen.
« Reactie #2 Gepost op: 13 mei 2007, 12:01:50 »
Beste Leo

Met de code werkt het maar als je op de link klikt in range (N5:N15) dan is het beeld verschillend als dat van de link in cel B3.

De bedoeling is dat Persoon 1 bovenaan komt te staan
Dus cel  A20 moet bovenaan staan onder de titelblokkering, zie bestand zoals het is opgeslagen.

Groetjes Danny
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.280
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Hyperlink in validatiegegevens plaatsen.
« Reactie #3 Gepost op: 13 mei 2007, 14:29:29 »
Danny, Ik had me gehouden aan de celvwijzingen (hyperlinks) die je in je 'persoon1' enzovoorts had gezet. Die kwamen inderdaad niet uit op de cellen in kolom A waar je de corresponderende 'persoon1' enzovoorts had staan.... Die heb ik dan nu maar ff voor je in het tabelletje aangepast... ;)

Als je wilt dat de actieve cell de bovenste in de linkerbovenhoek van je venster is, moet je gebruik maken van 'goto' in plaats van select. Vervang dus het codeblokje voor deze (of kijk in de bijlage).
Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Address = "$B$3" Then
        Application.Goto Range(Application.WorksheetFunction.VLookup(Range("B3"), Range("N5:O15"), 2, False)), scroll:=True
    End If

End Sub
Het 'scroll:=True' is het gedeelte dat zorgt voor je gewenste actie!

Groet, Leo

EDIT: Danny, het lijkt me het beste als je de hyperlinks uit je tabelletje haalt. Hyperlinks zijn nogal 'vasthoudend'. Ofwel, ze blijven verwijzen naar het workbook waar je ze ooit hebt aangemaakt. Ook al heb je het book onder een andere naam opgeslagen... :'(
______________________________

Groet, Leo

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: Hyperlink in validatiegegevens plaatsen.
« Reactie #4 Gepost op: 13 mei 2007, 15:03:28 »
Beste Leo  ;)

Bedankt, dat is het en het werkt!  :)
Topic gesloten

Groetjes Danny
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

 


www.combell.com