combo coding

  • Thread starter Thread starter Noctos
  • Start date Start date
N

Noctos

can someone please examine this code and confirm that it makes Th
contents of asecond combo box dependant on the value selected in th
first combo box.

Sub SelectCorrectList()

Dim CellLink As Integer
Application.ScreenUpdating = False
Range(“E10”).Select
CellLink = Range(“E10”)
Select Case CellLink
Case Is = 1
Range(“F1:F5”).Select
Selection.Copy
Range(“C1”).Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
Case Is = 2
Range(“G1:G5”).Select
Selection.Copy
Range(“C1”).Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
Case Is = 3
Range(“H1:H5”).Select
Selection.Copy
Range(“C1”).Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
Case Is = 4
Range(“I1:I5”).Select
Selection.Copy
Range(“C1”).Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
Case Is = 5
Range(“J1:J5”).Select
Selection.Copy
Range(“C1”).Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
End Select
End Su
 
Does your 2nd combo box gets its details frm c1 to c5?



To simplify your posted code Try this



Sub SelectCorrectList()
Application.ScreenUpdating = False
Select Case Range("E10")
Case Is = 1
Range("F1:F5").Copy
Case Is = 2
Range("G1:G5").Copy
Case Is = 3
Range("H1:H5").Copy
Case Is = 4
Range("I1:I5").Copy
Case Is = 5
Range("J1:J5").Select
Case Else
Exit Sub
End Select
Range("C1").PasteSpecial
Application.CutCopyMode = False
End Sub
 
Yes it does, the following is the same as yours without the extra steps

Sub SelectCorrectList()

Dim CellLink As Integer
CellLink = Range("E10")

Select Case CellLink
Case 1
Range("F1:F5").Copy Range("C1")
Case 2
Range("G1:G5").Copy Range("C1")
Case 3
Range("H1:H5").Copy Range("C1")
Case 4
Range("I1:I5").Copy Range("C1")
Case 5
Range("J1:J5").Copy Range("C1")
End Select

End Sub
 
so how exactly would i set out getting the 2nd combo box to be dependant
on the first one with this code where would this code be placed
 
should the code be in the form of a macro assigned to the 2nd combo box
or in open work book.
 
Back
Top