MsgBox toevoegen

[toverkamp]

Ik wil in de volgende code een MsgBox toevoegen, maar ik weet niet waar ik deze moet plaatsen. Deze MsgBox:

    If zoekopnaamfiliaal Is Nothing and zoekopnaamplaats is Nothing Then
    MsgBox "Filiaal bestaat niet"
End If

moet toegevoegd worden in de volgende code:

Private Sub zoekopnaamzoek_Click()
      
    Dim c As Range, filteredRange As Range
    With Sheets("database filiaal").Range("B4").CurrentRegion
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:=zoekopnaamfiliaal.Text
        .AutoFilter Field:=3, Criteria1:=zoekopnaamplaats.Value
    End With
    
    With Sheets("database filiaal").AutoFilter.Range
        On Error Resume Next
        Set filteredRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    End With
    
    For Each c In Intersect(filteredRange, Sheets("database filiaal").Columns(6))
        zoekenopnaam.zoekopnaamfiliaalnr.AddItem c
    Next

End Sub

 

[koosl]

Eej toverkamp,

kiek is, werkt ditte?

Private Sub zoekopnaamzoek_Click()
    [B]On Error GoTo fout[/B]
    Dim c As Range, filteredRange As Range
    With Sheets("database filiaal").Range("B4").CurrentRegion
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:=zoekopnaamfiliaal.Text
        .AutoFilter Field:=3, Criteria1:=zoekopnaamplaats.Value
    End With
    
    With Sheets("database filiaal").AutoFilter.Range
        On Error Resume Next
        Set filteredRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    End With
    
    For Each c In Intersect(filteredRange, Sheets("database filiaal").Columns(6))
        zoekenopnaam.zoekopnaamfiliaalnr.AddItem c
    Next
    [B]Exit Sub[/B]
    [B]fout:
    MsgBox "Filiaal bestaat niet"[/B]
End Sub

Ik ben zelf niet in de gelegenheid om het te testen.
Maar als jou code van te voren al werkte denk ik dat het wel moet werken



Koosl

 

[toverkamp]

Koosl, bedankt voor je reactie. Helaas werkt dit niet.... weet iemand misschien waar de fout zit? Ik hoor het wel, alvast bedankt!