Opgelost macro regel toevoegen

[henrie008]

Ik heb een bestand waar ik een knop heb aangemaakt om een regel toe te voegen.
Als je op de laatste regel gaat staan waar een tekst staat (rij 10) en je klikt de knop aan "rij invoegen"
Is het de bedoeling dat er een rij wordt toegevoegd en bovengenoemde regel kopieerd
Maar de formule in kolom 10 moet dan meegaan (in dit geval moet er komen te staan "=ALS(G11="x";"keuze";"")"
Wie kan mij hierin helpen?

 

[Mde]

Je zou er ook een tabel van kunnen maken en dan neemt die zelf de formule mee als je er een regel bij maakt

 

[henrie008]

Het is wel de bedoeling dat ik de opmaak (dus geen tabel) behoud.
Dit is de macro van de knop, waarvan de in rood aangegeven, het probleem geeft

Sub RijToevoegen()
r = ActiveCell.Row
Rows(r).Copy
Rows(r + 1).Insert Shift:=xlDown
Rows(r + 1).ClearContents
Cells(r + 1, 3).Formula = Cells(r, 3).Formula
Cells(r + 1, 8).Formula = Cells(r, 8).Formula
Cells(r + 1, 19) = Cells(r, 19)
Cells(r + 1, 21) = Cells(r, 21)
End Sub

 

[Mde]

Als je een copy maakt van de rij en die weer plakt klopt de formule toch.
Jij plakt de rij en dan maak je hem leeg en zet er dan weer de formule in die er al in stond.

 

[OctaFish]

Het is wel de bedoeling dat ik de opmaak (dus geen tabel) behoud.

En dat is dus precies wat er, naast een kopie van de formules, óók juist wél gebeurt in een tabel…

 

[emields]

Sommigen willen het niet leren, maar soit.
Is het zoiets wat je zoekt?

 

[henrie008]

Het is de bedoeling dat bovenstaande regel wordt gekopieerd (met alle opmaken) de regel moet leeg zijn m.u.v. kolom 3, 8, 19, 21
waarbij de formule in kolom 8 dus eigenlijk + 1 moet zijn

 

[emields]

Rare uitleg, kolom 19 en 21 bevindt zich geen formule

 

[henrie008]

in kolom 19 en 21 staat een streepje, dit is belangrijk voor verdere verwijzingen en moet dus wel worden mee gekopieerd

 

[emields]

Dan stel je er toch een streepje in.

 

[HSV]

Sub RijToevoegen()
r = ActiveCell.Row
 Rows(r).Insert xlDown, Cells(r, 1).Resize(, 24).Copy
 Union(Cells(r + 1, 1).Resize(, 2), Cells(r + 1, 4).Resize(, 3), Cells(r + 1, 9).Resize(, 10), Cells(r + 1, 20), Cells(r + 1, 22).Resize(, 3)).ClearContents
Application.CutCopyMode = 0
End Sub

 

[henrie008]

Dit is wat ik bedoel, bedankt allemaal