VB Macro enkele actie omzetten naar Loop tot einde

[mrwobben]

Ik wil een simpele actie waarbij er een hyperlink in (L2) wordt gemaakt van Linklocation (H2) met als friendly (F2) namelijk:

Sub test_single_link()
'
' test_single_link Macro
'

'
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-4],RC[-6])"
    Range("L3").Select
End Sub

en deze wil ik omzetten naar een loop voor alle volgende cellen naar beneden tot er geen data meer is in F2 of H2 en de sub stopt.

Ik ben een leek op dit gebied en vind geen werkend voorbeeld .
Iemand mss??

alvast bedankt Michel

 

[fcwiv]

Hallo mrwobben,


Volgens mij bedoeld u dit:

Dim strPath As String, strDoc As String, strFriend As String

strPath = "C:\File\"


For i = 1 To 10
strDoc = "Book" & i & ".xls"
strFriend = "Doc " & i

Blad1.Cells(i, 1).Select
ActiveCell.Formula = "=HYPERLINK(""" & strPath & strDoc & """,""" & strFriend & """)"

Next i

Groetjes,

Fred

 

[mrwobben]

Danke Fred,

Ik zal morgen even kijken of dit het doet wat ik graag wil.
even een vraagje strPath = "C:\file\" dit verwijst naar de C drive maar in mijn geval is het een Nas.

Ik geef een klein voorbeeldje
F2 = "LST_grootboek.xls" ,
H2 = "\\nas\..\..\..\LST_grootboek.xls
L2 wordt dan Locatie(H2) met friendly(F2)

Werkt dat met jouw voorbeeldje?

alvast bedankt Michel

 

[fcwiv]

Ja,
Volgens mij wel.
Je hoef alleen de string aan te aan te paasne met de waarde van een cel.
bijv; strDoc =blad.cells(i,8) ''kollom H
strFriend =blad.cells(i,6) ''kollom F

Grt,

Fred

 

[mrwobben]

Is goed gaan we dat proberen vandaag nog geen tijd gehad,
Ik laat wat weten als het is gelukt, en ook als het niet is gelukt.

bedankt Michel

 

[mrwobben]

Hoi Fred ,

Het werkt, heb wel wat moeten aanpassen maar doet het, je hebt me goed opweg geholpen,

Hartelijk bedankt, Michel

Aangepaste code :

Sub Hyperlinks_loop()

Dim strPath As String, strDoc As String, strFriend As String


For i = 1 To 10
strDoc = Sheets("files").Cells(i, 8)
strFriend = Sheets("files").Cells(i, 6)

Sheets("files").Cells(i, 12).Select
ActiveCell.Formula = "=HYPERLINK(""" & strDoc & """,""" & strFriend & """)"


Next i
End Sub

 

[fcwiv]

Beste Michel,

Graag gedaan.
Ik zou ,voor de netheid, de i veranderen in intStap en Dim intStap as integer gebruiken.

Dus loop wordt:

For intStap =... etc

Next intStap

Puur voor de leesbaarheid van je code.

Groetjes,

Fred