• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rij invoegen inclusief formules

Status
Niet open voor verdere reacties.
J

Jos vogelaar

Gebruiker
Lid geworden
19 mrt 2009
Berichten
18
Ik wil in een simpel, maar beveiligd excelblad een mogelijkheid inbouwen om een regel toe te voegen, met automatisch de formules die in de regel eronder ook staan.

In het bijgevoegde bestand gaat het daarbij om de formules in kolommen F; J; N; R; T; V.
Als ik nu een rij tussen bijv. 10 en 11 invoeg, worden niet automatisch de formules meegecopieerd.

Is hier een mogelijkheid voor?
*ik ben geen VBA specialist...

Jos
 

Bijlagen

Jos vogelaar,

Zit er naar te kijken, zie de macro wel staan, maar hoe krijg ik deze in mijn blad?
Klik om te vergroten...
Ik denk dat dit in een Module staat, met op het blad een knop die de macro activeert.
Je komt in VBA door Alt+F11 te gebruiken.
Als je het bestandje van trucker10 download kun je het zien.
De code vansnb is korter en die kun je dan gebruiken.
 
Hoornvan zei:
Ik denk dat dit in een Module staat, met op het blad een knop die de macro activeert.
Je komt in VBA door Alt+F11 te gebruiken.
Als je het bestandje van trucker10 download kun je het zien.
De code vansnb is korter en die kun je dan gebruiken.
Klik om te vergroten...

Ga er even mee stoeien.. kijken of het me lukt..
 
Jos vogelaar,

De formule voor F10 heb ik met de macrorecorder opgenomen.
Kijk in het bestandje voor de uitleg.
 

Bijlagen

Waarom niet simpel een
Code: 
Rows("11:11").Insert Shift:=xlDown
of ietjes uitbreiden naar een rij die je kan kiezen
Code: 
Sub invoegen_rij()
    rij = ActiveCell.Row: If rij < 5 Then Exit Sub
    Range("B" & rij).Entirerow.Insert
    
   
End Sub
 
trucker10,

Mooie code.
Het is ook de bedoeling dat de formules van de kolommen F; J; N; R; T; V.
wordt mee genomen.
Dat doet de macro nu niet.
 
Of deze

Code: 
Sub tst()
  Rows(ActiveCell.Row).Insert
    For j = 1 To 6
        Cells(ActiveCell.Row - 1, Choose(j, 6, 10, 14, 18, 20, 22)).Resize(2).FillDown
    Next
End Sub

Met vr gr


Jack
 
Jos vogelaar,

Hier is je bestandje met de code van Jack Nows.
 

Bijlagen

Wim;) probeer deze
Code: 
Sub invoegen_rij()
    rij = ActiveCell.Row: If rij < 5 Then Exit Sub
    Range("B" & rij).Insert Shift:=xlDown
    
   
End Sub
 
Code: 
Sub tst()
    Rows(12).Insert
    Rows(11).Copy Rows(12)
End Sub
 
trucker10,

Code: 
rij = ActiveCell.Row: If rij < 5 Then Exit Sub
  Range("B" & rij).[COLOR="Red"]EntireRow.[/COLOR]Insert Shift:=xlDown
Het rode was je vergeten.
Hij voegt wel een regel in maar de formules vergeet hij te doen.

Met de macro van Jack Nows gaat het goed.
 
Jos vogelaar,

Je moet nu alleen op een regel dubbel klikken en er wordt een regel ingevoegd.
 

Bijlagen

Laatst bewerkt:
Hoornvan zei:
trucker10,

Code: 
rij = ActiveCell.Row: If rij < 5 Then Exit Sub
  Range("B" & rij).[COLOR="Red"]EntireRow.[/COLOR]Insert Shift:=xlDown
Het rode was je vergeten.
Hij voegt wel een regel in maar de formules vergeet hij te doen.

Met de macro van Jack Nows gaat het goed.
Klik om te vergroten...

Wim , als je EntireRow weglaat dan gaat hij de formules toch meepakken , ik kan niet testen daar ik nog andere dingen te doen heb .
 
trucker10,

Bij mij deed hij alleen een regel bij kolom B de rest liet hij zoals het was.
Of ik heb wat verkeerd gedaan. (kan dus ook)
 
Hoornvan zei:
trucker10,

Bij mij deed hij alleen een regel bij kolom B de rest liet hij zoals het was.
Of ik heb wat verkeerd gedaan. (kan dus ook)
Klik om te vergroten...

Nee Wim ik zit verkeerd :o als je der dit van maakt
Code: 
  Range("B" & rij , "Z" & rij).Insert Shift:=xlDown
maar de formule gaat dan ook niet mee :confused:
 
Jos vogelaar zei:
Ga er even mee stoeien.. kijken of het me lukt..
Klik om te vergroten...

Deels geholpen, maar nog niet helemaal.

Ik kan nu wel met de macro een regel toevoegen (mijn eerste VBA ervaring), maar nog niet op een willekeurige plaats. Met Rows (6) . insert gebruik komt natuurlijk de nieuwe regel altijd op regel 6. is er een aanpassing die mogelijk maakt dat de nieuwe regel altijd wordt geplaatst op de plek die ik selecteer??

En kan ik een button maken die in het Excelblad staat die de macro aanstuurt? Hoe dat te doen?
 
Jos , ik ben net gestopt op een parking test deze , gelijk in welke cel je staat je kan een regel invoegen en de formules gaan mee , indien er in de rij ( cel ) waar je staat formules instaan .
 

Bijlagen

Laatst bewerkt:
trucker10 zei:
Jos , ik ben net gestopt op een parking test deze , gelijk in welke cel je staat je kan een regel invoegen en de formules gaan mee , indien er in de rij ( cel ) waar je staat formules instaan .
Klik om te vergroten...

Super Daniel! Bedankt. Kan ik nu het excel blad ook beveiligen? Of werkt de Macro dan niet meer?
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan