Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Verschil in rij aangeven

  1. #1
    Vraag is opgelost

    Verschil in rij aangeven

    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
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Met behulp van voorwaardelijke opmaak?

  3. #3
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    Code:
    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
    Code:
    If WorksheetFunction.Count(.Resize(, 2)) >=1 Then   'er staan 2 getallen in A en B
    Laatst aangepast door cow18 : 14 januari 2021 om 11:58

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    of zoiets

    Code:
    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
    Laatst aangepast door VenA : 14 januari 2021 om 13:58
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    @Cow18 en @Vena,

    Top

    Ik ga voor Vena.

    Frans

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren