Loop

[pontaxxr]

Hej,

hur gör man en loop som fortsätter ända tills rad 3080?

Sub Makro1()
'
' Makro1 Makro
'

'
   Range("D7").Select
   Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

   Range("D8").Select
   Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

   Range("D9").Select
   Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

End Sub

[Monshi]

Sub Makro1()
Dim c As Range
For Each c In Blad1.Range("D7:D3080")
   	c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Next c
End Sub

Fungerar om det verkligen finns en hyperlänk i varje cell. Kommer annars ge ett felmeddelande när den stöter på en cell utan hyperlänk.