Adding Values in Multiple Offset Cells depending on the value of a different cell

I'm a newbie struggling to figure out an excel macros code. Any help would be appreciated.

I have attached a simple file to what I'm trying to do.
File for excel forum.xlsx

Column E: I have Company names (Grant's Inc., Bills Market, Sarah Bakery, Pete Diner, etc.)
Column I : Will be a "Yes" or "No" answer (already entered)
Column BD: Needs to have a number entered "0" or "1" depending on a reply box.
Column BE: Needs to have a number entered "2" or "0" depending on a reply box.
Column BF: Needs to have a number entered "0" or "1" depending on a reply box.

*All data starts at row 8.

I basically want to make some loops to add scores to the 3 columns BD,BE,BF.
Which give Grant's Inc. a score in cell BD8.
Next, give Bill's Market a score in cell BD9.
Next, give Sarah Bakery a score in cell BD10.
Next, give Pete Diner a score in cell BD11.
etc. until column I shows a "No" answer for a company.

After Column I shows a "No" answer, I will end that loop and go back up to row 8 with Grant's Inc. and start giving scores in BE8 depending on a reply box.
(but I will only give scores in BE if there is a "1" value in BD.

I will continue a loop to score all Companies in Column BE if they have a "1" score in Column BD.
After I have no more scores of "1" in BD, then I will end the loop and go back up to row 8 with Grant's Inc. and start giving scores in BF8 depending on a reply box.
...and so on...


Here's my bad attempt at a code so far:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

you can continue adding other questions

On my file no problem, attach please your file

Hi Patel45,

Everything that you wrote works. But I tried to add this code and it didn't work:

Please Login or Register  to view this content.

What is the correct way to write a code for :
If the sum of BD8 to BD arow is less than 1, then show message.

If WorksheetFunction.Sum(Range(Cells(8,56),(arow, 56))) < 1 Then

Thanks Patel45,
But for some reason it came up as Compile Error: Syntax Error

If WorksheetFunction.Sum(Range(Cells(8,56),Cells(arow, 56))) < 1 Then

Worked Perfectly! Thanks for all your help Patel45!