PDA

View Full Version : Automatic Select Based on Cell Value



genracela
08-25-2010, 05:55 PM
Hello again!

I'm having difficulty with my select code:


Sub SelectItem()
If Range("D2") = "A" Then
Range("A16").Select
Else
If Range("D2") = "B" Then
Range("A31").Select
Else
If Range("D2") = "C" Then
Range("A46").Select
Else
If Range("D2") = "D" Then
Range("A73").Select
End If
End If
End If
End If
End Sub



I just want to automatically select a cell when I select an item in Column D2. But unfortunately my code is not working.

I attached a dummy file for easier understanding.

Please help!

Thanks!!!

austenr
08-25-2010, 06:24 PM
try changing it to a select case. also, put it in the worksheet change event

genracela
08-25-2010, 07:16 PM
Ok I'll try...

austenr
08-26-2010, 06:48 AM
try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Range("D2")
Case "A"
Range("A16").Select
Case "B"
Range("A31").Select
Case "C"
Range("A46").Select
Case "D"
Range("A73").Select
End Select
End Sub

Bob Phillips
08-26-2010, 06:54 AM
Should be Target Austen



Select Case Target

austenr
08-26-2010, 08:52 AM
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target
Case "A"
Range("A16").Select
Case "B"
Range("A31").Select
Case "C"
Range("A46").Select
Case "D"
Range("A73").Select
End Select
End Sub

Thanks for spotting that Bob.