combo coding

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
 
M

mudraker

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
 
D

Dale Hymel

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
 
N

Noctos

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
 
N

Noctos

should the code be in the form of a macro assigned to the 2nd combo box
or in open work book.
 
Top