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

automatische Hyperlink in een kolom

Status
Niet open voor verdere reacties.
Het is zonder wijziging de code die JVeer plaatste.
Ik vraag me dus eerst af waarom je die Runtime error 5 krijgt in je originele document.
Het lijkt erop dat er lege regels in zitten of onder de laatste gevulde regels staan.
 
Ja klopt er zitten een paar lege regels tussen.
Hoe kan ik het dan oplossen?
 
Die lege regels verwijderen of in de code controleren of de onderhanden cel wel gevuld is.
Daarom vroeg ik dus of ze allemaal onder elkaar staan.

Code: 
Private Sub CommandButton1_Click()
    For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1).Value <> "" Then
            ActiveSheet.Hyperlinks.Add Cells(i, 1), Cells(i, 1).Value, , , Cells(i, 1).Value
        End If
    Next
End Sub
 
Laatst bewerkt:
Heb die paar lege velden gevuld met een vraagteken. Nu werkt het wel.
Super! Heel erg bedankt allemaal.
 
Met het voorbeeld in #23 mogen ze gewoon leeg zijn ;)
 
Heb die geprobeerd maar werkt niet.
Geeft geen foutmelding maar veranderd niets.
 
Werkt prima.
Dan doe je toch iets niet goed.
 
Geen idee.
De andere werkt wel dus daar ben ik al heel veel mee geholpen.
Kleine moeite om een vraagteken te zetten in lege plekken.
Bedankt voor alle moeite.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan