Vba code to sort variable ranges in one work sheet

[clixo]

Hi , i am strugling to make thios to work, tried again and again allways failing
I have a worksheet that have 4 diferent ranges that i need to sort everitime i insert a new row in a diferent range

if i insert row in range " line1" i need to sort it by delivery date and quantity, and so on , i have 4 diferent ranges in the sheet
line1
line2
line3
line4

atached example worksheet,
All help is apretiated !

[Bernie Deitrick]

The code below will allow you to insert a new blank row, and then begin to fill it in. When you fill in the date, it will sort that block of data ascending by date and desending by amount. To get the code to work, remove all your other code, insert a new fully blank row 4, and then:

1) Copy this code.
2) Right-Click the sheet tab of interest.
3) Select "View Code"
4) Paste the code into the window that appears.
5) Save the file as a macro-enabled .xlsm file.
6) Make changes as needed

Please Login or Register  to view this content.

[clixo]

@Bernie Deitrick first of all thanks !
The macro works but only im the test sheet i uploaded.
In the main file it is not working, all of it is in portuguese but i will upload it anyway and if you could point me in the right direction i will be thankfull !

[Bernie Deitrick]

OK - each of your monthly sheets needs to have a new blank row inserted above your existing row 4, to allow the CurrentRegion command to operate correctly. I have assumed that you will have the twelve sheets for the months in the same location - as the 2nd through 13th sheets. Note that you really could just use one sheet for the entire task that you seem to be designing for, and apply filters to show the current month's data, or just the data for one line, all keyed to a few control cells at the top of the sheet, and an extra column of formulas to flag the correct data to show for that view.

Anyway, once you have inserted the new row 4 on each sheet, you can use workbook level code so you only need one version of code:

'1) Copy this code.
'2) Open the VBE (press Alt-F11)
'3) Select your workbook in the project explorer
'4) Double-click the ThisWorkbook object
'5) Paste the code into the window that appears.
'6) Save the file as a macro-enabled .xlsm file.

Please Login or Register  to view this content.

[clixo]

Hi, Code is running ! My bad !


_______________________________________________________________________________
Hi.
I can not make it run as suposed ! i have done as in the last post but the code simply do not run.
__________________________________________________________________________________

[jindon]

See if this is how you wanted.
To ThisWorkbook(EsteLivro?) code module

Please Login or Register  to view this content.

[clixo]

@ Bernie Deitrick , Your code is working !!!! sory i was not setting it properly !!!!! thanks !!!!
@jindon Thanks