Regneark med scroll-lignende funktion

Måske lidt idiotisk og fuldstændig misforstået, men kan du ikke bare flytte dit sumområde op under header området, lave en freeze pane i row 16, så er du også helt fri for at brugeren skal tænke på at indsætte rækker?
Du behøver ikke svare om jeg fuldstændig har misforstået problematiken.
Hilsen Leif

Layoutmæssigt er det ikke så pænt, men princippielt kan det sagtens lade sig gøre, men bruger skal under alle omstændigheder tilføje rækker fra tid til anden ... det var lige så meget for at spare tid for brugeren, som ikke nødvendigvis har behov for at se gamle/historiske indtastninger ... men historikken summeres i den nederste view

et eks. på hvordan det kan gøres:

http://pmexcelent.dk/Scroll.xls

excelent > hvad kan man sige ... du er genial

well tak :-)
m.h.t. celle D203
Denne celle anvendes af makro, og er linket til skydeknappen
Du kan evt. farve den hvid, eller skjule den under skydeknappen
- så skal du bare huske at ændre til ny celle i makro.

m.h.t. celle D203 .... den kan vel med fordel placeres i headerområdet .. der hvor den er nu, er giver den problemer, når jeg indsætter nye rækker ???

ja det skal være uden for 11-100 for ellers påvirkes den af
makro, som viser og skjuler rækker i dette område.
(højreklik på skydeknap, vælg "formater kontrolelement",
endsæt ny celleadresse i ruden)
husk ændre "r1 = [D103]" til ny celle

D203 = D103

Det er jeg med på :-)
Endnu engang tak for hjælpen ... nu har du jo næsten lavet hele modellen for mig mangler lige en trappetrin - rabatmodel ...

ok velbekom

excelent > jeg har lidt udfordringer med koden idet jeg af hensyn til regneregler m.v. ønsker at beskytte dele af regnearket :

Når jeg benytter rullepanelet, fungerer ActiveSheet.Unprotect ikke, hvorimod ActiveSheet.Protect fungerer ????

Nogen gode ideer ???

Sub Rul()

ActiveSheet.Unprotect

Application.ScreenUpdating = False
   
r1 = [L11]: r2 = r1 + 14
    Range("A11:A105").Select
        Selection.EntireRow.Hidden = True

Range("A" & r1 & ":A" & r2).Select
    Selection.EntireRow.Hidden = False
        Cells(r2, 1).Select

Application.ScreenUpdating = True

ActiveSheet.Protect

End Sub

Nej man kan ikke rigtigt styre Protect/Unprotect fra Rul()
men prøv leg lidt med denne som forhindrer at markør går
længere ned end række 100 (ret 100 til aktuel sidste række)
(indsæt i arkets kodemodul)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row > 100 Then Cells(11, 1).End(xlDown).Select
End Sub

Har kikket lidt på sagen og fået det til at virke med Protect
Så hvis du ikke helt har opgivet den løsning, kan du gøre sådan:
Start med at vise alle rækker 11-105 og marker område A11:IV105, fjern flueben i låst-box under celleformatering.
Det samme ved din linked celle - L11
De 2 næstnederste linier er nye/rettet

Sub Rul()

ActiveSheet.Unprotect

Application.ScreenUpdating = False
   
r1 = [L11]: r2 = r1 + 14
    Range("A11:A105").Select
        Selection.EntireRow.Hidden = True

Range("A" & r1 & ":A" & r2).Select
    Selection.EntireRow.Hidden = False
        Cells(r2, 1).Select

Application.ScreenUpdating = True

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

exelent > det var faktisk ikke nødvendigt at rette koden overhovedet :-)

Problemet var/er at celle L11 var beskyttet ... dooh ... hvor blind kan man blive ?

yep, og område A11:IV103 kan også være låst uden problemer
hvis nødvendigt ser det ud til :-)

Faktisk kan du godt have hele eller dele af det aktuelle celleområde beskyttet og fortsat benytte scroll-funktionen alligevel :-) ... jeg har nemlig også regneregler som skal beskyttes mod brugerredigering i dette selvsamme område :-)

I bund og grund er det efterhånden en kanon god løsning, som absolut vil vække opsigt når den først bliver frigivet :-)