MsgBox istedet for VBA fejlmeddelse ved søgning

OK = False
For Each
        If  Then
            'fundet
            OK = true
            Exit For
        End If
    Next

if not OK then Msgbox "Ikke fundet"

Det virker, men kan jeg skrive noget umiddelbart efter (If Not OK Then MsgBox "Ikke fundet)" sådan at den afslutter makroen og ikke kommer med en makro fejlmeddelsen, da jeg har en del koden efter denne linje, som den jo bare skal droppe

exit sub

if not OK then
Msgbox "Ikke fundet"
exit sub
end if

;-))

Hvis jeg indsætter "exit sub" på linjen under linjen "if not OK Then MsgBox...." så afsluttes makroen hver gang uanset om OK er true eller False og det er jo ikke meningen da den gerne skal gå videre i subben hvis ordet bliver fundet

se 30/08-2008 23:06:29

Så ikke dit svar men hvis jeg bruger:

if not OK then
Msgbox "Ikke fundet"
exit sub
end if

Så siger den at man ikke kan bruge et End if hvis man ikke starter med et IF

så mangler du et IF, et andet sted i koden.

må vi se noget mere kode, så skal jeg kikke efter.

Glem 30/08-2008 23:18:31

Dim Data As Variant
    Dim Firma As String, C As Range
    Dim RkStart As Integer, RkSlut As Integer
    Dim OK As Boolean
   
    Firma = ActiveSheet.Cells(1, 2)                                                                     
    OK = False
    For Each C In Sheets("Udgangspunkt").Columns("A").Cells
        If C = Firma Then
            RkStart = C.Row
            RkSlut = C.End(xlDown).Offset(-1, 0).Row
            OK = True
            Exit For
        End If
    Next
   
    If Not OK Then
    MsgBox "Ikke fundet"
    Exit Sub
    End If
   
    Data = Sheets("Udgangspunkt").Range("A" & RkStart & ":C" & RkSlut)

Den virker faktisk, men den kommer stadig med en makro-fejl efter jeg har klikket på OK i MSgBox

Vent, jeg er for hutigt på aftrækkeren, det er fordi jeg har en andre makro som kalder en makro mere efter denne, og den har jeg ikke rettet, så alt er i den fineste orden

Jeg sad også lige at tænkte på kaldet af denne makro, for jeg har jo selv laven den

Ja det er korrekt at du lavede den i torsdags, og efter disse finjusteringer er det bare blevet helt perfekt, jeg takker igen! :-)