Rijen selecteren + een kleur geven

[boome]

Ik ben op zoek naar een macro die het volgende doet:

Ik heb een excel werkblad met x-aantal lijnen (=rijen) en kolommen op.

De macro moet alle rijen (naambereik= overzicht) waarvan de waarde in kolom R (naambereik= betaald) gelijk is aan ja selecteren en vervolgens de ganse rij in een kleur zetten:

Ik heb al van alles uitgebrobeerd maar ik geraak er niet uit.

Heeft er iemand van jullie een idee hoe ik dit het beste aanpak?

Zie fictief voorbeeld in bijlage

Alvast hartelijk dank

 

[snb]

With sheets(1).usedrange.columns(18)
  .autofilter 1,"ja"
  .offset(1).specialcells(xlcelltypevisible).entirerow.interior.colorindex=23
  .autofilter
End with

 

[boome]

Ik heb die code nu in mijn excel-sheet geplakt en proberen uit te voeren, maar er klopt ergens iets niet want ik krijg een error op de .autofilter 1.
"Compileerfout ongeldige of niet gekwalificeerde verwijzing"

 

[snb]

Zie bijlage

 

[boome]

schitterend het werkt, hartelijk dank.

Weeral iets bijgeleerd, was het veel te ver aan het zoeken in de code, en dit is relatief eenvoudige code (al zou ik het liever logisch willen noemen)

 

[boome]

Helaas er klopt nog ergens iets niet.
De code zoals ingevuld in mijn test bestand werkt, maar wanneer ik de code kopieer naar mijn eingelijke werkblad verschijnt er steeds een error op de .AutoFilter, zeer vreemd maar ik heb alles nagekeken en de kolommen in het voorbeeld zijn identiek aan deze van het eigenlijke bestand.

 

[boome]

Heb het probleem zelf al kunnen oplossen.
De tabbladen in de definitieve file hadden een andere naam gekregen.
Heb dit ook aangepast in de code en nu werkt het perfect.