Graag had ik in VBA een code vor het automatisch invoegen van een rij. Telkens je in een bepaalde rij (voorbeeld rij 2) gegevens invoert en daarna op ENTER duwt dan wil ik een nieuwe rij daarboven hebben. De bedoeling is om op die manier de laatste record bovenaan te vinden. Bovendien had ik graag gehad dat eveneens de celopmaak bewaard blijft, want in dezelfde rij kunnen zowel datum, tekst of nummers of percentages staan alsook verschil in lettertype en kleur.
Ingesloten een voorbeeldje.
Veel succes, dit is voor experts maar die zijn zeker aanwezig op oplossing.be
Alvast bedankt,
trainerken

Dit heb ik gevonden voor een datum in kolom B in te voegen na enter, misschien valt het aan te passen?

Zet in kolom A1 een 1,  A2 een 2 enz
Typ de datum in B1 (of druk op Ctrl + ; ) en zie wat er gebeurd?

Zet dit achter je blad

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If Not IsDate(Target.Value) Then Exit Sub
    If Target.Value <> "" Then
        Rows(Target.Row + 1).EntireRow.Insert
    End If
End Sub

Pierre