Opgelost Excel bestand verspringt van regels met Macro's

[Quinnie]

Goedemiddag allen,

Ik heb een Excel bestand met een aantal formules en Macro's.
In mijn bestand, wanneer ik cellen B46 t/m B55 heb ingevuld worden automatisch de regels 59 - 111 zichtbaar gemaakt.
Wanneer ik hierbij dan weer de Cellen B98 t/m B107 invul, worden weer de volgende regels automatisch zichtbaar gemaakt en zo maar door.
Echter bij het invullen van cel B98, verspringt het beeld steeds naar beneden. zo ook bij de overige cellen die ik invul in de regels 59 t/m 530.

Ik zou graag willen dat het beeld blijft staan op de plaats van de geselecteerde cel.
Wie kan mij hierbij helpen?

Het bestand heb ik toegevoegd.

Alvast bedankt voor jullie feedback

 

[HSV]

Voeg dit eens toe boven de "End Sub".

Windows(1).ScrollRow = Target.Row - 5

 

[snb]

Maak gebruik van Excel:

- verwijder alle samengevoegde cellen
- maak gebruik van een dynamische tabel
- gebruik een userform.

 

[HSV]

En, in plaats van ...

If Application.WorksheetFunction.CountA([b98:b107]) = 10 Then
    Rows("112:163").EntireRow.Hidden = False
    Sheets("Specificatie").Rows("34:43").EntireRow.Hidden = False
End If

...verberg je de rijen ook weer indien B98:B107 niet geheel gevuld is met.

Rows("112:163").EntireRow.Hidden = Application.CountA([b98:b107]) < 10
    Sheets("Specificatie").Rows("34:43").EntireRow.Hidden = Application.CountA([b98:b107]) < 10

 

[Quinnie]

Bedankt toppers! Het lijkt goed te werken.

 

[HSV]

Je mag onderstaande ook nog verwijderen uit elke regel.

EntireRow.

 

[Quinnie]

Hi HSV,

ik zie overigens na de toepassing in je eerste bericht. wanneer ik iets invul in regel 1 -5 krijg ik de volgende foutmelding:

 

[HSV]

Probeer het zo eens.

Windows(1).ScrollRow = Application.Max(1, Target.Row - 5)

 

[Quinnie]

Die had ik nodig inderdaad bedankt weer!