Forklaring til macro

Prøv at debugge (F8) så du kører koden én linie ad gangen. Du kan se hvad der sker på arket og når du lader musen hvile på en variabel i koden kan du se hvilken værdi den er tildelt. Sammenholdt kan du regne ud hvad der foregår.

Sub test()
Dim C As Range
'marker celle G2
Range("G2").Select
'Marker fra G2 til første tomme celle i kolonne G
Range(Selection, Selection.End(xlDown)).Select
'for hver celle i markeringen gør.....
For Each C In Selection.Cells
'hvis cellen er større end den i samme række i kolonne I så..
    If C.Value > C.Offset(0, 2).Value Then
        'farv cellen i kolonne I med farve 3
        C.Offset(0, 2).Font.ColorIndex = 3
        'ellers hvis cellen + 10% er mindre end cellen i kol. I, så...
    ElseIf (C.Value + (C.Value / 10)) <= C.Offset(0, 2).Value Then
        'farv celleen i kol. I med farve 5
        C.Offset(0, 2).Font.ColorIndex = 5
    Else
        'hvis inden af de to førstnævne er sand så farv cellen i kol I med farve 1
        C.Offset(0, 2).Font.ColorIndex = 1
    End If
Next
Range("A1").Select
End Sub

Tak bak.
Mit problem er nemlig, at nogle celler i kol. I farves '3' selvom cellen i kol. G er = cellen i kol. I.
Så jeg var bange for, at der skulle være noget i vejen med koden.

NB.
cellen i kol. G er = cellen i kol. E eller cellen i kol. E*1,25 med 2 decimaler kol. E kommer fra en *.txt hvor der kun trækkes 2 decimaler med over.

Jeg har gjort følgende:
Columns("I:I").Select
Selection.Copy
Columns("I:I").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Copy
Columns("G:G").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Alstå kopiere kolonne G og I - indsæt speciel (værdi), så begge kolonner er ens.
Nu er alle celler korrekt farvet.

lukker !