Here is an example of the code in such a case
Option Explicit
'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-----------------------------------------------------------------
On Error GoTo ws_exit:
Application.EnableEvents = False
With Target
If .Address = "$A$1" Then
.Offset(0, 1).Value = Application.Index(Range("List2"), _
Application.Match(.Value, Range("List1"), 0))
.Offset(0, 2).Value = Application.Index(Range("List3"), _
Application.Match(.Value, Range("List1"), 0))
ElseIf .Address = "$B$1" Then
.Offset(0, -1).Value = Application.Index(Range("List1"), _
Application.Match(.Value, Range("List2"), 0))
.Offset(0, 1).Value = Application.Index(Range("List3"), _
Application.Match(.Value, Range("List2"), 0))
ElseIf .Address = "$C$1" Then
.Offset(0, -2).Value = Application.Index(Range("List1"), _
Application.Match(.Value, Range("List3"), 0))
.Offset(0, -1).Value = Application.Index(Range("List2"), _
Application.Match(.Value, Range("List3"), 0))
End If
End With
ws_exit:
Application.EnableEvents = True
End Sub
'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.
--
HTH
Bob Phillips
(remove xxx from email address if mailing direct)
"Bob Phillips" wrote in message
...
You would need VBA for that, and your lists would have to be in ranges.
Is
that the case for you?
--
HTH
Bob Phillips
(remove xxx from email address if mailing direct)
"dolfijntje33"
wrote in message
news:dolfijntje33.281zho_1148039705.2035@excelforu m-nospam.com...
I already seen that solution. Unfortunatly that is nog what I mean. In
that example you still need to make a selection in list 2 and/or 3. In
my case I want to make a selection in list one and that list 2 and list
3 automatically sets the value that was give to the list item selected
in list one.
So...
If in list one "1" is selected, in list 2 and 3 automatically the
values B and $ will appear without having to use the drop-down list
there.
--
dolfijntje33
------------------------------------------------------------------------
dolfijntje33's Profile:
http://www.excelforum.com/member.php...o&userid=34593
View this thread:
http://www.excelforum.com/showthread...hreadid=543659