Flytte rækker som IKKE indeholder værdi = nem

Står denne værdi i en bestemt kolonne?

Kolonne A

Det kunne gøres sådan her
Sub FlytNotNem()
    Dim i As Integer
    For i = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If LCase(Cells(i, 1).Value) <> "nem" Then
            Cells(i, 1).EntireRow.Copy Destination:=Worksheets("Sheet2").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0)
            Cells(i, 1).EntireRow.Delete
        End If
    Next
End Sub

Perfekt! Jeg er en glad mand ;) smid et svar...

dejligt at høre

Hvis det nu er kolonne C den skal se i? er 'i' så ikke 3?

Nej. 1 skal være 3 - altså

Sub FlytNotNem()
    Dim i As Integer
    For i = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If LCase(Cells(i, 3).Value) <> "nem" Then
            Cells(i, 3).EntireRow.Copy Destination:=Worksheets("Sheet2").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0)
            Cells(i, 3).EntireRow.Delete
        End If
    Next
End Sub

Bemærk, at det forudsættes, at der står noget i kolonne A ud for alle rækker, der skal behandles.

ok... Tak!!!
Kunne godt være jeg skulle på noget kursus...