Selection change: How to run a Macro

M

Maria

Hello:
I would appreciate help with the following:

Cell A1 has a dropdown list (Data, Validation feature) which allows user to
select from one of three choice.

Based on the value in cell A1, cells B1, B2, B3 have different values. I
have written a macro to enter those specific values in cells B1:B3 based on
the value in cell A1.

What kind of code do I need in the SelectionChange to be able to populate
B1:B3 with the correct values based on user selection in cell A1

TIA
 
F

Frank Kabel

Hi Maria
do you really want an event procedure. Thís could also be achieved with
formulas (e.g. IF or VLOOKUP)
but you may try the following code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
On Error GoTo CleanUp:
With Target
Select Case .Value
Case 1 'change this according to your needs
cells(1,2).value = "value1-1"
cells(2,2).value = "value1-2"
cells(3,2).value = "value1-3"
Case 2
cells(1,2).value = "value2-1"
cells(2,2).value = "value2-2"
cells(3,2).value = "value2-3"
Case 3
cells(1,2).value = "value3-1"
cells(2,2).value = "value3-2"
cells(3,2).value = "value3-3"
End Select
End With
CleanUp:
Application.EnableEvents = True
End Sub
 
Top