Vinicius70013

Fala galera, sou novo aqui no fórum, estou com uma dificuldade com uma macro que criei, basicamente eu tenho um relatório no Excel com o nome do arquivo que esta em uma pasta no formato PDF, eu preciso de uma macro que pegue os aquivos quais os nomes estão nas células no relatório do Excel, e copie para outra pasta, exemplo: ( eu tenho a pasta "A" com 15 arquivos em PDF destes eu quero pegar 5 arquivos quais os nomes estão listados no relatório do Excel e copiar para a pasta "B") porém a macro que eu criei não consigo colocar para buscar por nome, ela copia todos os arquivos da pasta. segue macro abaixo: OBS: peço desculpas se estiver postando no tópico errado. Private Sub CommandButton1_Click() SstrComputer = "." Dim texto As String 'Set objWMIService = GetObject("winmgmts:\\" & amp & strComputer & amp & "\root\cimv2") Set OBJFSO = CreateObject("Scripting.FileSystemObject") 'Coloque aqui a pasta que será verificada strPasta = "E:\ÁREA DE TRANSFERÊNCIA\FRAMES MONTAGEM\17-10-14" 'essa é a pasta que contem os arquivos OUTRAPASTA = "E:\TESTE" 'essa é a pasta que os arquivos devem ser salvos On Error Resume Next If (OBJFSO.FolderExists(strPasta) = True) Then Set Folder = OBJFSO.GetFolder(strPasta) Set myfiles = Folder.Files Count = 0 For Each myfiles In Folder.Files texto = myfiles.Name Count = Count + 1 'If Left(myfiles.Name, 8) <> "20141002" And Right(myfiles.Name, 4) <> ".RET" Then OBJFSO.MoveFile strPasta & "\" & myfiles.Name, OUTRAPASTA & "\" & "GR" & Count & ".JPG" ' End If Next MsgBox "Processo concluído!!!" Else MsgBox "Pasta de arquivos inexistente", 64 End If wscript.Quit End Sub