Hello,
I have managed to code some of this but would really appreciate some
help with the final part.
I have a worksheet doubling up as a questionnaire, structured as
shown...
0 1 2 Result
option1 option2 option3
Q1 option1 option2 option3
option1 option2 option3
The result column is populated with a score of 0-2 every time a user
double clicks on an option.
There are questions on the sheet with more than one set of options,
how can I get the lowest score from both (or more) sets of options to
populate
the results field?? e.g.....
Say we score row 1 as option 2, row 2 as option 1 and row 3 as option
3 then row 2 and a score of zero will be in the Results column.
Your help with this is greatly appreciated
Below is the existing macro
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
On Error GoTo endit
ActiveSheet.Unprotect Password:=Sheets("ChartMappings").Range
("AA1").Value
Dim myRange As String
Dim clearcell As String
Dim myScore As String
Dim myResult As String
myRange = Target.Address
clearcell = Split(myRange, "$")(2) '' row of entry
myScore = Split(myRange, "$")(1) & "15" '' score will always be in
row 15
myResult = Range(myScore) '' value of the score
Application.EnableEvents = False
If Not Intersect(Target, Range("D:H")) Is Nothing And Range("B" &
clearcell).Value Like "*.*" Then
If Not Intersect(Target, Me.Range(myRange)) Is Nothing Then
With Target
If .Interior.ColorIndex = 45 Then
Range("D" & clearcell & ":" & "H" &
clearcell).Interior.ColorIndex = xlNone
.Interior.ColorIndex = xlNone
Range("I" & clearcell) = "n/a"
Else
Range("D" & clearcell & ":" & "H" &
clearcell).Interior.ColorIndex = xlNone
.Interior.ColorIndex = 45
Range("I" & clearcell).Value = myResult
End If
End With
Cancel = True
End If
End If
Target.Locked = False
endit:
Application.EnableEvents = True
ActiveSheet.Protect Password:=Sheets("ChartMappings").Range
("AA1").Value, DrawingObjects:=True
End Sub
Thank you very much in advance for your help
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
