Switching data in two different rows

[TheShaunMichael]

Is there a way to swith the data in two rows without using the insert & delete properties? Possibly creating an array?

 

[Peter_SSs]

Is there a way to swith the data in two rows without using the insert & delete properties? Possibly creating an array?

Like this?

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> SwapRows()<br>    <SPAN style="color:#00007F">Dim</SPAN> r1Data<br>    <SPAN style="color:#00007F">Dim</SPAN> r1 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, r2 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    r1 = 4: r2 = 7 <SPAN style="color:#007F00">'<-- Rows to swap</SPAN><br>    r1Data = Rows(r1).Value<br>    Rows(r1).Value = Rows(r2).Value<br>    Rows(r2).Value = r1Data<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[TheShaunMichael]

Oh how obvious the answer seems in retrospection.

Let me however add one more layer of complexity. Here's the challenge: I have information in rows 12-15 of my spreadsheet. A userform opens and a listbox is populated with the values of B12:B15. Two command buttons allows the user to move items in the listbox up or down. When the user clicks okay, I then want the corresponding rows to change orders. Does that make sense?

So, i'm thinking of testing for the value in B12:B16 and assigning it to a variable, at which point I should be able to use the code you wrote. Thoughts???

 

[Peter_SSs]

Sorry, Userforms and their components are not one of my strong points. Hopefully somebody with more expertise in that area will step in.