Selection change: How to run a Macro

  • Thread starter Thread starter Maria
  • Start date Start date
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
 
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
 
Back
Top