• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hyperlink openen in bestaande browser en URL verhogen met 1

Status
Niet open voor verdere reacties.
M

mvanbe

Gebruiker
Lid geworden
7 mrt 2018
Berichten
87
Goedemorgen,

Heb gezocht op het forum en elders op het grote web maar geen resultaat wat voor mij werkt.

Ik heb in een Excel database met op regelniveau een hyperlink staan wat een website opent om de bijbehorende foto te bekijken; Hierover heb ik 2 verzoeken;

Iedere hyperlink opent een nieuw venster; bij normaal gebruik zijn dit er zo enkele tientallen; is het mogelijk om het laatst geopende venster te updaten/overschrijven?

Ik heb een hyperlink naar één desbetreffende foto; als ik zelf de URL verhoog met 1 dan zijn er vaak meerdere foto's te zien. Is er in mijn Excel bestand een Plus / Min knop te schrijven die dit voor je uitvoert?
Als voorbeeld de volgende url die ik in mijn verzameling heb staan: https://img.twa.nl/13984387 (In dit voorbeeld zijn er fotos te bekijken tot en met 13984394)

Delen van het bestand wordt lastig vanwege omvang en privacy. Als dit niet zonder lukt dan ga ik een dummy bestand maken. Wat gegevens;
Hyperlinks staan op sheet "Zoek" en begint vanaf R12 t/m R500
 
Zo verhoog en verlaag je het nummer
 

Bijlagen

Ha JV,

Dank voor je reactie en hulp. Dit zou inderdaad een oplossing kunnen zijn.

De hyperlink open een browser (Chrome). Is het ook mogelijk om deze opdracht daar naar te versturen? Dus vanaf je Excel sheet je browser URL verhogen/verlagen met 1?

Bekijk bijlage Plus min.xlsm
 
Daar heb ik helaas geen ervaring mee. Misschien een andere helper
 
Iets te vroeg victorie overigens ...

2020-06-12 17_13_34-Window.jpg
De visuele link in de cel mag dan wel opschalen, de link erachter blijft onveranderd.
Maar ik moet toegeven dat ik het verder ook niet weet ...
 
Wat moet er nu gebeuren? Op zich werkt de code in #3. De pagina zelf voorziet in nagenoeg niets dus bladeren vanuit de browser lijk mij niet mogelijk.

PHP: 
<html><head><meta name="viewport" content="width=device-width, minimum-scale=0.1"><title>13984387 (800×600)</title></head><body style="margin: 0px; background: #0e0e0e;"><img style="-webkit-user-select: none;margin: auto;" src="https://img.twa.nl/13984387"></body></html>
 
Code: 
Sub hsv()
Dim getal
 getal = Application.InputBox("hoeveel wil je bij het nummer 13984387 optellen?", "telling", , , , , , 1)
 ThisWorkbook.FollowHyperlink "https://img.twa.nl/" & 13984387 + getal
End Sub
 
VB1.PNGVB2.PNG

Ik heb 2 afbeeldingen toegevoegd die het hopelijk wat duidelijker maken.

Op VB1 zie je in vanaf Kolom R12 "Bekijk foto" staan. Dit is een hyperlink van een zoekresultaat naar één foto die online staat. Ik weet dat er meerdere fotos te bekijken zijn door in de door de hyperlink geopende browser de URL met 1 te verhogen. Andere gebruikers weten dit niet en het is onhandig. Vandaar de vraag of vanaf het Excel bestand met de afgebeelde + en - symbolen de URL in het geopende browser met 1 verhoogd kan worden.

In VB2 zie je een afbeelding behorend bij een zoekresultaat en hyperlink. De URL verhoogd met 1 geeft meerdere fotos.
 
Ja...én Nee. :)

Ik denk dat we er bijna zijn! Wederom een afbeelding toegevoegd. De code van HSV is eigelijk precies de bedoeling maar niet dynamisch.

In de toegevoegde afbeelding zie je per regel een zoekresultaat met een hyperlink. (M).

Als ik op regel 31 "bekijk foto" en gebruik maak van de knoppen moet https://img.twa.nl/9638431 verhoogd worden naar 9638432
Op regel 42 dus https....//11303740
etc.

Iets met actieve celinhoud ?
 

Bijlagen

  • VB3.PNG
    VB3.PNG
    98,5 KB · Weergaven: 53
  • VB3.PNG
    VB3.PNG
    77,3 KB · Weergaven: 55
Plaats een bestand i.p.v. plaatjes.

Ik zie het morgen overdag vast wel een keertje, en anders is iemand anders wel.
 
Bij deze een uitgekleed voorbeeld bestand.

Zoals je merkt wordt iedere foto in een nieuw venster geopend. Als daar een oplossing voor is, dan is die ook welkom!

Alvast bedankt voor je inspanningen!
 

Bijlagen

Dubbelklik eens op cel R12 en de anderen.
 

Bijlagen

Dit is het helemaal, beter dan verwacht! Ik ga is rustig bekijken hoe je dat gedaan hebt en in het origineel zetten!

Ontzettend bedankt!
 
HSV zei:
Dubbelklik eens op cel R12 en de anderen.
Klik om te vergroten...

Helaas lukt het me niet op het werkend te krijgen in mijn eigen bestand;

Wat ik heb gedaan;
Bij extra - verwijzingen Microsoft Internet Controls ingevoegd
Userform1 geexporteerd naar mijn eigen bestand
Code voor dubbelklik achter tabblad "Zoek" gekopieerd
Code in module3 gekopieerd (Alhoewel ik niet kan ontdekken wat deze voor functie heeft)

In sommige pogingen krijg ik de melding op
Code: 
Rg = Target.Offset(, -5).Value
Variabele is niet gedefinieerd

In andere pogingen laad het Userform maar toont deze geen foto met vervolgens melding RG niet gedefinieerd

Welke actie ben ik vergeten of wat zie ik over het hoofd? Snap dat het lastig te beoordelen maar wellicht heb je handelingen uitgevoerd die voor een leek makkelijk worden vergeten :)
 
In Module1.

Code: 
Public Rg As String
Public teller As Long

De code in Module3 kan je verwijderen.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan