Count cells that contain odd numbers
|
Macro Title:
|
|
Worksheet Variable:
|
|
Formula Variable:
|
|
Result Variable:
|
|
Row Reference Variable:
|
|
Worksheet Name:
|
|
Column Reference:
enter the column reference from which you want to count the number of cells that contain odd numbers |
|
First Row Reference:
enter the first row reference which represents the first row of the range from which you want to count the number of cells that contain only odd numbers |
|
Last Row Reference:
enter the last row reference which represents the last row of the range from which you want to count the number of cells that contain only odd numbers |
|
Output Cell:
|
|
First Comment:
' |
|
Second Comment:
' |
Sub Count_cells_that_contain_odd_numbers()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Analysis")
'count cells that contain odd numbers by looping through rows 5 to 9 in column B
For x = 5 To 9
cellmod = ws.Range("B" & x) Mod 2
oddnum = oddnum + cellmod
Next x
ws.Range("D5") = oddnum
End Sub
Sub Count_cells_that_contain_odd_numbers()
'declare a variable
Dim ws As Worksheet
Dim ws As Worksheet
Set ws = Worksheets("Analysis")
'count cells that contain odd numbers by looping through rows 5 to 9 in column B
For x = 5 To 9
For x = 5 To 9
cellmod = ws.Range("B" & x) Mod 2
oddnum = oddnum + cellmod
Next x
ws.Range("D5") = oddnum
End Sub