Loop werkt niet

[JHH]

Dag,

ik heb nog geen ervaring met loops, maar vond een code die ik heb aangepast, maar deze werkt totdat i=2, dan wordt de BronFile niet geupdatet naar de volgende rij.:

Sub Copy_One_File()

Dim BronFile As String
Dim BestemmingsFile As String
Dim i As Integer

If Range("C4").Value <> "" Then
i = 1

Do Until i > 3

BronFile = Cells(1, i).Value
BestemmingsFile = Cells(3, i + 2).Value

    FileCopy BronFile, BestemmingsFile
 i = i + 1

Loop

End If

End Sub

weet iemand wat ik verkeerd doe? zie voorbeeldbestand


ALvast bedankt.

 

[JEC.]

En zo?

Sub Copy_One_File()
Dim BronFile As String
Dim BestemmingsFile As String
Dim i As Integer

If Range("C4").Value <> "" Then
    i = 1
    Do Until i > 3
        BronFile = Cells[COLOR="#FF0000"](i, 1)[/COLOR].Value
        BestemmingsFile = Cells[COLOR="#FF0000"](i + 2, 3)[/COLOR].Value
        FileCopy BronFile, BestemmingsFile
    i = i + 1
    Loop
End If
End Sub

 

[JHH]

Bedankt. ik zie het, toevallig waren rij en kolom in eerste ronde gelijk :thumb:

 

[JEC.]

Zorg wel dat je extensie erachter staat. Anders wordt het pad niet gevonden