Comments on: Move Up/Move Down in a ListBox http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/ Daily posts of Excel tips…and other stuff Wed, 08 Feb 2012 23:58:05 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: JP http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-37929 JP Fri, 13 Feb 2009 16:33:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-37929 <p>Nice. I'll make a list and start working on this next week.</p> Nice. I’ll make a list and start working on this next week.

]]> By: Dick Kusleika http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-37926 Dick Kusleika Fri, 13 Feb 2009 15:05:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-37926 <p>Let the user define new fields. They name it and make it a</p> <p>1) Number - Min, Max<br> 2) String - Length, case(proper, lower, upper)<br> 3) Regex - They put in a regular expression and you output a string that would pass it<br> 4) Date - Min, Max (or split into day, month, year with separate criteria for each)</p> Let the user define new fields. They name it and make it a

1) Number – Min, Max
2) String – Length, case(proper, lower, upper)
3) Regex – They put in a regular expression and you output a string that would pass it
4) Date – Min, Max (or split into day, month, year with separate criteria for each)

]]> By: JP http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-37914 JP Fri, 13 Feb 2009 01:14:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-37914 <p>Feel free to suggest. I'm working on an Outlook version of my Post to Twitter add-in, I can add to this one as well.</p> <p>Thx</p> Feel free to suggest. I’m working on an Outlook version of my Post to Twitter add-in, I can add to this one as well.

Thx

]]> By: Dick Kusleika http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-37891 Dick Kusleika Thu, 12 Feb 2009 00:16:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-37891 <p><strong>JP</strong> Awesome. This is going to a very useful add-in, I think. I've already got some ideas for the next version (e.g. custom fields).</p> JP Awesome. This is going to a very useful add-in, I think. I’ve already got some ideas for the next version (e.g. custom fields).

]]> By: JP http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-37882 JP Wed, 11 Feb 2009 14:06:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-37882 <p>Hey Dick –</p> <p>I updated the add-in and should be re-released it again later today. Thanks again for your help.</p> <p>–JP</p> Hey Dick –

I updated the add-in and should be re-released it again later today. Thanks again for your help.

–JP

]]> By: Dick Kusleika http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-37847 Dick Kusleika Sun, 08 Feb 2009 23:33:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-37847 <div style="overflow: auto; white-space: nowrap;" class="codecolorer-container vb default"><div style="white-space: nowrap;" class="vb codecolorer"><span class="kw1">Private</span> <span class="kw1">Sub</span> MoveItem(lOffset <span class="kw1">As</span> <span class="kw1">Long</span>)<br>     <br>     <span class="kw1">Dim</span> aTemp() <span class="kw1">As</span> <span class="kw1">String</span><br>     <span class="kw1">Dim</span> i <span class="kw1">As</span> <span class="kw1">Long</span><br>     <br>     <span class="kw1">With</span> Me.lstToInclude<br>       <span class="kw1">If</span> .ListIndex > -1 <span class="kw1">Then</span><br>         <span class="kw1">ReDim</span> aTemp(0 <span class="kw1">To</span> .ColumnCount - 1)<br>         <span class="kw1">For</span> i = 0 <span class="kw1">To</span> .ColumnCount - 1<br>           aTemp(i) = .List(.ListIndex + lOffset, i)<br>           .List(.ListIndex + lOffset, i) = .List(.ListIndex, i)<br>           .List(.ListIndex, i) = aTemp(i)<br>         <span class="kw1">Next</span> i<br>       <span class="kw1">End</span> <span class="kw1">If</span><br>       .Selected(.ListIndex) = <span class="kw1">False</span><br>       .ListIndex = .ListIndex + lOffset<br>       .Selected(.ListIndex) = <span class="kw1">True</span><br>     <span class="kw1">End</span> <span class="kw1">With</span><br>  <br> <span class="kw1">End</span> <span class="kw1">Sub</span></div></div> <p><a href="http://www.codeforexcelandoutlook.com/blog/2009/02/random-sample-data-generator-add-in-for-excel-now-available/" rel="nofollow">http://www.codeforexcelandoutlook.com/blog/2009/02/random-sample-data-generator-add-in-for-excel-now-available/</a></p>
Private Sub MoveItem(lOffset As Long)
   
    Dim aTemp() As String
    Dim i As Long
   
    With Me.lstToInclude
      If .ListIndex > -1 Then
        ReDim aTemp(0 To .ColumnCount – 1)
        For i = 0 To .ColumnCount – 1
          aTemp(i) = .List(.ListIndex + lOffset, i)
          .List(.ListIndex + lOffset, i) = .List(.ListIndex, i)
          .List(.ListIndex, i) = aTemp(i)
        Next i
      End If
      .Selected(.ListIndex) = False
      .ListIndex = .ListIndex + lOffset
      .Selected(.ListIndex) = True
    End With
 
End Sub

http://www.codeforexcelandoutlook.com/blog/2009/02/random-sample-data-generator-add-in-for-excel-now-available/

]]> By: Marnix Venema http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-34852 Marnix Venema Sun, 21 Sep 2008 06:17:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-34852 <p>I wanted to make it move sheets and have com up with the following. Perhaps that someone else likes this too!</p> <p>Private Sub UserForm_Initialize()</p> <p> Dim sVal As String<br> Dim dataSheet As Worksheet<br> Dim iDataRow As Long</p> <p> Set dataSheet = Sheets("Sheet1?)</p> <p> 'Fill in the listbox<br> lbxTeams.Clear<br> 'Column A contains the item list (Row 1 is the column header)<br> iDataRow = 2 'first item in the list<br> Do While Len(dataSheet.Range("A" & iDataRow).Text) > 0<br> sVal = dataSheet.Range("A" & iDataRow).Text<br> lbxTeams.AddItem sVal<br> iDataRow = iDataRow + 1<br> Loop<br> End Sub<br> Private Sub cmdDown_Click()</p> <p> Dim ShtIndex As Integer<br> Dim AftrSht As String</p> <p> 'Move Item in ListBox<br> MoveItem 1</p> <p> 'Get Values for Moving Sheets<br> ShtIndex = lbxTeams.ListIndex<br> AftrSht = lbxTeams.List(ShtIndex - 1, 0)</p> <p> 'Move After Sheet...<br> Sheets(lbxTeams.Value).Move After:=Sheets(AftrSht)</p> <p>End Sub<br> Private Sub cmdUp_Click()</p> <p> Dim ShtIndex As Integer<br> Dim BfrSht As String</p> <p> 'Move Item in ListBox<br> MoveItem -1</p> <p> 'Get Values for Moving Sheets<br> ShtIndex = lbxTeams.ListIndex<br> BfrSht = lbxTeams.List(ShtIndex + 1, 0)</p> <p> 'Move Before Sheet...<br> Sheets(lbxTeams.Value).Move Before:=Sheets(BfrSht)</p> <p>End Sub</p> <p>Private Sub MoveItem(lOffset As Long)</p> <p> Dim aTemp() As String<br> Dim i As Long</p> <p> On Error GoTo EndSub</p> <p> With Me.lbxTeams<br> If .ListIndex > -1 Then<br> ReDim aTemp(0 To .ColumnCount - 1)<br> For i = 0 To .ColumnCount - 1<br> aTemp(i) = .List(.ListIndex + lOffset, i)<br> .List(.ListIndex + lOffset, i) = .List(.ListIndex, i)<br> .List(.ListIndex, i) = aTemp(i)<br> .ListIndex = .ListIndex + lOffset<br> Next i<br> End If<br> End With</p> <p>EndSub: End Sub</p> I wanted to make it move sheets and have com up with the following. Perhaps that someone else likes this too!

Private Sub UserForm_Initialize()

Dim sVal As String
Dim dataSheet As Worksheet
Dim iDataRow As Long

Set dataSheet = Sheets(“Sheet1?)

‘Fill in the listbox
lbxTeams.Clear
‘Column A contains the item list (Row 1 is the column header)
iDataRow = 2 ‘first item in the list
Do While Len(dataSheet.Range(“A” & iDataRow).Text) > 0
sVal = dataSheet.Range(“A” & iDataRow).Text
lbxTeams.AddItem sVal
iDataRow = iDataRow + 1
Loop
End Sub
Private Sub cmdDown_Click()

Dim ShtIndex As Integer
Dim AftrSht As String

‘Move Item in ListBox
MoveItem 1

‘Get Values for Moving Sheets
ShtIndex = lbxTeams.ListIndex
AftrSht = lbxTeams.List(ShtIndex – 1, 0)

‘Move After Sheet…
Sheets(lbxTeams.Value).Move After:=Sheets(AftrSht)

End Sub
Private Sub cmdUp_Click()

Dim ShtIndex As Integer
Dim BfrSht As String

‘Move Item in ListBox
MoveItem -1

‘Get Values for Moving Sheets
ShtIndex = lbxTeams.ListIndex
BfrSht = lbxTeams.List(ShtIndex + 1, 0)

‘Move Before Sheet…
Sheets(lbxTeams.Value).Move Before:=Sheets(BfrSht)

End Sub

Private Sub MoveItem(lOffset As Long)

Dim aTemp() As String
Dim i As Long

On Error GoTo EndSub

With Me.lbxTeams
If .ListIndex > -1 Then
ReDim aTemp(0 To .ColumnCount – 1)
For i = 0 To .ColumnCount – 1
aTemp(i) = .List(.ListIndex + lOffset, i)
.List(.ListIndex + lOffset, i) = .List(.ListIndex, i)
.List(.ListIndex, i) = aTemp(i)
.ListIndex = .ListIndex + lOffset
Next i
End If
End With

EndSub: End Sub

]]> By: Jon Peltier http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-28083 Jon Peltier Tue, 16 Oct 2007 14:11:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-28083 <p>I never use the RowSource property to populate a control. My calling code feeds the form an array using a public let property. Often the array is simply taken from a worksheet range, but this is much more flexible than locking myself into the range. If I need the worksheet to change, well, the form feeds the array back to the calling code using a public get property.</p> I never use the RowSource property to populate a control. My calling code feeds the form an array using a public let property. Often the array is simply taken from a worksheet range, but this is much more flexible than locking myself into the range. If I need the worksheet to change, well, the form feeds the array back to the calling code using a public get property.

]]> By: Andy Pope http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-28082 Andy Pope Tue, 16 Oct 2007 08:50:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-28082 <p>Hi Apirus,</p> <p>You would get that error if you populated the listbox using the RowSource property.<br> When using rowsource you can not change the order of the listbox using the above method. You would need to change the cells directly.</p> Hi Apirus,

You would get that error if you populated the listbox using the RowSource property.
When using rowsource you can not change the order of the listbox using the above method. You would need to change the cells directly.

]]> By: Apirus http://www.dailydoseofexcel.com/archives/2004/06/14/move-upmove-down-in-a-listbox/#comment-28032 Apirus Fri, 12 Oct 2007 16:38:00 +0000 http://www.dailydoseofexcel.com/?p=628#comment-28032 <p>I have been trying to reorder rows in a list box.<br> I am getting an error</p> <p>"Run-Time Error '70' .Could not set the list property. Permission denied.</p> <p>Any suggestions please</p> I have been trying to reorder rows in a list box.
I am getting an error

“Run-Time Error ’70′ .Could not set the list property. Permission denied.

Any suggestions please

]]>