Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
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
If WorksheetFunction.Count(.Resize(, 2)) [COLOR="#FF0000"]>=1[/COLOR] Then 'er staan 2 getallen in A en B
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
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.