Macro excel for loop

[michiel112]

Hey,

Na een aantal dagen spelen met VBA ben ik al aardig op weg met mijn code. Ik heb al een for loop gemaakt die voor een hele rij hyperlinks maakt, met waarde vanuit een aantal cellen. Nu zou ik dit proces willen herhalen bij een aantal volgende kolommen.

Zat zelf al te denken om er nog een loop over te zetten die dan door kolommen gaat. Kom er alleen niet uit hoe dit te doen. De waarde in D staat vast, maar waarde van G moet dus ook mee gaan naar volgende kolom.

Alvas bedankt voor jullie hulp!

Hopelijk is mijn verhaal nog een beetje te volgen

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

For i = 8 To Cells(Rows.Count, "G").End(xlUp).Row
    If Range("G" & i).Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Range("G" & i), Address:="http://xxx=" & _
            Range("D" & i).Value & "xxx=" & Range("G1").Value
        
End If
Next i

Application.ScreenUpdating = True
End Sub

 

[E v R]

Michiel,

Doe eens wat meer info of een voorbeeld werkboek met situatie nu en wat je wilt bereiken, ik volg nml. niet helemaal meer....
wil je een combinatie van kolom E met H en onder welke voorwaarde of...

 

[dprod]

Een bestand als voorbeeld is in dit geval wel handig ja...

Als ik je goed begrijp bedoel je het volgende?
in cell G8(eerste loop i) komt de hyperlink met Range("D8").Value & Range("G1").Value

Vervolgens als je er nog een loop overheen gooit wil je in kolom H het volgende?
in cell H8(nieuwe loop) komt de hyperlink met Range("D8").Value & Range("G8").Value & Range("H1").Value

In dat geval kun je dat ook gewoon in 1 loop oplossen...
Laat even weten hoe/wat met een wat duidelijkere omschrijving of voorbeeld bestand.

Gr,
dprod