I am using the record macro function to compile a list of instructions to run. I am just doing them manually and copying/pasting the VBA code being produced. But when I run the actual code, I'm getting an error and not all the steps run. Can anyone help on this? I attached the code in .doc format. I'm rather new to VBA so forgive the amateur level. The highlighted line is coming back as a Debug error.
Last edited by NYC4LIFE; 07-30-2013 at 12:30 PM. Reason: attached instructions in .txt
Have you rename your sheets ?
Please consider adding a * if I helped
no. i managed to get some steps working. I'm trying to use a sort function across 5 parameters. the record macro function yields the below code, but when trying to re run it, I get an error to Debug the highlighted line. Can anyone offer help on this? I can't seem to get it to work
Sub rec3()
ActiveCell.Cells.Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=ActiveCell. _
Offset(0, 12).Range("A1:A11032"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=ActiveCell. _
Offset(0, 7).Range("A1:A11032"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=ActiveCell. _
Offset(0, 11).Range("A1:A11032"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=ActiveCell. _
Offset(0, 9).Range("A1:A11032"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=ActiveCell. _
Offset(0, 13).Range("A1:A11032"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange ActiveCell.Offset(-1, 0).Range("A1:ER11033") .Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks