• 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.

Niet werkende links filteren uit bestand met links

Status
Niet open voor verdere reacties.
E

ExcelGreenie

Gebruiker
Lid geworden
6 jun 2015
Berichten
24
Goedemiddag iedereen,

Ik zou graag hulp willen bij een probleempje. Ik heb een hele rits hyperlinks in Excel, waarvan het grootste gedeelte het niet doet. Omdat ik deze lijst aan het opschonen ben, wil ik de niet werkende links eruit filteren. Het zijn er zo'n 1600, dus handmatig doen gaat me een dag kosten. Heeft iemand een goed trucje om de niet-werkende links eruit te filteren of te onderstrepen/een kleur te geven?

Alvast bedankt!

Excelgreenie
 
aangenomen dat het URL's zijn moet je met deze code een eind komen denk ik. Ik heb hem zo van het web geplukt en kort getest.

1600 links gaat wel even duren.

zonder voorbeeldbestand is het gissen.

Code: 
Sub Audit_WorkSheet_For_Broken_Links()

If MsgBox("Is the Active Sheet a Sheet with Hyperlinks You Would Like to Check?", vbOKCancel) = vbCancel Then

    Exit Sub

End If

On Error Resume Next
For Each alink In Cells.Hyperlinks
    strURL = alink.Address

    If Left(strURL, 4) <> "http" Then
        strURL = ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") & strURL
    End If

    Application.StatusBar = "Testing Link: " & strURL
    Set objhttp = CreateObject("MSXML2.XMLHTTP")
    objhttp.Open "HEAD", strURL, False
    objhttp.Send

    If objhttp.statustext <> "OK" Then

        alink.Parent.Interior.Color = 255
    End If

Next alink
Application.StatusBar = False
On Error GoTo 0
MsgBox ("Checking Complete!" & vbCrLf & vbCrLf & "Cells With Broken or Suspect Links are Highlighted in RED.")

End Sub
 
Laatst bewerkt:
Hallo Sjon,

Bedankt voor je reactie!

Ik zal misschien iets verkeerd doen, maar ook deze formule werkt niet. Ik stuur een deel van het bestand met de links mee. Als het je gelukt is, zou je me het kunnen laten weten? Bedankt
 

Bijlagen

  • test.xlsx
    24,4 KB · Weergaven: 31
Laatst bewerkt door een moderator:
Het zijn nog geen werkende hyperlinks, maar tekst. Je zal ze eerst even moeten omzetten naar werkende hyperlinks:

Code: 
Sub linksmaken()
 For Each cl In Range("A1:A1600")
    Blad1.Hyperlinks.Add cl, cl.Value, , , cl.Value
 Next
 End Sub

Daarna kan de code aan de gang. Al moet ik zeggen dat er in jouw voorbeeldbestand geen enkele werkende URL lijkt te zijn.
 
Beste Sjon,

Bedankt, maar het wil niet werken. De formule die je gaf om de links te activeren werken ook niet. Waarschijnlijk zit ik iets verkeerd te doen met het invoeren van de formule. En ja het klopt dat veel links niet werken, vandaar dat ik dus ook alleen de werkende links eruit wil pakken.

Bekijk bijlage test2002.xlsx
 
Je hebt nog steeds geen hyperlinks in jouw bestand staan. Daarnaast is het opgeslagen als .xlsx waaruit blijkt dat je de eerdere suggesties nog niet toegepast hebt. Het zijn ook geen formules maar stukjes VBA ook wel macro's genoemd. Hoe je het hebt toegepast blijkt nergens.
 
Laatst bewerkt:
Wat versta je onder hyperlinks die niet werken?
Als het een hyperlink zou zijn in je bestand en hij zou je niet naar de pagina brengen, dan is dat geen geldige hyperlink volgens jou?
Of een Url als tekst eruit halen?
 
HSV zei:
Wat versta je onder hyperlinks die niet werken?
Als het een hyperlink zou zijn in je bestand en hij zou je niet naar de pagina brengen, dan is dat geen geldige hyperlink volgens jou?
Of een Url als tekst eruit halen?
Klik om te vergroten...



Hallo HSV,

Ik bedoel met hyperlinks die niet werken, dat de links niet werken als je erop klikt. Dus je hebt een link naar een afbeelding, je klikt op de link, en er staat

" de informatie waarnaar je zoekt kan niet gedownload worden". De afbeelding kan dus niet 'gedownload' worden, je ziet de afbeelding niet en dus werkt de link niet. Zie het screenshotlinks.png

Dit is zo'n link die niet werkt.
https://app.codeswholesale.com/api/...b6d5-c1312f176737/image?format=MEDIUM&ext=jpg

Mijn vraag is dus, is het mogelijk om in Excel zo'n 'defecte' link te herkennen en te filteren? Waarschijnlijk zijn de codes die ik in dit onderwerp heb langs zien komen niet geschikt voor het oplossen van mijn probleem omdat de reageerders mijn probleem niet goed begrijpen, vandaar dat de codes niet werken. Heb ik dat goed?
 
Laatst bewerkt:
De code van @SjonR lijkt mij daar zeer geschikt voor, mits het een echte hyperlink is waar je normaal op kan klikken.

Ingekort wordt het zo.
De cellen die rood worden zijn geen geldig hyperlink.

Code: 
Sub Hyper()
Dim Hyp As Hyperlink
With CreateObject("MSXML2.XMLHTTP")
 For Each Hyp In Cells.Hyperlinks
  On Error Resume Next
    .Open "HEAD", Hyp.Address, False
    .Send
 If Err.Number = 0 Then Hyp.Parent.Interior.Color = 255
Next Hyp
On Error GoTo 0
End With
End Sub
 
Hyperlinks zijn klikbaar. De codes werken niet. Maar blijkbaar is niemand in staat om dit probleempje op te lossen of een hint te geven of te zeggen wat ik precies verkeerd doe. Het blijft allemaal vaag en raadselachtig.
 
Laatst bewerkt door een moderator:
Gaan we op die toer?

Zo jammer he zulke reacties.
Ik heb meerdere opties in petto, maar dat ga ik maar niet meer doen.

Succes en veel plezier.
Ik ga van jouw probleem niet mijn probleem maken.
 
na #4 had je onderstaande al kunnen bekomen.
Bovenin de macro, staat maxrij op 20, dus stopt die op de 20e rij, ik was niet van plan de ganse rij af te lopen. Verander die anders

Er staan 3 nieuwe en werkende links in en die worden netjes niet gekleurd.

Geef de volgende keer aan wat je eigenlijk wel en niet gedaan hebt of begrepen hebt met de tips, want zo is het ook niet leuk aan deze kant.

gebruik de macro "AllesNaElkaar"

Ik heb het idee, dat die site achter een login+paswoord of zoiets zit en dat daar eerder je probleem situeert of ben ik verkeerd ? Er staat telkens API in zo'n linkje.
Geef anders een keer 1 zeker werkende link op die site.
 

Bijlagen

  • test (18).xlsm
    56,2 KB · Weergaven: 27
Laatst bewerkt:
Hallo cow,

Bedankt dat je even de tijd wilde nemen.

Ik zal het zo duidelijk mogelijk proberen uit te leggen.

Ik heb een csv bestand waarin ook links naar afbeeldingen staan. Die heb je al eerder gezien, deze dus: Bekijk bijlage links1.xlsx. Deze lijst is trouwens maar een deel van de complete lijst.

Mijn schatting is dat van die paar duizend links de meerderheid 'defect' is. Dus als je erop klikt, dan staat er dat de afbeelding niet gevonden wordt.

Dan krijg ik dus dit te zien:

links.png

Dit is zo'n 'defecte' link :

https://app.codeswholesale.com/api/...9493-fe25faf772c8/image?format=MEDIUM&ext=jpg

Deze onderstaande link werkt wél:

https://s3-eu-west-1.amazonaws.com/cw-pub/products/453f9761-abb7-4088-ba3c-4b03e172d9b5/thumb.jpg
Dus dan kom je op de pagina met een afbeelding:afb1.png

Mijn vraag is nu:

Ik wil de werkende links, dus zo'n link als hier direct boven, filteren uit de lijst met de niet-werkende links, zodat ik een bestand heb met alleen werkende links ( dus links die een afbeelding laten zien). Aangezien ik vaker met dit soort linkbestanden werk, wil ik hier een macro voor gebruiken, omdat elke link afzonderlijk checken ( dus die een afbeelding laat zien) vele uren of dagen werk kost elke keer dat ik dit moet doen. Dit is het enige wat ik wil bereiken. Volgens mij heb jij voor mij de macro laten werken, en toen kreeg je dit resultaat:
redlist.png

Maar dit klopt niet. Want de tweede link uit die lijst werkt gewoon, dus waarom is die rood gekleurd? De 8e of 9e link werkt ook gewoon, terwijl die rood gekleurd is.

Ik vraag me echt af of het mogelijk is om in Excel de taak die ik wil doen uit te voeren. Of niemand snapt wat ik bedoel.


Ik weet niet of het uitmaakt voor het kunnen uitvoeren van deze taak in Excel., maar de afbeeldingslink verandert zodra de afbeelding gevonden is. Een voorbeeld:

Deze link:
https://app.codeswholesale.com/api/...bc4f-9eda242550ad/image?format=MEDIUM&ext=jpg

Komt uit op deze link ( een soort redirect) , waar de afbeelding in werkelijkheid echt op staat:

https://s3-eu-west-1.amazonaws.com/cw-pub/products/466c805b-ead1-4851-bc4f-9eda242550ad/thumb.jpg



En nee, deze links zitten niet achter een inlog. Iedereen kan deze afbeeldinglinks vanuit welk apparaat dan ook bekijken. En ik zie nergens api staan. of bedoel je app?

Ik hoop dat je het nog volgt en begrepen hebt.

Bedankt alvast in ieder geval.
 
Laatst bewerkt door een moderator:
Verder zal ik beschrijven hoe ik de macro uitvoer, misschien ga ik daar ook mee de fout in.

Ik kopieer de macro, ga naar Excel, druk op F11. Ik klik Module aan in het menu Invoegen. Ik kopieer de macro in het veld, ik sla het niet op. Dan klik ik op 'Sluiten en terug naar Excel'. Op het betreffende werkblad druk ik op F8 en ik selecteer het werkblad en de macro en klik op 'UITVOEREN'
 
het lukt me niet.
 
Ik heb het probleem kunnen vinden. Ik had gelijk de redirects van de links moeten ingeven ipv de indirecte links. Blijkbaar pakt de macro alleen de directe link en geen redirect. Daar had ik het hierboven trouwens over...

Ik weet niet of het uitmaakt voor het kunnen uitvoeren van deze taak in Excel., maar de afbeeldingslink verandert zodra de afbeelding gevonden is. Een voorbeeld:

Deze link:
https://app.codeswholesale.com/api/p...MEDIUM&ext=jpg

Komt uit op deze link ( een soort redirect) , waar de afbeelding in werkelijkheid echt op staat:

https://s3-eu-west-1.amazonaws.com/c...50ad/thumb.jpg




Bedankt allemaal

Bye
 
Laatst bewerkt:
Dat had ik door.

Met "het lukt me niet" wilde ik veeleer zeggen, dat mijn pogingen niet stabiel waren.
Bepaalde links waren de ene keer ik de macro draaide wel OK, de volgende keer niet.
Dat kan binnen de 5 minuten toch normaal niet wijzigen.
Ook de links die zogezegd goed, ook na handmatig checken, zijn, waren dan fout.

Dit is niet direct mijn interesse of specialiteit, dus geef ik liever forfait.

PS. ivm. VenA, iedere vogel zingt zoals die gebekt is.
Of dat vals is en waar die grens ligt, dat is een persoonlijke ingesteldheid.
Voor hem ligt, nogmaals persoonlijk, mijn grens verder, maar dat heeft niets met dit item te maken.
Iedereen heeft een bepaalde stijl en die zet ik af tegen wat hij bijdraagt aan dit forum, als geheel, niet per vraag.
 
Laatst bewerkt:
cow18 zei:
Dat had ik door.

Met "het lukt me niet" wilde ik veeleer zeggen, dat mijn pogingen niet stabiel waren.
Bepaalde links waren de ene keer ik de macro draaide wel OK, de volgende keer niet.
Dat kan binnen de 5 minuten toch normaal niet wijzigen.
Ook de links die zogezegd goed, ook na handmatig checken, zijn, waren dan fout.

Dit is niet direct mijn interesse of specialiteit, dus geef ik liever forfait.

PS. ivm. VenA, iedere vogel zingt zoals die gebekt is.
Of dat vals is en waar die grens ligt, dat is een persoonlijke ingesteldheid.
Voor hem ligt, nogmaals persoonlijk, mijn grens verder, maar dat heeft niets met dit item te maken.
Iedereen heeft een bepaalde stijl en die zet ik af tegen wat hij bijdraagt aan dit forum, als geheel, niet per vraag.
Klik om te vergroten...

Hallo,

goed, ik snap het. Bedankt
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan