Cellen tellen

[knoet]

Hey

Ik heb hier een tabel met namen en kleuren. (verschillende namen, geen celopmaak=taak niet volbracht, geel=taak volbracht)
Graag wil ik de namen tellen die in het geel staan, per naam.

Ik heb al eens rondgegeken, en blijkbaar moet dit met VBA opgemaakt worden. Maar het probleem is dat ik niet met VBA kan werken.

Heeft soms iemand zo'n VBA'tje staan waarop ik het mijne kan baseren? Of wil iemand eventueel snel zo een maken?

Groetjes

ps: is er een verschil als de tabel in een ander tabblad staat?

 

[oeldere]

aantallen tellen met kleur

waarom niet met een hulpkolom gewerkt, waarin je de status aangeeft?

deze kun je vervolgens optellen:
som , subtotaal, aantal.als etc.

de kleuren worden nu waarschijnlijk ook handmatig aangemaakt.

tevens is het dan ook eenvoudig om de gegevens te filteren / autofilter.

 

[knoet]

hoe bedoel je?

 

[oeldere]

(verschillende namen, geen celopmaak=taak niet volbracht, geel=taak volbracht)

deze kleur maken is waarschijnlijk een handmatige aktie.

In de kolom langs de naam aangeven dat een taak is volbracht (b.v. klaar).

Vervolgens kun je filteren etc.

Anders voeg een voorbeeldbestandje bij, ontdaan van gevoelige info, dan maken we een voorbeeld.

 

[danny147]

Beste knoet

Ziehier een voorbeeldje met VBA code.

Groetjes Danny. :thumb:

 

[knoet]

Voila

 

[oeldere]

bij een iets andere opbouw van tabel zijn gegevens via verschillende manieren op te vragen (zie bijlage)

 

[knoet]

op de manier dat de tabel stond lukt niet?

heb je de "1" er zelf gezet?

 

[oeldere]

op de manier dat de tabel stond lukt niet?

heb je de "1" er zelf gezet?

1) daar weet ik in ieder geval de oplossing niet voor.

2) ja

Mogelijk dat iemand anders je wel kan helpen.

 

[Warme bakkertje]

Sub tst()
On Error Resume Next
[Overzich!L2:L14].ClearContents
For Each cl In [Schema!B3:W26]
    If cl.Interior.ColorIndex = 6 Then
        With Sheets("Overzich").Columns(1).Find(cl, , xlValues, xlWhole)
            .Offset(, 11) = .Offset(, 11) + 1
        End With
    End If
Next
End Sub

Voor wat bereft je formule in K2

=AANTAL.ALS(Schema!$B$3:$W$26;A2)

en dortrekken naar beneden

 

[knoet]

Sub tst()
On Error Resume Next
[Overzich!L2:L14].ClearContents
For Each cl In [Schema!B3:W26]
    If cl.Interior.ColorIndex = 6 Then
        With Sheets("Overzich").Columns(1).Find(cl, , xlValues, xlWhole)
            .Offset(, 11) = .Offset(, 11) + 1
        End With
    End If
Next
End Sub

Voor wat bereft je formule in K2

=AANTAL.ALS(Schema!$B$3:$W$26;A2)

en dortrekken naar beneden

En hoe krijg je nu die macro in de cellen?
Heb het al in VB gezet in tabblad Overzich(t)

 

[Warme bakkertje]

Zet de macro in een standaardmodule( ALT+F11 >> Invoegen >> Module). Nu kan je ofwel de macro activeren door ALT+F8 >> Macronaam aanklikken >> Uivoeren ofwel zet je een knop op je werkblad en verbindt de macro hiermee.

 

[knoet]

Je uitleg is zeer gedetailleerd, maar op de een of ander manier lukt het mij niet :s

 

[Warme bakkertje]

zie bijlage

 

[knoet]

zie bijlage

met welk programma kan ik dat openen?

 

[danny147]

Beste knoet :thumb:

Met een van deze 5

Groetjes Danny. :thumb: