sorting

[new2vba]

I have added a sort to an advancedfiltercopy, but it doesn't do the sort. any ideas?

Range("A1:i48").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "j1:j2"), CopyToRange:=Range("a201:b201"), Unique:=False
 

Range("a201:b201").Sort _
      Key1:=Range("b201"), _
      Order1:=xlAscending, _
      Header:=xlYes, _
      OrderCustom:=1, _
      MatchCase:=False, _
      Orientation:=xlTopToBottom

 

[Barry Katcher]

Just giving it a cursory glance, it appears your sort range is only one row.

Range("a201:b201").Sort

Try:

    Range("A201:B300").Select
    Selection.Sort Key1:=Range("B202"), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

[/quote]

 

[new2vba]

thanks Barry - that solves it

 

[new2vba]

new issue

Just giving it a cursory glance, it appears your sort range is only one row.

Range("a201:b201").Sort

Try:

    Range("A201:B300").Select
    Selection.Sort Key1:=Range("B202"), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

[/quote]After trying your solution, I realized some of the formatting I had applied to certain cells didn't move with the cell. To be more specific: I have the interior and border of some cells colored...after the sort, all of the interior colors are where they need to be, but some of the borders are not. any ideas?

 

[Barry Katcher]

Hmm, I just tested it and yup, you're right; the patterns are o.k. but the borders aren't. Don't know - maybe someone else on the Board can help.

 

[new2vba]

Hmm, I just tested it and yup, you're right; the patterns are o.k. but the borders aren't. Don't know - maybe someone else on the Board can help.

Thanks Barry