sammenligne 2 kolonner

Man kan fx. farve de celler/tal i den ene kolonne som ikke er med i den anden og vise versa
Er det er brugbar løsning ?

Er der tal i kolonne 1, som ikke forekommer i 2, samtidigt med at der er tal i kolonne 2, som ikke forekommer i 1, eller er kolonne 2 en delmængde af 1.

Altaå er dette situationen

1  1
2  3
3  5
4
5

eller denne

1  4
2  5
3  6
4  7
5  8

Situationen er denne:

1  1
2  3
3  5
4  6
5 
6

Her en idé. Om den kan bruges afgør du selv.

Flyt kolonne 2 til Ark2 og afpsil denne makro:

Sub SletRaekke()
    Dim a As Variant
    For Each c In Sheets(2).Range("a:a").Cells
        If c.Value = "" Then Exit Sub
            a = c.Value
            For Each x In Sheets(1).Range("a:a").cells
                If x.Value = a Then
                    x.EntireRow.Delete shift:=xlUp
                End If
            Next x
    Next c
End Sub

Den forudsætter at kolonnen, hvor der skal slettes står i Ark1 - kolonne A, og kolonnen, hvor der testes, hvad der skal slettes står i Ark2, kolonne A.

Husk at prøve i en kopi først :-)

jkrons> Jeg tester det imorgen. pft. Og jeg husker kopien ;o)

Et andet bud:
Sub Sammenlign()

fra = 1: til = 180 ' Ret fra/til til aktuel første/sidste række



For Each c In Range("A" & fra & ":A" & til)

If Application.CountIf(Range("B" & fra & ":B" & til), c) Then

c.Interior.ColorIndex = xlNone

Else

c.Interior.ColorIndex = 6

End If

Next

For Each c In Range("B" & fra & ":B" & til)

If Application.CountIf(Range("A" & fra & ":A" & til), c) Then

c.Interior.ColorIndex = xlNone

Else

c.Interior.ColorIndex = 4

End If

Next

End Sub


som virker fint hos mig.

jkrons> Det virkede perfekt. Tak for din hjlæp og tid. :oD

jkrons> Smider du et svar ?

Her er et svar :-)