Swap data between rows

[blanckdu12]

Hey guys,

I'm working on a spreadhseet using VBA and i was wondering how to go about sorting rows using vba code.

I would like to make a new entry at the bottom of the existing data and then sort columns A-M in order of column A lowest to highest.

I can do this manually using custom sort but the people who will use this are less computer literate and I intend on locking down this entire page. All they will be able to do is enter data into my form which will put the new data in and sort the rows by column A.

But columns after M can't be affected. Only columns A-M can move. This page gets printed if that matters.

Any help here would be much appreciated.

Thanks,
Duane

 

[ssingh75]

Hi,

Can you posrt some Example data, means what exactly u r looking for will get clear to us to help you.

 

[blanckdu12]

Ok so below is a small example of what I'm working with.

There are 6 columns of data with a banner running down the sixth column.

I want to sort all the data in the first 6 columns in ascending order of the values in column A. But I don't want anything after the first 6 columns to change.


see below.


[TABLE="width: 668"]
<TBODY>[TR]
[TD="align: right"]1 </SPAN>
[/TD]
[TD]Ben </SPAN>
[/TD]
[TD]Data here</SPAN>
[/TD]
[TD]kldklfna </SPAN>
[/TD]
[TD="align: right"]42312312</SPAN>
[/TD]
[TD="align: right"]123123</SPAN>
[/TD]
[TD]</SPAN>
[/TD]
[/TR]
[TR]
[TD="align: right"]2 </SPAN>
[/TD]
[TD]George</SPAN>
[/TD]
[TD]askdjas;</SPAN>
[/TD]
[TD]'</SPAN>
[/TD]
[TD="align: right"]208942</SPAN>
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5 </SPAN>
[/TD]
[TD]Hung</SPAN>
[/TD]
[TD]askdjas;</SPAN>
[/TD]
[TD]nsakdnask;</SPAN>
[/TD]
[TD="align: right"]232312</SPAN>
[/TD]
[TD="align: right"]41234</SPAN>
[/TD]
[/TR]
[TR]
[TD="align: right"]8 </SPAN>
[/TD]
[TD]David</SPAN>
[/TD]
[TD]fgdf </SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]4</SPAN>
[/TD]
[/TR]
[TR]
[TD="align: right"]7 </SPAN>
[/TD]
[TD]Terry</SPAN>
[/TD]
[TD]324trgsdfg </SPAN>
[/TD]
[TD]kmsl;dmka</SPAN>
[/TD]
[TD="align: right"]3423424</SPAN>
[/TD]
[TD="align: right"]4</SPAN>
[/TD]
[/TR]
[TR]
[TD="align: right"]6 </SPAN>
[/TD]
[TD]Annabelle</SPAN>
[/TD]
[TD]ldf</SPAN>
[/TD]
[TD]k</SPAN>
[/TD]
[TD="align: right"]2</SPAN>
[/TD]
[TD="align: right"]24124</SPAN>
[/TD]
[/TR]
[TR]
[TD="align: right"]3 </SPAN>
[/TD]
[TD]name </SPAN>
[/TD]
[TD]Data here</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]123</SPAN>
[/TD]
[/TR]
[TR]
[TD="align: right"]9 </SPAN>
[/TD]
[TD]name </SPAN>
[/TD]
[TD]ldf</SPAN>
[/TD]
[TD]lskdlakd</SPAN>
[/TD]
[TD="align: right"]23423423</SPAN>
[/TD]
[TD="align: right"]123</SPAN>
[/TD]
[/TR]
[TR]
[TD="align: right"]10 </SPAN>
[/TD]
[TD]name </SPAN>
[/TD]
[TD]4656tygf </SPAN>
[/TD]
[TD]a</SPAN>
[/TD]
[TD][/TD]
[TD="align: right"]12</SPAN>
[/TD]
[/TR]
[TR]
[TD="align: right"]22 </SPAN>
[/TD]
[TD]other name</SPAN>
[/TD]
[TD]t653w2 </SPAN>
[/TD]
[TD][/TD]
[TD="align: right"]332434</SPAN>
[/TD]
[TD="align: right"]52</SPAN>
[/TD]
[/TR]
[TR]
[TD="align: right"]4 </SPAN>
[/TD]
[TD]othjer anme</SPAN>
[/TD]
[TD]233 3 </SPAN>
[/TD]
[TD]lskdlakd</SPAN>
[/TD]
[TD="align: right"]12123123</SPAN>
[/TD]
[TD="align: right"]512</SPAN>
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]hope this helps,
Duane
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</TBODY>[/TABLE]

 

[blanckdu12]

Thread solved