Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function szinesdarabteli(tartomany As Range, szinesertek As Integer)
- Dim szam
- For Each element In tartomany
- If element.Value <> "" And element.Interior.ColorIndex = szinesertek Then
- szam = szam + 1
- End If
- Next
- szinesdarabteli = szam
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
