Aantal rijen tellen met bepaalde kleur

[Mikam]

Beste excel specialisten,

Ik heb een database met quizvragen met veel verschillende werkbladen. In die werkbladen heb ik quizvragen waar de rijen van vragen die gebruikt zijn met de kleur groen in gemarkeerd. De vragen die ik niet gebruikt heb gewoon wit. Nu wil ik bij alle werkbladen gaan tellen hoeveel vragen gebruikt en niet gebruikt zijn. In een ander werkblad wil ik dan een overzicht bijhouden hoeveel vragen wel en niet gebruikt zijn, dus niet in het werkblad zelf. De rijen beginnen vanaf rij 14 en lager.

Echter kom ik er niet uit hoe.
Ik wil graag het juiste bestand toevoegen echter is die 1 mb en die kan ik niet uploaden.

Hopelijk weet iemand mij op weg te helpen.

Gr
Maurice Meijer

 

[Cobbe]

Representatief voorbeeldbestand moet ik zeggen.

 

[Mikam]

Representatief voorbeeldbestand moet ik zeggen.

Sorry Cobbe. Was nog mijn bericht aan het aanpassen. Je was me voor. Ik wil dus mijn voorbeeld erbij zetten, maar kan geen 1 mb uploaden hier. Kan hem wel mailen.

Groet

 

[Cobbe]

Maar je hoeft niet je hele bestand te posten, voorblad + 1 of 2 bijbladen is genoeg.

 

[joost1]

Op simpele wijze met formules gaat dit niet.

Waarom voeg je niet een kolommetje toe waarin je aangeeft dat de vragen/antwoorden gebruikt zijn en geef je met voorwaardelijke opmaak de desbetreffende cellen een kleurtje.

Groet

 

[Cobbe]

Je kan ook deze simpele macro gebruiken als je eerste blad Blad1 heet, anders even aanpassen:

Sub Macro1()

For Each sh In ThisWorkbook.Worksheets

 If sh.Name <> "Blad1" Then
     sh.Range("A1:B1").AutoFilter
     sh.Range("$A$1:$B$" & sh.Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=1, Criteria1:=RGB(0, 255, 0), Operator:=xlFilterCellColor
     gr = gr + sh.Range("A2:A" & sh.Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Count
     sh.Range("A1:B1").AutoFilter
 End If
Next
Sheets("Blad1").Cells(5, 5) = gr

End Sub

 

[Mikam]

Je kan ook deze simpele macro gebruiken als je eerste blad Blad1 heet, anders even aanpassen:

Sub Macro1()

For Each sh In ThisWorkbook.Worksheets

 If sh.Name <> "Blad1" Then
     sh.Range("A1:B1").AutoFilter
     sh.Range("$A$1:$B$" & sh.Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=1, Criteria1:=RGB(0, 255, 0), Operator:=xlFilterCellColor
     gr = gr + sh.Range("A2:A" & sh.Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Count
     sh.Range("A1:B1").AutoFilter
 End If
Next
Sheets("Blad1").Cells(5, 5) = gr

End Sub

Hallo Cobbe,

Ik heb geen kaas gegeten van een Macro opnemen. Kan ik je het voorbeeldbestand mailen?

Gr
Maurice

 

[Cobbe]

Yep stuur maar naar cobbe at mail punt be

 

[Mikam]

Op simpele wijze met formules gaat dit niet.

Waarom voeg je niet een kolommetje toe waarin je aangeeft dat de vragen/antwoorden gebruikt zijn en geef je met voorwaardelijke opmaak de desbetreffende cellen een kleurtje.

Groet

Iemand heeft voor mij een keer de database aangepast. Wanneer ik op een vraag klik met alle antwoorden, kolom met foto, kolom voor video etc. markeert hij automatisch groen en kan ik de rij transporteren naar een ander blad. Als ik een kolom moet maken voor alle 18 de tabbladen voor 10.000 vragen ben ik wel even bezig. Moet makkelijker kunnen.

Gr

 

[Mikam]

Yep stuur maar naar cobbe at mail punt be

Done

 

[Cobbe]

En tevreden van het resultaat?
Blijkbaar wel want het blijft stil aan de overkant.
Tenminste een reactie om te laten weten dat het voldoet zou al een beetje de uren vergoeden die daar ingestoken zijn.