BigMillBoy
New Member
- Joined
- Sep 6, 2021
- Messages
- 5
- Office Version
- 2013
- Platform
- Windows
I have a spreadsheet that is used to display a query table for a daily meeting. Each day this file is updated and recently the query table has been having some issues. The table used to be displayed in a particular location and now it is being pasted higher up in the sheet where it is in the way. Going back to old copies of this it works correctly and as far as I can tell the code is identical. I'm not the best with this language and the spreadsheets code was created before I started in this position.
I have pasted the code below. I would like for the table to be displayed at K46:AK80 however currently it is at A16:AK50
How do i fix this issue?
Sub HeatMap()
'
' HeatMap Macro Updates the Heat Map Table
'
Sheet5.QueryTables(1).Refresh 'Refreshes the data in the query table (data must be input manually)
Columns("K:AK").EntireColumn.AutoFit 'Ensure background refresh is off (right click option on the table)
'adjusts the table shape after repfresh
Columns("S:S").ColumnWidth = 6
Columns("K:K").ColumnWidth = 1
Columns("X:X").ColumnWidth = 5
Columns("AB:AB").ColumnWidth = 3
Columns("M:M").ColumnWidth = 6.5
Range("A1").Select
ActiveWindow.Zoom = 10
Range("K46:AK80").Select
ActiveWindow.Zoom = 110
'Range("L59").Select
End Sub
I have pasted the code below. I would like for the table to be displayed at K46:AK80 however currently it is at A16:AK50
How do i fix this issue?
Sub HeatMap()
'
' HeatMap Macro Updates the Heat Map Table
'
Sheet5.QueryTables(1).Refresh 'Refreshes the data in the query table (data must be input manually)
Columns("K:AK").EntireColumn.AutoFit 'Ensure background refresh is off (right click option on the table)
'adjusts the table shape after repfresh
Columns("S:S").ColumnWidth = 6
Columns("K:K").ColumnWidth = 1
Columns("X:X").ColumnWidth = 5
Columns("AB:AB").ColumnWidth = 3
Columns("M:M").ColumnWidth = 6.5
Range("A1").Select
ActiveWindow.Zoom = 10
Range("K46:AK80").Select
ActiveWindow.Zoom = 110
'Range("L59").Select
End Sub