Hey, har siddet og bøvlet lidt med noget VBA programmering, men er rendt ind i et problem.
Jeg har sorteret indholdet i et worksheet i alfabetisk orden, med hensyn til kolonne "O", og vil så gerne tjekke efter dupletter i cellerne i kolonne "O".
Koden der skal tjekke om cellerne i kolonne "O" (kolonne nr. 15) er dupletter:
- Dim lrow As Integer, i As Integer, Data1 As Range, Data2 As String, Data4 As String, Data5 As String
- Set Data1 = Range(Range("A2"), Range("A2").End(xlToRight).End(xlDown))
- lrow = Cells(Rows.Count, "A").End(xlUp).Row
- For i = 1 To lrow
- Data2 = Data1.Cells(i, 15).Value
- Data4 = Data1.Cells(i + 1, 15).Value
- If Data2 <> Data4 Then
- Data5 = Data1.Cells(i + 2, 15).Value
- If Data4 <> Data5 Then
- Selection.Rows(i + 1).EntireRow.Delete
- End If
- End If
- Next i
Ideen er at jeg tjekker om
- cellen (i,15) er forskellig fra cellen (i+1,15)
- og hvis det så er tilfældet så tjekker jeg om cellen (i+1,15) også er forskellig fra cellen (i+2,15)
- og hvis det så igen er tilfældet konkluderer jeg at cellen (i+1,15) må have unikt indhold, hvorefter jeg så sletter denne række.
Men så vidt jeg kan se når jeg stepper mig igennem denne kode/makro, så er det som om mine
ikke fungerer...
Nogle der har noget input? Eller evt en anden måde at tjekke efter dupletter?