Hozzászólás: [Resolved] Fájlok másolása több különböző mappába

Szia Delila!

Nagyon szépen köszönöm.
Remekül működik ez.

A fájlok másolására is szedtem már össze dolgokat, de még nem az igazi:

„B1 cellában van a képek elérési útja, D1 cellában a célmappa
B4 cellától kezdődnek azok a fájlnevek, amiket át kell másolni a célmappába.
Ha nem talál fájlt a forrás mappában, akkor a C oszlopba „Copy error …” szöveggel jelzi.”

A fenti leírás van az alábbi kódrészlethez.
Azonban nekem ezt úgy kellene megváltoztatnom, hogy a B oszlopban a B2 cellától lennének egymás alatt a mellette lévő C oszlop azonos sorában a fájlnevek, amiket a D oszlop azonos sorában lévő célmappákba kellene átmásolni.

Ha valaki tudna esetleg segíteni ebben.

Sub CopyFile()
Dim src As String, dst As String, fl As String, Dim x As Integer
‘Source directory
src = Range(„B1”)
‘Destination directory
dst = Range(„D1”)
‘File name
x = 4
Do
fl = Range(„B” & x).Value
On Error Resume Next
FileCopy src & „” & fl, dst & „” & fl
If Err.Number <> 0 Then
Range(„C” & x).Value = „Copy error: ” & src & ” ” & fl
End If
On Error GoTo 0
x = x + 1
Loop While Not IsEmpty(Range(„B” & x))

End Sub

Köszönettel,
Józsi