Omhoog zoeken en hyperlink volgen in code

[grietsenwijma]

Goedemorgen,

Even een vraag waarop het antwoord waarschijnlijk simpel is als je het kent, maar mijn kennis schiet te kort.

Zie bijgaand voorbeeld

Wat ik zoek is een stuk code die zorgt dat ik beginnend in bijvoorbeeld de blauwe cel J verticaal omhoog ga zoeken tot ik de eerste cel vind met een hyperlink (in dit geval F in groen) en vervolgens deze hyperlink volg
De code moet mij in dit geval dus vanaf cel J op blad 1 naar cel Q op blad 2 brengen.

Alvast dank voor het meedenken!

 

[snb]

Ik ben bang dat je vraag voortkomt uit onjuist gestruktureerde werkbladen.
Begin eerst die struktuur te vereenvoudigen.

 

[grietsenwijma]

Je hebt ongetwijfeld gelijk maar ideaal gestructureerde bladen krijg ik niet aan mijn gebruikers "verkocht". (want te afwijkend van wat men kent)

Ik probeer te schipperen tussen wat ideaal is en wat haalbaar is.

Perfectie is alleen haalbaar in de hemel, hier beneden probeer ik gewoon zoveel stappen vooruit te doen dat ik mijn gebruikers nog net niet verlies.

 

[snb]

In mijn bericht spreek ik van ideaal, noch van perfekt.
Voor eenvoud is bijna iedereen te porren: automatisering heeft ook een opvoedende funktie.
Toon eens zo'n 'haalbare' struktuur.

 

[AD1957]

want te afwijkend van wat men kent

Wat als je ergens een standaard programma koopt en dit word volledig aangepast/geoptimaliseerd.
Dan zullen de gebruikers hiermee moeten leren werken.
Aan jou de keuze, voort hobbelen met een opzet die ooit eens gemaakt is, of direct goed aanpakken.

 

[sylvester-ponte]

grietsen, er is in blad1 maar 1 hyperlink . waarom dan van onder naar boven? de richting maakt in dit geval niets uit.

en eventueel later ook van links naar rechts???

hier een poging: deze kijkt van onder naar boven en van rechts naar links

 

[grietsenwijma]

Dank voor je inbreng!

Er staat maar één hyperlink in omdat ik het voorbeeld simpel wilde houden.
In "het echie" worden het er enkele tientallen.

Het gaat er dus om om vanuit de blauwe cel J (of elke willekeurige andere cel in deze kolom) omhoog te zoeken en de eerste hyperlink die je tegen komt is de "hit"

...overigens krijg ik je code niet aan de praat. Niet via je knop en niet via de achterdeur.

 

[sylvester-ponte]

de macro wordt tegenwoordig standaard geblokkeerd.
je moet in het gedownloade bestand met rechter muisknop in de eigenschappen de macroblokkade opheffen.

of je gebruikt een appel, dan moet ik de macro aanpassen

 

[grietsenwijma]

Sorry, die macroblokkade ben ik nooit eerder tegengekomen

En in eigenschappen vind ik niks dat met macro's te maken heeft

...of kijk ik niet op de goeie plek?

 

[emields]

Sla het bestand op met een nieuwe naam en open dan het nieuwe bestand.

 

[AD1957]

Het is slechts een vermoeden, probeer dit eens.

 

[grietsenwijma]

....en zo blijf je altijd leren:
De mogelijkheid om macro's toe te staan krijg ik alleen zolang het document in downloads staat
Als ik het naar de desktop wegsave verdwijnt die mogelijkheid.

Hij doet het nu wel, maar blijft in de eerste regel hangen.
Ik hoop dat ik in ieder geval zo het goeie spoor heb, ik ga op een rustig moment even uitpuzzelen wat het hiaat is.

Bedankt

 

[sylvester-ponte]

misschien probeer jij het op een appel, dan werkt de macro niet

 

[AD1957]

De code van Sylvester-ponte werkt prima.
Gebruik je nu wel of geen Apple ?

 

[grietsenwijma]

Nee, gewoon windows en office 365

Zie bijgaande knipsels

 

[snb]

Toegepast in het werkblad in #1:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then Columns(3).Resize(Target.Row).Hyperlinks(Columns(3).Resize(Target.Row).Hyperlinks.Count).Follow
End Sub

 

[AD1957]

https://stackoverflow.com/questions...rror-2146232576-80131700-on-creating-an-array

 

[AD1957]

Mogelijk ook nog een probleem door 32-bits of 64-bits versie.

 

[sylvester-ponte]

ik heb een nieuwe gemaakt met een extra hyperlink (test) als je die naar beneden verplaatst,
onder de F ,
dan wordt de laagste hyperlink gekozen om te volgen.

ik heb ook de arraylist er uit gehaald ( misschien deet hij het bij jou daar om niet)

ps oeps er zat een <> foutje in

 

[grietsenwijma]

Ik begin enthousiast te raken!, dit gaat heel mooi werken.
Ik heb de code al even de rest van het "raamwerk" gepast.
Werkt heel mooi, er is nog 1 ding dat nog niet loopt.

Zoals ie nu is pakt ie de onderste link van de kolom
Wat ie moet doen is dat ie de eerste pakt boven de cel waar je met je cursor staat

Kortom zoals in het iets aangepaste voorbeeld:

Als je op J staat moet ie de link van G pakken
Als je op E staat moet ie de link van B pakken

...of verandert dat het verhaal fundamenteel?