Data to count, The macro code. Help.

[pixel34]

Hi, friends.

Total Computer how many= ?
Total TV how many= ?
I want the macro to count them.

You want to help.
Thank you.

[Solus Rankin]

Put

Please Login or Register  to view this content.

in D7 and copy down.

Put

Please Login or Register  to view this content.

in E7 and copy down.


Or here is an option if it has to be in a macro:

Please Login or Register  to view this content.

[pixel34]

Hi Solus Rankin;
Thank you very much.

Red line I get the error.
What's the problem?

Sub test()
Dim l As Long
For l = 7 To UsedRange.Rows.Count
Cells(l, 4).Value = Application.WorksheetFunction.CountIf(Range(Cells(l, 10), Cells(l, 17)), "Computer")
Cells(l, 5).Value = Application.WorksheetFunction.CountIf(Range(Cells(l, 10), Cells(l, 17)), "TV")
Next l
End Sub

[Solus Rankin]

Where did you copy the code to?

maybe change to

Please Login or Register  to view this content.

[sktneer]

Try this code......

Please Login or Register  to view this content.

Please find the attached sheet to see if this is what you want.

[JOHN H. DAVIS]

FWIW:

Please Login or Register  to view this content.

[pixel34]

Hi JOHN H. DAVIS;

Please Login or Register  to view this content.

I want you,
Red text instead
The last line
get. (uncertain because the last line.)
Possible?

This beautiful example

Please Login or Register  to view this content.

[JOHN H. DAVIS]

Will this work?

Please Login or Register  to view this content.

[pixel34]

Sorry. you're right.
Is it possible to do this?
If the cell is empty,
"0" not.
get empty cells.

(Example file
10 row)

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[pixel34]

great
Thank you very much.
dear JOHN H. DAVIS


dear sktneer
Thank you.

dear Solus Rankin
Thank you.

Have nice day.

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback.