vba to Sort past lottery results smallest to largestPrev TopicNext Topic

• timmsy

  

  Australia
  Member #154,621
  April 23, 2014
  228 Posts
  Offline
  Aug 14, 2017, 5:25 am

  ▲▼

  This is a vba i used to Sort past lottery results smallest to largest , this example is for 10 numbers starting at B1 to k1, you can change it to suit your lotto or Keno just change the range

   

   

  
  Sub sort_results_ascending() 'from top to bottom sort left to right on data page

  Sheets("data").Select
  Application.Calculation = xlCalculationManual
  Range("B1:k1").Select ' first draw (chage to suit your lottery)

  Do While ActiveCell.Value <> 0
  Selection.Offset(1, 0).Select
  Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
  Loop
  
  Application.Calculation = xlCalculationAutomatic
  Range("A1").Select 'scroll back to new result
  End Sub
• CountingMan

  

  Charlotte
  United States
  Member #42,105
  June 27, 2006
  105 Posts
  Offline
  Aug 20, 2017, 2:02 pm

  ▲▼

  I use the following formula to sort drawings from lowest to hugest from left to right: 

   

  Highlight the cells where you want the results returned then type in the following formula I. The far left cell:

  =small (array, {1,2,3,4,5})  and hit Ctrl, Shift, and Enter at the same time