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

    Why work in my home and not in my office (2000)

    Have errror in this macro, in home have Office 2007 in my office have 2000....
    Sub ORDINA()

    Sheets("TI001F").Select

    ULTIMA = Sheets("TI001F").Cells(65536, 1).End(xlUp).Row
    Set MIO_RANGE = Sheets("TI001F").Range("A3:S" & ULTIMA)

    MIO_RANGE.Sort Key1:=Range("G3"), Order1:=xlAscending, Key2:=Range("I3") _
    , Order2:=xlAscending, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
    xlSortNormal

    MIO_RANGE.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
    , Order2:=xlAscending, Key3:=Range("D3"), Order3:=xlAscending, Header:= _
    xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
    xlSortNormal

    Sheets("TI001F").Range("A3").Select

    End Sub

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

    Re: Why work in my home and not in my office (2000)

    "Have errror in this macro" doesn't tell us anything. What is the error message?

Posting Permissions

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