SELECT CASE - Which Row am I on?

[Craigm]

Select Case is running in Range W8:W149 and is working.

How do I determine what row I am on and add the number in Coulmn D to
variable?

Column D contains the total sales (if any) for the day of the week.
Some days have no sales other days have multiple sales.

I am calculating the number of sales with this Select Case.

I would like to know the total of all the sales by weekday.


------------------------------
For Each rIncDay In Range("W8:W149") 'Need Last Row loop
Select Case (rIncDay)
'-------------------------
'Days of the week
Case "SUNDAY"
iSun = iSun + 1
Case "MONDAY"
iMon = iMon + 1
Case "TUESDAY"
iTue = iTue + 1
Case "WEDNESDAY"
iWed = iWed + 1
Case "THURSDAY"
iThu = iThu + 1
Case "FRIDAY"
iFri = iFri + 1
Case "SATURDAY"
iSat = iSat + 1
'-------------------------
Case Else
iOther = iOther + 1 'Error trap not in SELECT CASE
'-------------------------
End Select
Next rIncDay

 

[anilsolipuram]

rIncDay.row ' will return the row number



dim sum_sales as variant
sum_sales=0
For Each rIncDay In Range("W8:W149") 'Need Last Row loop
sum_sales=sum_sales+range("d" & rIncDay.row).value 'adding the
column
Select Case (rIncDay)
'-------------------------
'Days of the week
Case "SUNDAY"
iSun = iSun + 1
Case "MONDAY"
iMon = iMon + 1
Case "TUESDAY"
iTue = iTue + 1
Case "WEDNESDAY"
iWed = iWed + 1
Case "THURSDAY"
iThu = iThu + 1
Case "FRIDAY"
iFri = iFri + 1
Case "SATURDAY"
iSat = iSat + 1
'-------------------------
Case Else
iOther = iOther + 1 'Error trap not in SELECT CASE
'-------------------------
End Select
Next rIncDay
msgbox sum_sale