View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Tyla Tyla is offline
external usenet poster
 
Posts: 29
Default using vba to do a count for color cell

For quick fix here, instead of adding the code to the "Sheet" object
within the VBA Editor, add a new module and insert your code there.
That is, within the editor, do "Insert / Module" from the menu system,
then add your CountYellow() code. It shuold then work.

HTH
/ Tyla /


On Apr 11, 5:54 pm, tikchye_oldLearner57
wrote:
hi community

i do not really know how to use vba and this i only try myself but it did
not work..
can community please assist me more...

question:
i wanted to count cell for color and when to view some sites (was intro by
some in community) and i obtained this vba code..

Function CountYellow(MyRange As Range)
Dim iCount As Integer
Application.Volatile
iCount = 0
For Each cell In MyRange
If cell.Interior.ColorIndex = 6 Then
iCount = iCount + 1
End If
Next cell
CountYellow = iCount
End Function

and what i did was, I open my xls and activate the VB editor and at "Project
Window", I right-click the [sheet1] and choose view code,
from there, I wrote down the vba code according and
save the workbook

following the further instruction, at the worksheet, I do a fill "yellow"
into one cell, A1 thereafter
I used the code :

=CountYellow(A1:A5)

and i got a return #NAME

can someone kindly assist me in this :(

thanks alot to community

--
oldLearner57