Need to add an additional points depending on what place -
1st place - 6 points - 2nd-5pts, 3rd-4pts, 4th-3pts, 5th-2pts
There MAY be multiple 1st, 2nd, 3rd, etc placings - see attachment.
Need VBA code - attachment shows BEFORE and AFTER
Need to add an additional points depending on what place -
1st place - 6 points - 2nd-5pts, 3rd-4pts, 4th-3pts, 5th-2pts
There MAY be multiple 1st, 2nd, 3rd, etc placings - see attachment.
Need VBA code - attachment shows BEFORE and AFTER
Last edited by x65140; 01-06-2019 at 06:17 PM.
How aboutSub x65140() With Range("D6", Range("D" & Rows.Count).End(xlUp)) .Value = Evaluate("if({1}," & .Address & "+IFERROR(CHOOSE(" & .Offset(, 1).Address & ",6,5,4,3,2),0))") End With End Sub
Perfect! Thank you!!!
You're welcome & thanks for the feedback
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks