Your question, your audience. Choose who sees your identity—and your question—with question security.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrHandler
Dim a As Range
Dim b As Range
Dim c As Range
Dim d As Range
Set a = Range("cMakita")
Set b = Range("cIndesit")
Set c = Range("cMilsco")
Set d = Range("cELC")
Select Case Target.Address
Case a
Load MainOrder
MainOrder.txtCust = "MAKITA"
MainOrder.cboProd.RowSource = ("tblMakita")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case b
Load MainOrder
MainOrder.txtCust = "INDESIT"
MainOrder.cboProd.RowSource = ("tblIndesit")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case c
Load MainOrder
MainOrder.txtCust = "MILSCO"
MainOrder.cboProd.RowSource = ("tblMilsco")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case d
Load MainOrder
MainOrder.txtCust = "ELC"
MainOrder.cboProd.RowSource = ("tblElc")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case Else
'do nothing
End Select
Exit_ErrHandler:
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume Exit_ErrHandler
End Sub
Dim a As Range
Dim b As Range
Dim c As Range
Dim d As Range
Set a = Range("cMakita")
Set b = Range("cIndesit")
Set c = Range("cMilsco")
Set d = Range("cELC")
Select Case Target.Address
Case a
Load MainOrder
MainOrder.txtCust = "MAKITA"
MainOrder.cboProd.RowSource = ("tblMakita")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case b
Load MainOrder
MainOrder.txtCust = "INDESIT"
MainOrder.cboProd.RowSource = ("tblIndesit")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case c
Load MainOrder
MainOrder.txtCust = "MILSCO"
MainOrder.cboProd.RowSource = ("tblMilsco")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case d
Load MainOrder
MainOrder.txtCust = "ELC"
MainOrder.cboProd.RowSource = ("tblElc")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case Else
'do nothing
End Select
Select Case Target.Address
Case ("$A$4")
Load MainOrder
MainOrder.txtCust = "MAKITA"
MainOrder.cboProd.RowSource = ("tblMakita")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case ("$A$12")
Load MainOrder
MainOrder.txtCust = "INDESIT"
MainOrder.cboProd.RowSource = ("tblIndesit")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case ("$A$18")
Load MainOrder
MainOrder.txtCust = "MILSCO"
MainOrder.cboProd.RowSource = ("tblMilsco")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case ("$A$16")
Load MainOrder
MainOrder.txtCust = "ELC"
MainOrder.cboProd.RowSource = ("tblElc")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case Else
'do nothing
End Select
Thanks for your time
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrHandler
Dim a As Range
Dim b As Range
Dim c As Range
Dim d As Range
Set a = Range("cMakita")
Set b = Range("cIndesit")
Set c = Range("cMilsco")
Set d = Range("cELC")
Select Case Target.Address
Case a.Address
Load MainOrder
MainOrder.txtCust = "MAKITA"
MainOrder.cboProd.RowSource = ("tblMakita")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case b.Address
Load MainOrder
MainOrder.txtCust = "INDESIT"
MainOrder.cboProd.RowSource = ("tblIndesit")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case c.Address
Load MainOrder
MainOrder.txtCust = "MILSCO"
MainOrder.cboProd.RowSource = ("tblMilsco")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case d.Address
Load MainOrder
MainOrder.txtCust = "ELC"
MainOrder.cboProd.RowSource = ("tblElc")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case Else
'do nothing
End Select
'Exit_ErrHandler:
Exit Sub
ErrHandler:
MsgBox Err.Description
'Resume Exit_ErrHandler
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrHandler
Select Case Target.Address
Case Range("cMakita").Address
Load MainOrder
MainOrder.txtCust = "MAKITA"
MainOrder.cboProd.RowSource = ("tblMakita")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case Range("cIndesit").Address
Load MainOrder
MainOrder.txtCust = "INDESIT"
MainOrder.cboProd.RowSource = ("tblIndesit")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case Range("cMilsco").Address
Load MainOrder
MainOrder.txtCust = "MILSCO"
MainOrder.cboProd.RowSource = ("tblMilsco")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case Range("cELC").Address
Load MainOrder
MainOrder.txtCust = "ELC"
MainOrder.cboProd.RowSource = ("tblElc")
MainOrder.txtCust.Locked = True
MainOrder.cboProd.SetFocus
MainOrder.Show
Case Else
'do nothing
End Select
'Exit_ErrHandler:
Exit Sub
ErrHandler:
MsgBox Err.Description
'Resume Exit_ErrHandler
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.
BTW don't worry that the article is amid at VB6. It's basically the same in VBA.