Selectie aan de hand van celkleur

[3ssie]

Hallo allemaal,

Wederom een vraag........
Ik heb in een excel bestand een aantal cellen met een kleur (rood)
En een heleboel cellen zonder kleur.
Eigenlijk zou ik in een keer alle cellen met kleur willen zien en de cellen zonder kleur niet.
Is dit mogelijk? En wat voor formule kan ik hiervoor gebruiken?

Alvast bedankt voor de tips :thumb:

 

[Cobbe]

Gebruik de ASAP Utilities voor dit probleem.
Daarin is dit en nog véél meer uitgewerkt speciaal voor u en ons.

Cobbe

 

[3ssie]

Volgens mij moet het ook lukken met het invoeren van een macro
Zonder verdere tools of ad-on te downloaden.
Maar hoe......???

 

[Wigi]

Volgens mij moet het ook lukken met het invoeren van een macro
Zonder verdere tools of ad-on te downloaden.
Maar hoe......???

Basically, ASAP utilities is een verzameling van individuele macro's.

Als jij zo'n macro schrijft, kan het dus ook.

 

[3ssie]

oke, thanks

Het probleem is dus dat ik denk dat ik weet hoe ik deze macro schrijft, alleen zit ergens een foutje in en loopt het dus niet zoals ik wil

Frusterend!!

 

[Wigi]

Het probleem is dus dat ik denk dat ik weet hoe ik deze macro schrijft, alleen zit ergens een foutje in en loopt het dus niet zoals ik wil

Post dan een voorbeeldfile met de code in.

 

[3ssie]

Gevonden!!!!

haha, de aanhouder wint.......
Bedankt voor de hulp :thumb:

Als anderen zoiets zoeken, de macro is:

Sub kleur()
'Selecteert alle rijen met rode cel
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Range("H4:H" & Range("H" & Rows.Count).End(xlUp).Row)
If Not cell.Interior.ColorIndex = 3 Then
cell.EntireRow.Hidden = True
End If
Next cell
Application.ScreenUpdating = True
End Sub

Sub ondo_kleur()
'Toont alle rijen
Application.ScreenUpdating = False
Columns(2).EntireRow.Hidden = False
Range("A3").Select
Application.ScreenUpdating = True
End Sub