I need help with a pick them worksheet

[Legacy 420921]

HERE IS FILE

https://1drv.ms/x/s!AnJwxxiz0Ezpg8d44doit5nmxCco9A?e=eQrtdJ


HERE PICTURES https://1drv.ms/u/s!AnJwxxiz0Ezpg8oVBr3hJUzW5V6eeQ?e=Scigt5

 

[alansidman]

deleted -- requirements are not clear to me.

 

[unsingh]

Sub findfileinfolder()


Call CountFiles


End Sub


Private Function CountFiles()
Dim strDirectory As String, strDestFolder As String, strExt As String, cell As Range


strDirectory = InputBox("pl inter path for serch folder")
strDestFolder = InputBox("pl inter path for output folder")

Dim myfilesystemobject As Object
Dim myfiles As Object
Dim myfile As Object
Dim rng As Range
Dim Compld As Range

Set myfilesystemobject = CreateObject("Scripting.FileSystemObject")
Set myfiles = myfilesystemobject.GetFolder(strDirectory).Files

For Each myfile In myfiles

Range("B1").ClearContents
Range("B1").Value = myfile.Name

Set Compld = Range("A:A").Find(what:=Range("B1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Compld Is Nothing Then
'Stop
With myfile
.Copy strDestFolder & "" & myfile.Name
End With
Else
End If

Next myfile

Set rng = Nothing
Set myfiles = Nothing
Set myfilesystemobject = Nothing
End Function

 

[Fluff]

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Please provide the cross post link(s) as per the rules.