Verschil in rij aangeven

[fwalraven]

In een bestand worden 2 kolommen vergeleken.
Indien niet gelijk worden een(1) of meerdere cellen rood gekleurd.
Hoe geef ik aan dat een(1) of meerdere cellen niet gelijk zijn of rood gekleurd zijn?

Bvd,Frans

[Haije]

Met behulp van voorwaardelijke opmaak?

[cow18]

Sub Macro1()
'
' Macro1 Macro
'
''Kolm E is eventjes een hulpkolom.
''In werkelijkheid worden deze waarden uit een ander blad gekopieerd.
'
   GoTo overslaan                                'even dit stuk overslaan
   Columns("E:E").Select
   Selection.Copy
   Columns("B:B").Select
   ActiveSheet.Paste
   Range("H8").Select
   Application.CutCopyMode = False

overslaan:
   ''Rij 1 bevat tekst
   For i = 2 To 19                               'die rijen aflopen
      With Cells(i, 1)                           'kijk naar de A-cel van die rij
         If WorksheetFunction.Count(.Resize(, 2)) = 2 Then   'er staan 2 getallen in A en B
            b = (.Value <> .Offset(, 1).Value)   'ze zijn verschillend
            .Offset(, 1).Interior.ColorIndex = -3 * b   'achtergrondkleur 0 of 3 naargelang gelijk of verschillend
            tot = tot - b                        '1 bij optellen als verschillend
            If b Then
               If VarType(c) = vbEmpty Then Set c = .Offset(, 1)   '1e verschillende cel bepalen
               Set c = Union(c, .Offset(, 1))    'de rest er aan toevoegen
            End If
         End If
      End With
   Next

   If tot <> 0 Then MsgBox "er zijn " & tot & " verschillen in " & c.Address   'boodschap voor verschil !

End Sub

desnoods als 1 cijfer in A of B al voldoende is

If WorksheetFunction.Count(.Resize(, 2)) >=1 Then   'er staan 2 getallen in A en B

[VenA]

of zoiets

Sub VenA()
  For Each cl In Columns(1).SpecialCells(2, 1)
    If cl <> cl.Offset(, 1) Then c00 = c00 & vbLf & cl.Row
    cl.Offset(, 1).Interior.ColorIndex = -3 * (cl <> cl.Offset(, 1))
  Next cl
  MsgBox IIf(UBound(Split(c00, vbLf)) > -1, "verschillen in de volgende rij(en)" & c00, "geen verschil")
End Sub

[fwalraven]

@Cow18 en @Vena,

Top

Ik ga voor Vena.

Frans