JUST HAVING SOME FUN.
A FEW OF MY FORMULAS;
=IF(AND(AP592+AP621>=1,M155<>AW159),M155*M190*1000 ,"----")
=IF(AND(AO581+AO610>=0,L144>AV148),AV148*1000,0)
=IF(Sheet3!M5<>"---",Sheet3!M5,0)
ONE OF MY TWO MAIN MACROS
Sub oddssort()
'
' oddssort Macro
'
'
Range("BO220:CH237").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=7
Range("BO279").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add2 Key:=Range( _
"CH280:CH296"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
Range("BO280:CH295").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add2 Key:=Range( _
"CH281:CH295"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
'
.SetRange Range("BO279:CH295")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'''''''''''''''''''''''''''''''''''''''''
Range("BQ636:CF636").Select
Selection.Copy
Range("BM659").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveWindow.SmallScroll Down:=14
Range("BP659:BP674").Select
Application.CutCopyMode = False
Selection.Copy
Range("BL659").Select
ActiveSheet.Paste
Range("BI659:BM674").Select
Application.CutCopyMode = False
Range("BO644").Select
ActiveWindow.SmallScroll Down:=14
Range("BJ659:BM674").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add2 Key:=Range( _
"BM658:BM674"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("BL658:BM674")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
Range("CG560:CG575").Select
Application.CutCopyMode = False
Selection.Copy
Range("BQ581").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
'Range("CL582").Select
End With
Range("CH578").Select
' Range("CZ653").Select
' topthreesort Macro
'
'
Range("CN559
I576").Select
Selection.Copy
Range("EA559").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("EA560:EV575").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add2 Key:=Range( _
"EV561:EV575"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
Range("EA560:EV575").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add2 Key:=Range( _
"EV560:EV575"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("EA560:EV575")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("CQ650").Select
'
' macrobf659 Macro
'
'
Range("BF659").Select
Selection.Copy
Range("BF659:BU674").Select
ActiveSheet.Paste
Range("bp616").Select
Range("CJ644").Select
' transfermainboard Macro
'
'
Range("BO618:CH645").Select
Selection.Copy
Range("CI669").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("CI670
B685").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add2 Key:=Range( _
"CI670:CI685"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("CI670
B685")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("CJ686
A687").Select
Selection.ClearContents
'''''End
' ltgreenbpardtransfer Macro
'
'
Range("BD658:BW675").Select
Selection.Copy
Range("CI691").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("CI692
B707").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add2 Key:=Range( _
"CI692:CI707"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("CI692
B707")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("k94").Select
'Sub purpleline()
'
' purpleline Macro
'
'
Range("BO172:CL172").Select
Selection.Copy
'End Sub
' totalbet Macro
'
' greytotal Macro
'
'
Range("BS183").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-22]C[-4]+R[-22]C[13]"
Range("BS183").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub