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

lus in makro maken

Status
Niet open voor verdere reacties.

hahaHans

Gebruiker
Lid geworden
24 jan 2006
Berichten
46
Ik heb de volgende regels in een makro:

Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="001.xls", TextToDisplay:="naar 001.xls"
Range("A2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="002.xls", TextToDisplay:="naar 002.xls"

Die doen dus 2 keer hetzelfde. Het is de bedoeling dat hij dit driehonderd keer doet, zodat in cel A300 een koppeling staat naar "300.xls" met de tekst "naar 300.xls".

Hoe automatiseer ik dit in een lus?
 
Code:
Sub ff()

    Dim r As Range
    
    For Each r In Range("A1:A300")
    
        ActiveSheet.Hyperlinks.Add _
            Anchor:=r, _
            Address:=Format(r.Row, "000") & ".xls", _
            TextToDisplay:="naar " & Format(r.Row, "000") & ".xls"
    
    Next

End Sub

Wigi
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan