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

nieuwe regel met behoud opmaak vorige regel, maar ...

  • Onderwerp starter Onderwerp starter Ropw
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Ropw

Gebruiker
Lid geworden
12 apr 2017
Berichten
192
Goedenavond,

Wie helpt mij verder?
nieuwe regel met behoud opmaak vorige regel, maar het mag niet in de eerste/bovenste 5 regels gebeuren, want daar staan knoppen en als je die regel dan weer weggooit, blijven
die knoppen bestaan.
Iets van with ActiveCell <> R1 t/m 5 ??. maar volgens mij mogen daar geen argumenten achter?!

Code:
Sub NieuweBoxregel()
'
' NieuweBoxregel Macro
' nieuwe regel met eigenschappen
'
' Sneltoets: Ctrl+Shift+N
'
Sheets("containers").Select
ActiveSheet.Unprotect
With ActiveCell
    .EntireRow.Copy
    .Offset(1).EntireRow.Insert
    Rows(.Row + 1).SpecialCells(2).ClearContents
  End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


End Sub
 
Laatst bewerkt:
Direct onder Sheets("containers").Select:
If ActiveCell.Row < 6 Then Exit Sub
 
Laatst bewerkt:
super bedankt. Ga ik weer verder sleutelen. groet
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan