Regel automatisch naar beneden verplaatsen.

[Glenn257]

Hallo iedereen,
Graag zou ik in excel een regel automatisch naar beneden willen verplaatsen.

In mijn voorbeel heb ik export en import, bij deze heb ik een aantal opties de ene keer 4 de andere keer 10.
Wat ik wil is dat de afstand tussen export en import altijd 1 regel is. In mijn voorbeeld is dit terug te vinden.
Bekijk bijlage Voorbeeld.xls

Kunnen jullie mij hiermee helpen?

Alvast bedankt.

Groeten, Glenn

 

[Cobbe]

Zou dit voldoen, invoegen en verwijderen lege rij.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 Set c = Cells.Find("Imp:")
  If Not c Is Nothing Then
   If c.Offset(-1, 1) <> "" Then Rows(c.Row).Insert shift:=xlDown
   If c.Offset(-2, 1) = "" Then Rows(c.Row - 1).Delete shift:=xlUp
  End If
Application.EnableEvents = True
End Sub

 

[Glenn257]

Bedankt Cobbe

Ik heb het liefst wanneer ik een nieuwe cel aanklik de regel imp. ook 1 naar beneden verschuift. Als ik jouw file open gebeurd er bij mij niet zoveel

 

[Cobbe]

Als je in mijn bestand onder Benzine iets invult schuift IMP: automatisch 1 regel naar beneden.
Als je daarna bv. Benzine weghaalt schuift IMP: weer 1 regel op.

Dat was toch de vraag of?

 

[Glenn257]

Nee dat doet ie niet..

 

[Cobbe]

Ik heb het over de rode Benzine, hé.

 

[Glenn257]

Ook bij rode benzine werkt het niet

 

[Cobbe]

Accepteert uw Excel wel macro's?

 

[Glenn257]

Cobbe,

De beveiliging stond aan...daardoor pakte hij de macro niet..

 

[Cobbe]

Daarmee heb je nog niet gezegd of het naar behoren werkt.

 

[Glenn257]

Nu wel , het werkt! Bedankt!

 

[Glenn257]

Hallo Cobbe,

Wanneer ik geen cel maar een hele regel wil invoeren, hoe kan ik dat dan zo instellen?

Groeten, Glenn

 

[Cobbe]

Hij voegt toch een hele regel toe als je een item bijvoegt.
En hij haalt een hele regel weg als je een item schrapt.

 

[Glenn257]

Ja het klopt idd, was denk al een beetje in de weekend-modus..

Ik heb nog een vraagje. Als ik in de eerste regel een formule ingeef wil ik graag dat dez ook automatisch wordt meegenomen in de volgende regel, aar moet dit aangepast worden in de VBA. Ik wil ook, wanneer mogelijk een totaalsom maken ik heb weer een voorbeeld bijgevoegdBekijk bijlage Voorbeeld SOM + formule.xls

Alvast bedankt

 

[Cobbe]

Iets andere aanpak:
Bij selectie van een cel in kolom A kan je via de buttons een rij toevoegen of verwijderen.

 

[Glenn257]

Dit werkt fantastisch!

Kan ik de buttons ook mee laten bewegens als ik naar onder scroll?

Gr, Glenn

 

[Cobbe]

Ik heb de buttons boven in het kader gezet en nog een paar beveiligingen ingebouwd zodat je niet de verkeerde regels kan verwijderen.

 

[Glenn257]

Ik kan die buttons niet vinden...is dit wel het goede bestand?

 

[Cobbe]

Nu moe je niet ongeduldig worden hé.

Ik heb de buttons dan nu maar boven in je werkblad gezet,
door de titelblokkering blijven ze steeds in beeld,
en ze worden niet mee geprint.

 

[Glenn257]

Sorry.

Het werkt super. Dankjewel!