G
Guest
Duke Carey wrote:
You ought to receive input from some of the sharper advisors here, but for
the meantime I'd suggest you use a custom function like the one below
Function Count_X(rng As Range, strTest As String) As Integer
Dim cc As Range
Count_X = 0
For Each cc In rng
If cc.Value = strTest Then Count_X = Count_X + 1
Next
End Function
After pasting it into a module, you'd use it by entering this formula in a
cell
=count_x((K6,R6,Y6,AF6,AM6,AT6,BA6,BH6,BO6,BV6,CC6,CJ6,CQ6,CX6,DE6,DL6,DS6,DZ6,EG6,EN6),"X")
I did this while the rest of my spreadsheet was still imcomplete. It worked
on 1 page, but not the other 16 that I needed it used on. I decided to delete
it temproarily until the rest of the sheets are completed.
They are now done, and after putting the macro back in, it's not doing
anything. What am I doing wrong? I've never used a macro before, and like
most help sections... it's written in Greek.
You ought to receive input from some of the sharper advisors here, but for
the meantime I'd suggest you use a custom function like the one below
Function Count_X(rng As Range, strTest As String) As Integer
Dim cc As Range
Count_X = 0
For Each cc In rng
If cc.Value = strTest Then Count_X = Count_X + 1
Next
End Function
After pasting it into a module, you'd use it by entering this formula in a
cell
=count_x((K6,R6,Y6,AF6,AM6,AT6,BA6,BH6,BO6,BV6,CC6,CJ6,CQ6,CX6,DE6,DL6,DS6,DZ6,EG6,EN6),"X")
I did this while the rest of my spreadsheet was still imcomplete. It worked
on 1 page, but not the other 16 that I needed it used on. I decided to delete
it temproarily until the rest of the sheets are completed.
They are now done, and after putting the macro back in, it's not doing
anything. What am I doing wrong? I've never used a macro before, and like
most help sections... it's written in Greek.