automatische Hyperlink in een kolom

[edmoor]

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.

 

[Menny1964]

Ja klopt er zitten een paar lege regels tussen.
Hoe kan ik het dan oplossen?

 

[edmoor]

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.

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

 

[Menny1964]

Heb die paar lege velden gevuld met een vraagteken. Nu werkt het wel.
Super! Heel erg bedankt allemaal.

 

[edmoor]

Met het voorbeeld in #23 mogen ze gewoon leeg zijn

 

[Menny1964]

Heb die geprobeerd maar werkt niet.
Geeft geen foutmelding maar veranderd niets.

 

[edmoor]

Werkt prima.
Dan doe je toch iets niet goed.

 

[Menny1964]

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.