• 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.

leegmaken maken regels maar met behoud van de formules

Status
Niet open voor verdere reacties.

Ropw

Gebruiker
Lid geworden
12 apr 2017
Berichten
192
Code:
With ActiveCell
    .EntireRow.Copy
    .Offset(1).EntireRow.Insert
    Rows(.Row + 1).ClearContents
  End With

In de macro wordt een nieuwe regel ingevoegd met de opmaak van de bovenstaande regel en gooit dan de celinhoud leeg.
Jammer genoeg gooit hij ook de formules uit de regel die in cellen E t/m K staan en in cellen BT t/m BW.
Kan de ClearContents aangepast worden dat de formules blijven staan?
bij voorbaat mijn dankBekijk bijlage TEST EST.xlsm
 
Laatst bewerkt:
Is een google opdracht. ;)

Code:
Dim rConstants As Range

With ActiveCell
    .EntireRow.Copy
    .Offset(1).EntireRow.Insert
    rConstants = Rows(.Row + 1).SpecialCells(xlCellTypeConstants)
    rConstants.ClearContents
  End With

Evt. een "On error Resume Next" invoegen, want je krijgt een foutmelding als Rows(.Row+1) géén constanten bevat...
Uiteraard eerst testen op een kopie van je Excel bestand.

Bron: deze
Google zoekopdracht: delete rows with preservation of formulas vba

Tijs.
 
Laatst bewerkt:
Dank voor je reactie Tijs,
jammer het werkt nog niet. Macro blijft hangen in de regel met .offset(1) en als ik "On error Resume Next" in het begin na de DIM plaats, gaat hij hangen bij de volgende regel (rconstants) ook de bron geraadpleegd, maar wordt niet wijzer.
Verder kopieert hij alle gegevens uit de vorige regel
 
Laatst bewerkt:
En zo?
Code:
.offset(1).entirerow.specialcells(2).clearcontents
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan