Invoegen regel op meerdere werkbladen

[Genux]

Hey

Ik ben een rooster aan het maken.
Op het eerste werkblad hou ik de persoonsgegevens bij, de andere werkbladen zijn bedoeld voor de weken.
De namen worden op de andere werkbladen gekopieerd.
Door een regel in te voegen op het eerste werkblad, komt deze terug op de week werkbladen.
Het probleem dat hierbij is dat de gegevens (en evt. opmaak) die ik op de weekwerkbladen in heb gevuld, op dezelfde regel blijven staan en niet mee naar beneden gaan.

 

[Genux]

Nog even een klein voorbeeldje

 

[Genux]

nu wel goed

 

[gast0225]

Selecteer je dan vóór het invoegen wel eerst alle tabbladen onderin je scherm, m.a.w. maak je ze eerst "wit" voordat je op het eerste blad een rij invoegt?

 

[Genux]

Dit werkt inderdaad wel, maar als ik in de werkbladen formules gebruik, worden deze niet mee gekopieerd.

 

[gast0225]

Als jij op een enkel werkblad een rij invoegt, worden dan wel de formules meegenomen.........?

 

[Genux]

Dat wordt inderdaad niet gedaan.
Weet je misschien op welke manier dit wel mogelijk is?

 

[gast0225]

Nee, anders had ik dat in mijn 1e berichtje wel gepost.

 

[Wigi]

Staat dit aangevinkt?

Extra > Opties > Bewerken > Extend data range formats and formulas (heb geen Nederlandse Excelversie nu ter beschikking). Het is het eerste vinkje rechts.

Wigi

 

[Genux]

Ja die staat aangevinkt.

 

[Gert Bouwmeeste]

Regel tussenvoegen

Dat ik het even goed begrijp: je wilt een regel tussenvoegen, tussen Joris en Kees in je voorbeeld?

En dan wil je dat op alle andere tabbladen (waar keurig door je formule de naam wel een regel zakt, dat daar dan de oorspronkelijke waarde van Kees en de rest daaronder ook 1 regel zakt?

Dat zou met VBA moeten denk ik, iets als:

Sub RegelInvoegen()

    Sheets(Array("Namen", "Week 1", "Week 2")).Select
    Sheets("Namen").Activate
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
    Sheets("Week 1").Select
    Range("A4:V4").Select
    Selection.Copy
    Range("A5").Select
    Sheets(Array("Week 1", "Week 2")).Select
    Sheets("Week 1").Activate
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Namen").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Gert"

End Sub