ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,699
- Office Version
- 2007
- Platform
- Windows
Morning all,
I currently have this working code in use "supplied below" but i need it to open the results be shown differently.
At present i click a button & i am taken to the worksheet-range in question.
This request would be to make it open a different way so i would click the button & either just have the range appear on the current screen without being taken off this page or i was thinking of a user form maybe which might be a lot easier but then wasnt sure of how to sort the list.
I currently have this working code in use "supplied below" but i need it to open the results be shown differently.
At present i click a button & i am taken to the worksheet-range in question.
This request would be to make it open a different way so i would click the button & either just have the range appear on the current screen without being taken off this page or i was thinking of a user form maybe which might be a lot easier but then wasnt sure of how to sort the list.
Code:
Sub LEADERBOARD() '' leaderboard Macro' Worksheets("HONDA SHEET").Range("C1:D13").Copy Worksheets("INFO").Range("AV2:AW15")
Worksheets("HONDA SHEET").Range("E1:F13").Copy Worksheets("INFO").Range("AV15:AW27")
ActiveWorkbook.Worksheets("INFO").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("INFO").Sort.SortFields.Add Key:=Range("AW2"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With Worksheets("INFO").Sort
.SetRange Range("AV2:AW27")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
With Worksheets("INFO").Range("AV2:AW27").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
End With
Application.Goto Sheets("INFO").Range("AQ2")
End Sub