Finde data fra et andet ark.

I nedenstående makro er det kolonnne G der angiver om der sejles og resultatcellen er A1 - de to ELSE-grene er ikke nødvendige:

Sub SejlerDen()
    Dim c, s
    [A1].Value = ""  'resultatcelle nulstilles
    'MsgBox [A50].Value
    Set c = Worksheets("Ark1").Range("A4:A47").Find(what:=[A50].Value, lookat:=xlWhole)
    If Not c Is Nothing Then
        'leder efter s i kolonne 7, dss. G
        Set s = Worksheets("Ark1").Range(Worksheets("Ark1").Cells(c.Row, 7), _
            Worksheets("Ark1").Cells(c.Row, 7)).Find(what:="S")
        If Not s Is Nothing Then
            'MsgBox "SEJLER"
            [A1].Value = "SEJLER"
        Else
            'MsgBox "SEJLER IKKE"
            [A1].Value = ""
        End If
    Else
        'MsgBox "Ikke fundet"
        [A1].Value = ""
    End If
End Sub

Tak for svaret tjp, men det gør det ikke dynamisk nok, hvis jeg kører det v.hj.a. en makro.

Er i mellemtiden selv kommet frem til en løsning med HVIS og LOPSLAG, som fungerer upåklageligt:

=HVIS(LOPSLAG($A50;Ark1!$A$4:$AG$41;3;0)="S";"Sejlads";"")

Ærgeligt, at den ikke kunne bruges, men smart løsning du kom frem til...