Opgelost fout in vba stopt als er geen pasfoto is geplaats in de map voor een ID Nr.

[Ben]

Dag allemaal ben weer eens bezig en ik had graag dat het werkt maar de opdracht wordt gestopt op regel 11 als er geen foto in de map staat. de iconen en het excelbestand in een map zetten dan kunnen jullie dit testen.
Met een vriendelijke groet Ben

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C5"), Target) Is Nothing Then
If Target = "" Then
 MsgBox "Vul het ID Nr. in !!!!!"
Exit Sub
End If
'als er een ID nr wordt ingevoerd en er is geen foto aanwezig in de map .Picture = LoadPicture(ThisWorkbook.Path & "\" & Target.Value & ".jpg")stopt de opdracht.
'graag had ik hier een MsgBox "geen pasfoto aanwezig"
  With ActiveSheet.Image1
  Dim sPicture As String, pic As Picture
    .Picture = LoadPicture(ThisWorkbook.Path & "\" & Target.Value & ".jpg")
    .PictureSizeMode = 1
   'Top = Range("B20")
    '.Left = Columns(2).Left
  End With
End If

End Sub

 

[AHulpje]

Je hebt een verkeerd bestand geplaatst, maar probeer het zo eens:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C5"), Target) Is Nothing Then
        If Target = "" Then
            MsgBox "Vul het ID Nr. in !!!!!"
            Exit Sub
        End If
        'als er een ID nr wordt ingevoerd en er is geen foto aanwezig in de map .Picture = LoadPicture(ThisWorkbook.Path & "\" & Target.Value & ".jpg")stopt de opdracht.
        'graag had ik hier een MsgBox "geen pasfoto aanwezig"
        With ActiveSheet.Image1
            Dim sPicture As String, pic As Picture
            sPicture= ThisWorkbook.Path & "\" & Target.Value & ".jpg"
            If Dir(sPicture) = "" Then
                MsgBox sPicture & " niet gevonden"
            Else
             .Picture = LoadPicture(sPicture)
             .PictureSizeMode = 1
            'Top = Range("B20")
             '.Left = Columns(2).Left
            End If
        End With
    End If
End Sub

 

[Ben]

Dankjewel dit werkt nu kan ik weer verder, PS verkeerd bestand ???? ik heb toch alles verstuurd.

Met een vriendelijke groet Ben.

 

[AHulpje]

Nee, je hebt per abuis je Excel temporary file geplaatst, kijk maar eens naar de filenaam.

 

[Ben]

hier het bestand wat volgens mij nu werkt

 

[Ben]

Ja ik zag het ~$ dit stond ervoor bedankt voor de moeite

 

[Warme bakkertje]

Waarom zelf geen jpg maken waarop vermeld wordt 'Geen foto beschikbaar' en deze dan als image laten verschijnen ipv zo'n verdomde msgbox.

 

[AHulpje]

Het goede idee van Warme bakkertje geïmplementeerd, en bestandsgrootte gehalveerd door het verwijderen van lege kolommen.

 

[Ben]

Ja dit is duidelijk en zichtbaar dankj wel voor de tip @AHulpje en @Warme bakkertje Toppie.
hier nog de oefen pasfoto`s deze waren verwijderd.