VBA Split Screen

[Pinaceous]

Good Day All,

Is there a way to change your split row orientation?

For example,

If I am between rows 1 - 100 the SplitRow will capture the first 3 rows, Rows 1-3 heading.

Now, I'd like the split row orientation to change when I am between rows 101 - 200, where the SplitRow will capture Rows 101 - 103 for its heading.

    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 3
    End With

Please let me know.

Thank you!
Pinaceous

 

[Skyybot]

Something like this?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim where As Long
ActiveWindow.SplitRow = 0
where = Target.Row
where = Int(where / 100) * 100
If Not where = 0 Then
    Application.Goto Me.Range("A" & where), True
    ActiveWindow.SplitRow = 3
Else
    Application.Goto Me.Range("A1"), True
    ActiveWindow.SplitRow = 3
End If
End Sub

 

[Skyybot]

Something like this?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim where As Long
ActiveWindow.SplitRow = 0
where = Target.Row
where = Int(where / 100) * 100
If Not where = 0 Then
    Application.Goto Me.Range("A" & where), True
    ActiveWindow.SplitRow = 3
Else
    Application.Goto Me.Range("A1"), True
    ActiveWindow.SplitRow = 3
End If
End Sub

Nevermind. That's not going to work.

 

[Pinaceous]

Thank you for trying Skyybot!!!

 

[Pinaceous]

Good Day All,

Is there a way to change your split row orientation?

For example,

If I am between rows 1 - 100 the SplitRow will capture the first 3 rows, Rows 1-3 heading.

Now, I'd like the split row orientation to change when I am between rows 101 - 200, where the SplitRow will capture Rows 101 - 103 for its heading.


VBA Code:
With ActiveWindow
.SplitColumn = 0
.SplitRow = 3
End With
Please let me know.

Thank you!
Pinaceous

Quote Reply
Report