zoeken of bestand bestaat

[MarcelJes]

Ik heb de volgende puzzel:
-op het netwerk staat een map met ca 600 bestanden (foto's)
-bestandsnaam komt overeen met een nummer in een excel lijst
-extensie van bestanden is varierend en niet afhankelijk van nummer (dus kan .gif, .jpg of .bmp zijn)

Vraagstelling:
-in de excellijst moet een signalering komen of het corresponderende bestand in de map aanwezig is.
Dus bv in de excellijst staat nr 12345. Er moet gekeken worden of in de map X;\foto een bestaand aanwezig is met de naam 12345 (extensie dus niet relevant). Zo niet, moet er een signalering komen.

Kan dit eenvoudig binnen Excel?

 

[Roncancio]

Ik heb de volgende puzzel:
-op het netwerk staat een map met ca 600 bestanden (foto's)
-bestandsnaam komt overeen met een nummer in een excel lijst
-extensie van bestanden is varierend en niet afhankelijk van nummer (dus kan .gif, .jpg of .bmp zijn)

Vraagstelling:
-in de excellijst moet een signalering komen of het corresponderende bestand in de map aanwezig is.
Dus bv in de excellijst staat nr 12345. Er moet gekeken worden of in de map X;\foto een bestaand aanwezig is met de naam 12345 (extensie dus niet relevant). Zo niet, moet er een signalering komen.

Kan dit eenvoudig binnen Excel?

Wat noem je eenvoudig?
Met VBA is dit wel zo te realiseren, maar niet via een formule.

Met vriendelijke groet,


Roncancio

 

[MarcelJes]

hmmm, da's niet eenvoudig dus.
Moet ik in mijn geheugen graven naar verdwaalde VBA kennis ...long time ago

 

[Roncancio]

Ik ben zo brutaal geweest om een macro te schrijven.

Sub Foto()
Dim iRij As Integer
    iRij = 1
    While Cells(iRij, "A") <> ""
        If Dir("X:\" & Trim$(Cells(iRij, "A")) & "*.*") <> "" Then
            Cells(iRij, "A").Interior.Color = vbGreen
        Else
            Cells(iRij, "A").Interior.Color = vbRed
        End If
        iRij = iRij + 1
    Wend
End Sub

Bovenstaande code controleert in de X(!)-directory naar de lijst van fotobestanden die in de A-kolom staan.
Wordt het bestand gevonden, wordt de cel in de A-kolom groen gemaakt.
Wordt het bestand niet gevonden, dan wordt de cel rood gemaakt.

Met vriendelijke groet,


Roncancio

 

[MarcelJes]

Toppertje!!
Van dit soort brutaliteiten hou ik wel
Mag je vaker doen:thumb:
thx!

 

[Roncancio]

Ok. Wil je de vraag op opgelost zetten.

Bvd.

Met vriendelijke groet,


Roncancio