• 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.

VBA Voorwaardelijke opmaak: duplicaten markeren

Status
Niet open voor verdere reacties.
snb

snb

Verenigingslid
Lid geworden
12 jun 2008
Berichten
19.725
Met VBA kan ik de volgende voorwaardeljke opmaakregel toevoegen:

Code: 
Sub M_snb()
    Sheet1.UsedRange.Columns(1).FormatConditions.Add(8).Interior.ColorIndex = 44
End Sub

Alle unieke elementen worden gemarkeerd.
Via het gebruikersscherm kan ik instellen dat in plaats van alle unieke gegevens alle duplikaten worden gemarkeerd.
Dat lukt mij niet in VBA.
Hoe kan dat in VBA ?

Vooraf al dank.
 
Laatst bewerkt:
Zo?

Code: 
Sub VenA()
With Blad1.UsedRange.Columns(1).FormatConditions.Add(8)
  .Interior.ColorIndex = 44
  .DupeUnique = xlDuplicate
End With
End Sub
 
@V & A

Meteen raak ! :thumb:
Dankjewel.

In de hulp van VBA (2010) staat deze eigenschap van formatcondition niet beschreven.

Een alternatieve manier van schrijven:

Code: 
Sub M_snb()
    With Sheet1.UsedRange.Columns(1).FormatConditions.AddUniqueValues
        .Interior.ColorIndex = 44
        .DupeUnique = 1
    End With
End Sub
 
Laatst bewerkt:
Even een macro opnemen geeft vaak de zoekrichting:p:d
 
Die resulteerde in Excel 2010 in niente :(

Goeie tip overigens :p. Die kon ik nog niet. Waar zit zo'n macrorecorder ???
 
Laatst bewerkt:
Opname-apparatuur wil nog wel eens stuk gaan.
Ik heb even een opname gemaakt hoe je een macro kan opnemen https://www.youtube.com/watch?v=RsdzQa7O8MU Zo leer je nog eens wat:d

De iets langere code vanuit XL-2010 dan krijg je dit
Sub Macro1()
'
' Macro1 Macro
'

'
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("G12").Select
End Sub


Met een oneliner kan het volgens mij niet. Maar bij jou weet je het nooit.
 
Laatst bewerkt:
@V & A

Dankjewel; er gaat een wereld voor me open...

Dit is mijn opgenomen macro

Code: 
Sub Macro3()
'
' Macro3 Macro
'

'
End Sub

Misschien kun je ook nog een filmpje maken hoe je code tags rondom VBA-code kunt zetten.:p
 
Gaat als een speer. Even de onzin vanaf #4 weghalen?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan