• 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 met formules invoegen via knop

Status
Niet open voor verdere reacties.
C

chakar

Gebruiker
Lid geworden
9 mrt 2010
Berichten
32
Hey,

Vraag 1:
Ik heb een Excel document met op elke rij gegevens die ik moet invullen en andere met formules.
Op basis van een knop (macro) zou ik indien nodig een rij willen kunnen toevoegen inclusief de formules. M.a.w. als je een rij kopieert met op de rechter muisknop te drukken en deze nadien invoegt als gekopieerde cellen invoegen ook dan neemt hij de formules mee. Voor een niet zo ervaren gebruiker is dit misschien iets te complex dus graag een knop die het zelfde doet.

Vraag 2:
Bestaat er ook iets degelijks voor bv in dezelfde cel naar de volgende regel te gaan. Momenteel doe ik dit met Alt+Enter = Knop zou dus interessant zijn voor de niet ervaren gebruiker.

Wie kan helpen ?
 
Plaats een voorbeeld document.
 
Hierbij een voorbeeld

Bekijk bijlage voorbeeld.xlsm

ik wens dus met de knop regel invoegen een rij onder rij 16 in te voegen inclusief de formules die op deze rij staan
Met de knop volgende regel in zelfde cel is wanneer bv mijn beschrijving 2 of 3 lijnen moet bevatten

Alvast bedankt
 
Zo iets?

Code: 
Sub Macrorijinvoegen()
    Rows("16:16").Select
    Selection.Copy
    Rows("17:17").Select
    Selection.Insert Shift:=xlDown
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Begrijp eerlijk gezegd niet wat je met de tweede knop wil
 
Laatst bewerkt:
ik begrijp ook niet wat je met de tweede knop bedoelt. Dit is voor onder de eerste:

Code: 
Sub SjonR()
Rows(16).Copy
Rows(17).Insert
End Sub
 
ik krijg melding dat de macro waarschijnlijk niet beschikbaar is omdat de macros uitgeschakeld zijn ? Hoe schakel ik deze in ?
 
Zie:
Bestand > Opties > Vertrouwenscentrum > Instellingen voor het vertrouwenscentrum... > Macro-instellingen
 
Tot zover had ik het ook gevonden = alle macro's inschakelen (niet aanbevolen) staat aangevinkt doch werkt niet ?
Kan je mijn voorbeeld niet aanpassen en terug sturen ?
 
Sla je dat bestand wel eerst op?
Is deze toevallig geblokkeerd of Alleen lezen?
Clipboard01.jpg
 
ik heb het aan de praat gekregen doch volgende probleem

De rij invoegen werkt doch zou normaal nu de code moeten automatisch moeten aangepast worden naar de laatse rij

Code

Sub SjonR()
Rows(16).Copy
Rows(17).Insert
End Sub

nadien moet dit worden (telkens laatste rij

Sub SjonR()
Rows(17).Copy
Rows(18).Insert
End Sub
 
Maak er een tabel van (listobject).

Code: 
Sub hsv()
  Sheets("voorbeeld").ListObjects(1).ListRows.Add
End Sub
 
Laatst bewerkt:
Hoe doe ik dit en moet ik de code van Sjorn nog behouden en met deze nieuwe code aanvullen of hoe moet het ?
Graag een beetje meer uitleg

Nog een probleempje de naam van mijn bestand is niet altijd hetzelfde dus "voorbeeld" zou dan telkens moeten aangepast worden. Kan dit niet anders?
 
Laatst bewerkt:
Die van @SjonR kan in de prullenbak.

Edit: Je hebt je vraag aangepast; daarop het bestand aangepast.
 

Bijlagen

  • rij_invoegen_met_behoud_van_formules_met_listobject.xlsb
    25,1 KB · Weergaven: 39
Laatst bewerkt:
ok, maar wat met het probleem rond de bestandsnaam

mijn bestandnaam is niet altijd hetzelfde dus "voorbeeld" zou dan telkens moeten aangepast worden.
Kan dit niet anders?
 
Lees even mijn vorig bericht nog.
 
ok het voorbeeld is goed en dat werkt maar is dit dezelfe code dan daarnet ?

Ik zie deze code staan ?

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A13").Select
Selection.End(xlDown).Select
Range("A25:AN25").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("A25").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B24:B25").Select
Selection.AutoFill Destination:=Range("B24:B25")
Range("B24:B25").Select

End Sub
 
Nee,

De code staat in moduleblad Blad10(voorbeeld).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan