<div>
For example, put scores in H13:H23? &nbsp;You can do that with VBA, but why not a formula?<br />
<br />
How would you like to score? &nbsp;Give an example of a drop down selection and relative score? &nbsp;Do you have a table of scores based on drop-down values? &nbsp;That would need to be provided in the spreadsheet, somewhere...<br />
<br />
Dave
</div>


<div>
I suppose you could do a drop down for the score but I was thinking it would be easier if you dropped down for the descrip[tor - which is already in the file - and VBA scored according to that descriptor.
</div>


<div>
When you get to the end of the file- after filing in all the drop downs the idea is that the aggregated score is turned into an A,B,C,D or E. &nbsp;Thats the end view. &nbsp;At this point I just wanted to have only one drop down to get the score and the scoring would be 1 to 10.
</div>


<div>
Ok. &nbsp;Let's back up a bit. &nbsp;The user selects a dropdown value from the list. &nbsp;As a result of that dropdown, a score is tallied, somewhere. &nbsp;And then, for the entire sheet, there's a score made up of all the scores in the sheet, correct?
</div>


<div>
Yes, and then the final score is converted to an A,B,C,D or E.
</div>


<div>
GREAT. &nbsp;You need to provide more information, however. &nbsp;Please pull up the worksheet you posted, and make sample entries, then beside the sample entries, notate how that entry would have been scored. &nbsp;I cannot help you without understanding how you would score each and every response possible. &nbsp;Feel free to create a table of responses and their respective scores on another tab with your example. &nbsp;From that, it should move quickly.<br />
<br />
Cheers,<br />
<br />
Dave
</div>


<div>
Maybe I'm not being clear enough. &nbsp;Does every dropdown in the sheet result in a score, or is it just those at the bottom of the sheet?<br />
<br />
Regardless, you need to identify which need a score and what the score would be for each possible response in the dropdown. &nbsp;You can do that by creating a table of the possible responses (re: dropdowns) and score right beside it. &nbsp;From that, a score could automatically be tallied, etc...<br />
<br />
Dave
</div>


<div>
Will do and sesend, thanks Dave.
</div>


<div>
Just sent some code that is sort of along that road. &nbsp;Will score sheet and resend.<br />

<pre><code class="code-10 nolinks" id="code-8224930"><span>Private Sub Worksheet_Change(ByVal Target As Range)</span>
<span>Dim myRange As Range, TestRange As Range</span>
<span>Set myRange = Range(&quot;H13:H23&quot;)</span>
<span>Set TestRange = Intersect(Target, myRange)</span>
<span>If TestRange Is Nothing Or Target.Cells.Count &gt; 1 Then Exit Sub</span>
<span>    Select Case Target.Value</span>
<span>        Case &quot;how hard I blow&quot;</span>
<span>            Target.Offset(0, 1).Value = 5</span>
<span>            </span>
<span>            </span>
<span>        Case &quot;Bob&quot;</span>
<span>            Target.Offset(0, 1).Value = 2</span>
<span>            </span>
<span>            </span>
<span>        Case &quot;Dave&quot;</span>
<span>            Target.Offset(0, 1).Value = 3</span>
<span>           </span>
<span>            </span>
<span>            Case 4</span>
<span>            Target.Offset(0, 1).Value = 4</span>
<span>            </span>
<span>            </span>
<span>            </span>
<span>        Case 5</span>
<span>            Target.Offset(0, 1).Value = 5</span>
<span>            </span>
<span>            </span>
<span>        Case 6</span>
<span>            Target.Offset(0, 1).Value = 6</span>
<span>            </span>
<span>            </span>
<span>            Case 7</span>
<span>            Target.Offset(0, 1).Value = 7</span>
<span>            </span>
<span>            </span>
<span>            </span>
<span>        Case 8</span>
<span>            Target.Offset(0, 1).Value = 8</span>
<span>           </span>
<span>            </span>
<span>        Case 9</span>
<span>            Target.Offset(0, 1).Value = 9</span>
<span>            </span>
<span>            </span>
<span>            Case 10</span>
<span>            Target.Offset(0, 1).Value = 10</span>
<span>            </span>
<span>            </span>
<span>            </span>
<span>        </span>
<span>            </span>
<span>    End Select</span>
<span>End Sub</span>
</code></pre>
</div>


<div>
Here is the scored file - the hyperlink to scores shows the scoring for each.<br />
<a href="https://filedb.experts-exchange.com/incoming/2011/10_w41/509768/QCATScience.xls" target="_blank" class="file-inline" title="revised with scores (57 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>QCATScience.xls</a>
</div>


QCATScience.xls

<div>
Sorry, I've been out a couple days. &nbsp;This was a good start, but incomplete as to table of responses and score. &nbsp;I could perhaps provide a sample solution, moving downward a bit on the questionnaire, to demonstrate what I'm talking about. &nbsp;But, to do the entire questionnaire is a big job, from what's been provided so far.<br />
<br />
I'll start working on it and give you a partial to demonstrate how to do this, and submit something this weekend. &nbsp;Will that work for you?<br />
<br />
Dave
</div>


<div>
just post back here if you have any issues.<br />
<br />
Dave
</div>


<div>
<div class="content wysiwyg-content">
I want to be able to use a drop down that I create in Excel using data validation (list) to assign a score to the cell next to the drop down in VBS. &nbsp;How would I do that. &nbsp;See file attached.<br />
<a href="https://filedb.experts-exchange.com/incoming/2011/10_w41/509733/QCATScience.xls" target="_blank" class="file-inline" title="excel scorer (55 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>QCATScience.xls</a>
</div>
</div>


I want to be able to use a drop down that I create in Excel using data validation (list) to assign a score to the cell next to the drop down in VBS.  How would I do that.  See file attached.

how to get data validated lists in excel to score

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.