Kæmpe problem!, sammenligning af tal med collum!

http://www.smartoffice.dk/SmartOffice/Products/Compare2Column.asp
- det er måske ikke til så megen hjælp, da du sikkert søger en gratis løsning

Selvfølgelig søger jeg en gratis løsning ^^.. og ver da næsten 100% sikker på at det kan lade sig gøre med nogle =IF(OR(Somthing)) eller lignende ^:D

koden er ikke helt som du bad om, det er nemmere at  arbejde, med c kolonnen.



Public Sub Tjek()
    Dim Data1 As Variant, Data2 As Variant, I As Long, J As Long, RW As Long
    Data1 = [Ark1].[i:j] ' læser 2 kolonner ind i Data1
    For I = 1 To UBound(Data1)
        If Not IsEmpty(Data1(I, 2)) Then
            Data1(I, 1) = Data1(I, 2) * -1 ' flytter negative værdier over i kolonne I, som  minusværdier
        End If
    Next
    RW = [Ark2].[C65536].End(xlUp).Row ' tjekker antal date i ark2 C kolonnen
    Data2 = [Ark2].Range("C1:C" & RW)  'læser det ind i Data2

    For I = 1 To UBound(Data1)
        For J = 1 To RW
            If Data2(J, 1) = Data2(1, 1) Then Data2(J, 1) = 0 ' tjekker dem op imod hinanden
        Next
    Next
    [Ark2].Range("D1:C" & RW) = Data2 ' skriver resultatet i d kolonnen ark2
End Sub

Jeg kan vel ikke få dig til lige at smide, en fil på rapid share hvor det er i brug ?... Ved ikke en gang hvor koden der skal indsættes ^^

http://rapidshare.com/files/152063100/Test_til_eksp.xls.html

Det eneste der virkeligt mangler, er den med at hvis der nu er 2 tal der er ens i den ene... så tager den dem stadig som om de har fundet partner... problemet er så bare at det er med den samme :/

Hov... nu glemte jeg lige at sige DAMN tak! :D... lige bortset fra den sidste ting spiller det max!

det sidste, burde løses med

Public Sub Tjek()
    Dim Data1 As Variant, Data2 As Variant, I As Long, J As Long, RW As Long
    Data1 = [Ark1].[i:j] ' læser 2 kolonner ind i Data1
    For I = 1 To UBound(Data1)
        If Not IsEmpty(Data1(I, 2)) Then
            Data1(I, 1) = Data1(I, 2) * -1 ' flytter negative værdier over i kolonne I, som  minusværdier
        End If
    Next
    RW = [Ark2].[C65536].End(xlUp).Row ' tjekker antal date i ark2 C kolonnen
    Data2 = [Ark2].Range("C1:C" & RW)  'læser det ind i Data2

    For I = 1 To UBound(Data1)
        For J = 1 To RW
            If Data2(J, 1) = Data2(1, 1) Then
Data2(J, 1) = 0 ' tjekker dem op imod hinanden
exit for
end if
        Next
    Next
    [Ark2].Range("D1:C" & RW) = Data2 ' skriver resultatet i d kolonnen ark2
End Sub

det var forkert kode, her er den rigtige

Public Sub Tjek()
    Dim Data1 As Variant, Data2 As Variant, I As Long, J As Long, RW As Long
    RW = Application.WorksheetFunction.Max(Sheets("Sheet1").[I65536].End(xlUp).Row, Sheets("Sheet1").[J65536].End(xlUp).Row)
    Data1 = Sheets("Sheet1").Range("i1:j" & RW)    ' læser 2 kolonner ind i Data1
   
    For I = 1 To UBound(Data1)
        If Not IsEmpty(Data1(I, 2)) Then
            Data1(I, 1) = Data1(I, 2) * -1    ' flytter negative værdier over i kolonne I, som  minusværdier
        End If
    Next
   
    RW = Sheets("Sheet2").[C65536].End(xlUp).Row  ' tjekker antal date i ark2 C kolonnen
    Data2 = Sheets("Sheet2").Range("C1:C" & RW)  'læser det ind i Data2

    For I = 1 To UBound(Data1)
        For J = 1 To RW
            If Data2(J, 1) = Data1(I, 1) Then
            Data2(J, 1) = 0    ' tjekker dem op imod hinanden
            Exit For
            End If
        Next
    Next
    Sheets("Sheet2").Range("D1:D" & RW) = Data2    ' skriver resultatet i d kolonnen ark2
End Sub

Det gjorde så at den slet ikke virker efter hendsigten.. nu skriver den bare alle de tal der står i kolonnen ^^...
Selv dem der ikke finder partner skriver den bare det samme... Hmm ved ikke lige hvor fejlen ligger ? :/

den sidste kode, er tjekket

Jeg får helt forkert output :S...

den er oploaded

http://rapidshare.com/files/152369106/Test_til_eksp.xls.html

Jeg kunne ikke være mere tilfreds!... Kæft du fortjener en KÆMPE HÅND...
Ville med glæde give dig 1000 points :(.. men det er desvære ikke tilladt her inde...!...

Mange tak for hjælpen!

Baah.. Opdagede lige en fejl...

Lige så snart der er en der ikke går op (i den nye) så siger den at resten heller ikke går op, selvom de gør.. :/

Mig der tog fejl... Det virker perfekt!

Kabbak, hvis du vil tjene 200 point's mere, ligger der en ekstra opgave, hvor jeg er TOTALT lost igen...
http://www.eksperten.dk/spm/850902

Hmm... det er egentligt bare det du har skrevet en gang, det skal bare vendes om :D