Preferisco suggerirti di controllare che i dati inseriti in colonna A:E siano corretti; cosa che puoi fare con questa macro di Worksheet_Change:
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myC As Range, myP As String
Dim fSo As FileSystemObject, myOk As Boolean
'
myP = Range("B1").Value: If Right(myP, 1) <> Application.PathSeparator Then _
myP = myP & Application.PathSeparator
If fSo Is Nothing Then Set fSo = CreateObject("Scripting.FileSystemObject")
For Each myC In Target
If myC.Column = 1 And myC.Value <> "" Then
lookf = myC.Value & ".jpg"
If fSo.FileExists(myP & myC.Value & ".jpg") Then myOk = True Else myOk = False
ElseIf myC.Column >= 2 And myC.Column <= 5 And myC.Value <> "" Then
If fSo.FolderExists(myP & myC.Value) Then myOk = True Else myOk = False
Else
If myC.Column <= 5 Then myC.Interior.ColorIndex = xlNone
GoTo exiA
End If
If myOk Then
myC.Interior.ColorIndex = xlNone
Else
myC.Interior.Color = RGB(255, 0, 0)
End If
Next myC
exiA:
Set fSo = Nothing
End Sub
Va messa nel modulo vba del foglio su cui lavori; per questo:
-tasto dx sul tab col nome del Foglio
-scegli Visualizza Codice
-Copia i codice e incollalo sulla finestra vba che si e' così aperta
Poi torna su Excel e prova scrivere dei nomi di foto (col A) oppure delle directory (col B:E); se il dato non e' corretto la cella si colora di rosso e puoi correggere dove serve.
Dopo le correzioni, seleziona un dato in rosso, premi F2 e poi Enter per "sbiancare" il risultato.
Ciao