ArthurReyes
Board Regular
- Joined
- Dec 9, 2002
- Messages
- 77
I have the following Code
The first Part copies a horizontal range and transposes it in B510
C509 reads a cell that counts the total # of entries in the list.
My difficulty comes at the end, when I am trying to select the list box and change the listfillrange for the content.
The list box does get selected successfully, but the listfillrange is not modified.
Also, I would like to know how to deselect the Drop Down Box after I have modified it.
'Rebuild Skills List
Sheets("AdminSkillsProfessions").Range("W1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("AdminSkillsProfessions").Range("B510").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
x = Sheets("AdminSkillsProfessions").Range("C509").Value
ActiveWorkbook.Sheets("UserForm").Shapes("Drop Down 1").Select
With Selection
ListFillRange = "AdminSkillsProfessions!$B$510:$B$" & x
End With
This message was edited by ArthurReyes on 2002-12-13 14:28
The first Part copies a horizontal range and transposes it in B510
C509 reads a cell that counts the total # of entries in the list.
My difficulty comes at the end, when I am trying to select the list box and change the listfillrange for the content.
The list box does get selected successfully, but the listfillrange is not modified.
Also, I would like to know how to deselect the Drop Down Box after I have modified it.
'Rebuild Skills List
Sheets("AdminSkillsProfessions").Range("W1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("AdminSkillsProfessions").Range("B510").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
x = Sheets("AdminSkillsProfessions").Range("C509").Value
ActiveWorkbook.Sheets("UserForm").Shapes("Drop Down 1").Select
With Selection
ListFillRange = "AdminSkillsProfessions!$B$510:$B$" & x
End With
This message was edited by ArthurReyes on 2002-12-13 14:28