Using a form to move cell contents

[cmacedo]

Hi All,

I've got a spreadsheet which has three columns. Backlog, In Progress, Done.

I also have a form for that spreadsheet which has three ListBoxes. Each of which corresponds to one of the columns.

Beside each listbox, are the buttons 'Up' and 'Down'.

I want to be able to select an item in the listbox, click one of the two buttons, and see the corresponding movement both in the listbox, and on the sheet of the selected cell contents.

However, I have no idea how to write the macro on the buttons to do this.

Help?

Christian.

 

[John_w]

This shows the code for one of the listboxes (lbBacklog) and its Up and Down command buttons. I've assumed you have column headings in row 1 and the first data item starts in row 2. Put the code in the UserForm module.

Private Sub cmdUp_Click()
    If lbBacklog.ListIndex > 0 Then lbBacklog.ListIndex = lbBacklog.ListIndex - 1
End Sub

Private Sub cmdDown_Click()
    If lbBacklog.ListIndex < lbBacklog.ListCount - 1 Then lbBacklog.ListIndex = lbBacklog.ListIndex + 1
End Sub

Private Sub lbBacklog_Click()
    Cells(lbBacklog.ListIndex + 2, "A").Select      'Column A - Backlog
End Sub

The code for the other listboxes and command buttons should be similar, with the appropriate control names and column letters.

 

[Sthrncali]

Here is a working example for 1 column. You would just need to duplicate it for the additional columns.

http://iput.it/d9b84a