Excel Freeze Headers

Software die niet past in bovenstaande onderwerpen
Gebruikers-avatar
Berichten: 631
Geregistreerd: 15 Nov 2015, 11:54

Excel Freeze Headers

Berichtdoor Gij Kieken » 30 Okt 2016, 22:37

Nico, sommige uitspraken prikkelen soms mijn zintuigen.
Nu heb terug een Vba vraag maar weet niet goed hoe het te omschrijven.
Zal het toch maar proberen.
Ik krijg Real Time data binnen 2-3 kanalen maakt niet uit.
Die data kan zowel 10 - 100 - of 1000 regels lang zijn (afhankelijk van de tijd dewelke de loging loopt).
Dus ik heb een keurige Sheet met Headers ter verduidelijking van wat binnen komt.
Nu kun je met Freeze Panes de Headers of Rows etc. vastzetten wat leuk is om met de muis te scrollen door gans de Sheet.
Op de gewone manier komt de data binnen ,vult je blad b.v. 25 regels en verdwijnt uit het gezichtsveld.
Als je nu met de muis mee scrold kun je telkenmale de meest recente data meevolgen.

Mijn vraag is :
Hoe freeze ik b.v. tot Row 10 (dit weet ik wel (deelvensters))
Maar hoe laat ik dan de daarop volgende Data steeds zichtbaar houden in b.V. regel 11 (maakt niet uit).
Op deze manier zie je steeds de laatst binnenkomende data voor b.v. 5 regels.

Geen Text box of zo he waar de data geUpdate wordt.

Ik weet eigenlijk niet hoe iets dergelijks heet om op te zoeken op het net?

Advertisement

Gebruikers-avatar
Berichten: 631
Geregistreerd: 15 Nov 2015, 11:54

Re: Excel Freeze Headers

Berichtdoor Gij Kieken » 01 Nov 2016, 12:41

Opgelost, heb test code geschreven.
Nu nog verwerken in de bestaande code.
vb code
Private Sub Worksheet_Activate()
Call WriteHeader
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call auto_open
End Sub


Sub WriteHeader()
' Write Header
Range("E1").Select
ActiveCell.FormulaR1C1 = "Hier start de Header"
Selection.Font.Bold = True
Selection.Font.Italic = True
With Selection.Font
.Name = "Comic Sans MS"
.Size = 14
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
With Selection.Font
.Color = -16711681
End With
Range("E1:H1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.MergeCells = True
End With
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
End With
'Freeze Headers
Rows("5:5").Select
ActiveWindow.FreezePanes = True

Range("A1").Select

End Sub


Sub auto_open()

On Error Resume Next 'Error handler for the first Freezed Panes

ActiveWindow.ScrollRow = ActiveCell.Row - 1
ActiveWindow.ScrollRow = ActiveCell.Row - 2
ActiveWindow.ScrollRow = ActiveCell.Row - 3
ActiveWindow.ScrollRow = ActiveCell.Row - 4

End Sub

Op deze manier is de meest recente data altijd zichtbaar in je actieve werkblad.

Terug naar Overige Software

Wie is er online?

Gebruikers in dit forum: Geen geregistreerde gebruikers en 7 gasten