combo coding
 

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

--
Message posted from http://www.ExcelForum.com

combo coding
 

any ideas what the code is?????


---
Message posted from http://www.ExcelForum.com/

combo coding
 

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


---
Message posted from http://www.ExcelForum.com/

combo coding
 

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


"Noctos" wrote in message
...
can someone please examine this code and confirm that it makes The
contents of asecond combo box dependant on the value selected in the
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 Sub


---
Message posted from http://www.ExcelForum.com/

combo coding
 

Previewed your reply and didn't see the simpler coding.



"mudraker" wrote in message
...
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


---
Message posted from http://www.ExcelForum.com/

combo coding
 

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


---
Message posted from http://www.ExcelForum.com/

combo coding
 

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


---
Message posted from http://www.ExcelForum.com/