What does that mean?

Private Sub CommandButton7_Click()

If ComboBox6.Text = "Selection of Items" Then
Listbox61.Rowsource = ""
set rng = worksheets("BCK").Range("Selection_Of_Items")
rng.sort key1:=rng(1), order1:=xlAscending
ListBox61.RowSource = "BCK!Selection_of_Items"
List61.ListIndex = List61.ListIndex - 1
End If

End sub

--
Regards,
Tom Ogilvy

End Sub


"Benz" wrote:

Sorry this is a re-post because im still looking for some type of anser or
direction.

My question and response to Tom's Help is, can I move the data in the
worksheet while still giving the user the ease of use of the userform? or can
you point me in an easier direction?

Thank you!!

"Tom Ogilvy" wrote:

since your using rowsource to fill your listbox, you will have to move the
data on the worksheet.

--
Regards,
Tom Ogilvy



"Benz" wrote:

Hello,

I'm not the greatest at VBA so hopefully this makes sense. I have a user
form where the user selects a from combo box 6 different text example "
Selection of Items" then in ListBox 61 comes specifiic data in pulled from a
defined area in the work book. Im trying to figure out how to do 2 things.

1. create a command button ( I tried to create one using the code below)
that will move a selected item in ListBox61 up or down.
2. Create a command button that will move the selected item to the top of
the list.

I'm having trouble doing this because everything I try then prevents the
information to be put into Listbox 61 depending on what the user selects in
combo box 6.

Any help would be appreciated.

Thank you.

Private Sub CommandButton7_Click()

If ComboBox6.Text = "Selection of Items" Then
ListBox61.RowSource = "BCK!Selection_of_Items"
List61.ListIndex = List61.ListIndex - 1
End If
End Sub