Moving files based on the value of a cell?

[shannonmarie111]

Hi everyone. I'm really new to this kind of stuff but mu boss has asked me to come up with something. I have a spreadsheet with file names in column A and either a "Y" or a "N" in column B. All the files that correspond to he file names are in folder "C:\copyfrom". If the value in column B is "Y", I need to either copy or move (they don't really care which) that file to "C:\moveto". I have been looking at code I see online forever,trying to manipulate it so this works and am having zero luck. Can anyone help me? Thank you!!

 

[oldbrewer]

my macro is as simple as it gets

x = 9

For j = 1 To 10

If Cells(j, 2) = "y" Then x = x + 1: Cells(x, 12) = Cells(j, 1)

Next j

End Sub x=9 is defining which row I copy the first result to for j=1 to 10 means do something 10 times j will be 1 then 2 then 3......then 10

<tbody>
</tbody>

if cells(j,2)="y" is testing if B1 is y
if it is x is increased by 1 and cells(10,12) [that is L10) is set to A1
if no "y" found it goes on to test the next row

after 10 cycles the macro ends

 

[Momentman]

I had a couple typos, I feel so silly thank you SO much!!!!

You are welcome

We can add error-handlers to the code to make it better, but i guess it gives what it wants in it basic form

Sub CopyFiles()
    copyfrom = "C:\Users\Public\Pictures\Sample Pictures\"
    moveto = "C:\Users\Public\Pictures\Sample Pictures\pix2\"
    On Error Resume Next
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Range("B" & i).Value = "y" Then
            FileCopy copyfrom & Range("A" & i).Value, moveto & Range("A" & i).Value
        End If
    Next i
End Sub

I added the line in red, with the way this code is structured, it ignores every error(file not found) and copies all the files that it can locate