Udtræk fra kundedatabase

Glemte lige at tilføje, at jeg bruger en engelsk version af excel, så jeg skal helst have løsningen ved hjælp af engelske formler.

Hvis det er for at lave en oversigt over den pågældende medarbejderes kunder, hvad så med at bruge Autofilter?

Problemet er at en medarbejder kan stå i 3 forskellige kolonner

En af ulemperne ved at prøve at bruge Excel som "database".

*************************
Sub KopierUdFraMedarbejder()
    Dim strEmployee As String
    Dim objCopyTo As Range
    Dim objCopyFrom As Range
    Dim i As Integer
   
    strEmployee = Sheets("ark1").Range("A1")
    Set objCopyTo = Sheets("ark1").Range("A1").CurrentRegion
    Set objCopyTo = objCopyTo.Offset(objCopyTo.Rows.Count).Resize(1)

    Set objCopyFrom = Sheets("ark2").Range("A4").CurrentRegion
   
    For i = 1 To objCopyFrom.Rows.Count
        If objCopyFrom.Cells(i, 2) = strEmployee Or objCopyFrom.Cells(i, 3) = strEmployee Or objCopyFrom.Cells(i, 4) = strEmployee Then
            objCopyFrom.Rows(i).Copy Destination:=objCopyTo.Rows(1)
            Set objCopyTo = objCopyTo.Offset(1)
        End If
    Next i
   
    Set objCopyFrom = Nothing
    Set objCopyTo = Nothing
End Sub
************

Klasse!

Det virker.

Hvordan tildeler jeg dig point?

Det kan du gøre nu, hvor jeg har lagt et svar :-)

Værsgo! Du burde også kalde dig for excel-hajen :)

Tak-tak, men det ville være at pynte sig med lånte fjer. :-)