order=xlascending

I've recorded a custom sort. The sort works exactly how I want, when manually applied (during record process), but fails to apply when applied by executing recorded vba code; by fail, I mean not applying sort and no error messages displayed. After the code has completed, I can visit the "Custom...

I have a simple sheet that looks like this: more data And, I'm using the following code within other code in VBA: With ActiveSheet.Sort .SortFields.Add Key:=Range("J1"), Order:=xlAscending .SortFields.Add Key:=Range("C1"), Order:=xlAscending .SetRange Range("A1:V" & LRX)...

Morning all I have a worksheet "Project Summary" Columns A to L which is a summary of another worksheet "Project Master" Columns A to BW. ONce the data is pulled through from "Project Master" I am using the following code to sort the "Project Summary" sheet: Sub SortMultipleColumns() With...

Hi all, I am working on this sheet and I need a lot of data to be sorted in a specific manner. The only issue is that the data I use changes. One week I may have 5000 rows of data in Excel, and others I may have 6000. Is there a way to make the sorta range in this code here change based on how...

Hi all, I am trying to add a sort function to a spreadsheet that varies in length, however the code stops when it gets to the .Apply section, does anyone know how to fix this? See the code below: LastRow = sht.Range("A1").CurrentRegion.Rows.Countsht.Range("A2", sht.Range("k" & LastRow)).Select...

Hi, I am trying to sort the populated data in a worksheet. Column A has a few records with the cell blank and I want these at the bottom. I have the code below. It runs with no errors but doesn't seem to be sorting correctly. Sub Sort() Sheets("XXXX").Activate ActiveSheet.UsedRange.Select...

I have a worksheet I am trying to create a filter for. I recorded a macro with all of the filtering set to what I need. When I try to assign it to my ComboBox and run it I am getting a Run-Time Error 91 Object variable or with block variable not set. It is highlighting the section "...

I have the below code to sort my data by color (K11:K123) and by item (C11:C123). Is there a way to have a blank row inserted (also have all formulas of all other cells) to separate when the color changes. Range("B11:M123").Select ActiveWindow.SmallScroll Down:=-102...

So I have the below code which works perfectly (maybe could be cleaned up a little but its working) what im trying to figure out if right now if column I changed then it runs the sort or if "ETOX-SKIP" is selected from the drop down in column D then it sorts. The thing im trying to figure out...

I created the following code to sort one sheet by 2 columns, but I would like to change the code to include other sheets (but not all the sheets w/in the workbook). How can I do that? All the data will be in the same columns and cells on each sheet. Also, can I still use the sheet names or...

Hi please can you help me, i have the code below where i have named a range A28:C41 but the last row might not always be C41 please can you advise how i do a last row please? With ActiveSheet.Sort .SortFields.Add Key:=Range("A28"), Order:=xlAscending .SortFields.Add Key:=Range("B28")...

Using macro recorder to filter column C (by name) and then column E (by hour/date) I get the following code. Sub Macro1() ActiveWorkbook.Worksheets("SheetA").Sort.SortFields.Clear ActiveWorkbook.Worksheets("SheetA").Sort.SortFields.Add2 Key:=Range("C2:C500") _ ...

Good morning, I have a macro that organizes data and then splits that data into different tabs based on a name in column AC. The issue I just ran into was when the name was too long for a tab (character limit I believe is 30). Is there a way to update this macro to either read only to the 30th...

This one has been driving me nuts for some time so I'm hoping one of the knowledgeable people here has an answer. I have a massive spreadsheet (11 MB and growing) that I use to track stock trading data. Imbedded w/i the spreadsheet are many RTD functions calling ToS to get real time data on...

I have a fairly simple macro built that is supposed to delete row 2, bold format font in row 1, auto fit column widths, and sort by column. The number of rows in the worksheet will vary, but the number of columns are the same every time. I've done a lot of searching in forums for the 1004 error...

Hi, I currently have a code that automatically sorts data on multiple worksheets when the workbook is open and it works fine. Most cells in the E9:J28 Range have no fill colour; however, there are some cells (in rows) that are intentionally blacked out. Can anyone help me out to tweak this VBA...

This one's driving me nuts. I have code to sort the active sheet of an xlsm file. Below is the code: With ActiveSheet.Sort .SortFields.AddKey:=Range("A2:A75000"), Order:=xlAscending .SortFields.AddKey:=Range("B2:B750000"), Order:=xlAscending...

Hello, I sent a macro to another computer only to realize that it did not work because of a Sort issue in the code. With ActiveWorkbook.Worksheets("APP").Sort .SortFields.Clear .SortFields.Add2 Key:=Range("B2:B" & LastA), Order:=xlAscending .SortFields.Add2 Key:=Range("A2:A" &...

Hi, I am trying to loop a one worksheet (name of that worksheet was Booking)recorded macro through all the sheets in the workbook. The recording was to sort data within a range alphabetically. No security issues I am aware of. If anyone could amened the following code to this, that'd be...

hi below is my macro.. with error reference is not valid. i went though the web but can't find answer that satisfy me. Please help Range("A8:Q500").Select ActiveWorkbook.Worksheets("NAVAnalysisChk").QueryTables(1).Sort.SortFields. _ Clear...