Exituje soubor jpg

[luko02420]

Dobrý den, potřeboval bych poradit jak pomocí makra zjistit zda exituje soubor jpg.
Ve sloupci A mám názvy souborů jpg a potřebuji do sloupce B vypsat zda exitují v určitém umístnění v PC.
Jedná se cca o 1500 položek
Našel jsem pouze tento kód ale nemůžu to nějak rozchodit.
Děkuji za pomoc.

Kód: Vybrat vše

Sub makro()
If Dir("C:\Excel.xls") <> "" Then
Range("a2") = Range("a1")
End If
End Sub

[Uziv00]

Vzorový excel by nebyl?
Ve vbs:

Kód: Vybrat vše

   Set fso = CreateObject("Scripting.FileSystemObject")   
   cesta = "c:\obrazek.jpg"
   If (fso.FileExists(cesta)) Then
   Wscript.echo "soubor existuje"
   Else    
   Wscript.echo "soubor neexistuje"
   End If

[luko02420]

Přikládam excel, návrh od ITCrowd jsem taky zkoušel ale neni to co potrebuji.

[elninoslov]

Nepozeral som ten Váš súbor, ale tu som Vám urobil 2 rôzne inšpirácie. UDF a hromadné makro.

[luko02420]

To elninoslov: Tak to je bomba, Funguje uplne přesně tak jak jsem potřeboval.
Říkám to pořád, že máte zlatý ruce.