Jack Nouws
Terugkerende gebruiker
- Lid geworden
- 16 apr 2008
- Berichten
- 1.396
Hallo
Met deze code worden alle geel gekleurde cellen in het bereik D4:M31 allemaal netjes opgeteld in cel P16.
Maar nu wil ik alle geel gekleurde cellen in het bereik D4:M31 per rij opgetelt zien in de P kolom. Ik ben er el mee bezig geweest maar ik kom er niet helemaal aan uit. Wie kan me verder helpen?
Met deze code worden alle geel gekleurde cellen in het bereik D4:M31 allemaal netjes opgeteld in cel P16.
Code:
Sub AllesTellen()
Dim c As Range
For Each c In [D4:M31]
If c.Interior.ColorIndex = 6 Then
[P16].Value = [P16].Value + 1
End If
Next
End Sub
Code:
Sub KleurTellen()
Dim i As Integer
Dim c As Range
For i = 4 To 31
For Each c In Rows(i)
If c.Interior.ColorIndex = 6 Then
Rows(i, 16).Value = Rows(i, 16).Value + 1
End If
Next c
Next i
End Sub
Laatst bewerkt: