Bom dia Pessoal, Primeiramente, quero lhes agradecer por me aceitarem no fórum! Sou de Floripa, e estou tentando aprender um pouco sobre programação. Tenho o seguinte código: Sub test1()
Dim c As Object, x, i As Long, n As Long
Set c = CreateObject("Scripting.FileSystemObject")
oldpath = Range(["D2"]): newpath = Range(["D3"])
x = Range([c2], [c2].End(xlDown))
For i = 1 To UBound(x)
c.copyfile oldpath & x(i, 1), newpath & x(i, 1)
n = n + 1
Next: MsgBox n & " arquivos copiados com sucesso", vbInformation: End Sub Consigo com isto, utilizando o Excel, copiar várias imagens de uma determinada pasta para outra pasta. Porém, na planilha do Excel, tenho duas colunas: Uma com o nome das imagens (001.jpg, 002.jpg, 003.jpg, etc) e outra com o tamanho das imagens (1800x1200 ou 2700x1800 ou 3600x2400).Gostaria que o computador procurasse estas imagens em uma pasta e suas subpastas e as copiasse para uma das pastas (1800x1200 ou 2700x1800 ou 3600x2400), conforme o tamanho das imagens. Será que alguém poderia me ajudar a resolver este problema? Obrigado pela atenção