Results 1 to 2 of 2
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    ordering with twoo key..... (2000 sr-1)

    Head fired...........
    How to insert other key in column J from J3...
    In effect order by C and J

    Sub ORDINA_L0747()
    X = Sheets("L0847").Cells(65536, 1).End(xlUp).Row + 1
    Set Ordine = Sheets("L0847").Range("A3:M" & X)

    Ordine.Sort Key1:=Range("C3"), Order1:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
    xlTopToBottom
    End Sub

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: ordering with twoo key..... (2000 sr-1)

    Ordine.Sort Key1:=Range("C3"), Order1:=xlAscending, _
    Key2:=Range("J3"), Order2:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •