Floating Table that scrolls

[rcocrane99]

Hello everyone, I want to make a table that will always be visible when scrolling down within a sheet, I could freeze panes but there are too many to freeze. I need to always see column H:N

 

[jkpieterse]

You could open a new window (View, New Window) to the same file and open the windows side-by-side.

 

[rcocrane99]

No it's more of a convenience thing to make sure management can see it so I'd like to have it all in one of possible

 

[igold]

Although your picture does not appear to be a table, if it is indeed a table with the name of "Table1", then this code will work if you select a cell in the row where you want your Table to scroll to. The only other thing you have to decide is how you want to trigger the code. Perhaps double clicking a cell in the row that you want the table to move to or something else (in that case the code would have to put into the worksheet module) or a Command Button or something else.

Sub Mtable()

    Dim i As Long, adr As String
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim tbl As ListObject: Set tbl = ws.ListObjects(1)
    Dim rw As Long
    
    i = ActiveCell.Row
    Range("Table1[#All]").Select
    adr = Selection.Address(False, False)
    rw = Selection.Row
    
    Selection.Cut Destination:=Range(adr).Offset((i - rw), 0)
    Range("A1").Select

End Sub

 

[rcocrane99]

do you know if this is something that can be implemented on a tablet as I know they cannto include macros not sure about VBA ( also to note i havent tried it yet as this will be my first time looking into VBA at all)

 

[igold]

No clue.

 

[jkpieterse]

Depends on the tablet. A Microsoft Surface tablet runs Windows, so it should work on that. If it isn't a Windows tablet, no VBA.