Roughneck
Gebruiker
- Lid geworden
- 29 mei 2007
- Berichten
- 83
Cobbe (mega Senior) kwam met deze code op de proppen. Dit werkt goed, maar ik wil het verwerken in een inputbox, waarin men het aantal regels opgeeft dat men nodig denkt te hebben in het werkblad, in het echt kunnen dat er momenteel tot plusminus 200 worden. De opmaak van de cellen (let wel: de opmaak is beschermd, de inhoud niet) moet behouden blijven.
Vlak voor het opslaan van het werkblad, worden de eventuele overgebleven lege regels verwijderd. Dit is al voor elkaar. Ook dankzij Cobbe, en een beetje gezond verstand.
Het bestandje:
Code:
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Rows(ActiveCell.Row).EntireRow.Insert Shift:=xlShiftDown
ActiveSheet.Protect
End Sub
Vlak voor het opslaan van het werkblad, worden de eventuele overgebleven lege regels verwijderd. Dit is al voor elkaar. Ook dankzij Cobbe, en een beetje gezond verstand.
Het bestandje: