Wie kan mij verder helepen?
In een programma van mij werkt een macro die gegevens opslaat in een werkblad, dit doet hij adhv een nummer die opgegeven wordt in cel d7. Dit nummer is het regelnummer in een werkblad. Nu moet ik dit nummer elke keer dit nummer handmatig verhogen, is er een mogelijkheid om dit automatisch te laten gebeuren bij het oplaan van mijn gegevens?
Wino Sub overzetten()

' overzetten Macro
' De macro is gemaakt op 9-12-03 door W.Noordhoek.

' OBJECTS
Dim counter
Dim regelnr
Dim werkblad
Dim regelaftrek

' Object values
counter = 1
regelnr = 1

'Werkblad selectie
If Range("opgavekosten!d7") < 2739 Then
    werkblad = "1-1000"

End If
       
'Regel aftrek
If Range("opgavekosten!d7") < 2739 Then
    regelaftrek = 0

End If
    Do
   
'Loop
    regelnr = counter + 5 - regelaftrek
   
    If Range("opgavekosten! d7") = counter Then
   
    Range("A105:j105").Select
    Selection.Copy
    Sheets(werkblad).Select
    Range("B" & regelnr).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("opgavekosten").Select
    Application.CutCopyMode = False
    Range("d7").Select
    End If
    counter = counter + 1
         
    Loop Until counter = 2738

    Range("E9").Select
    Selection.ClearContents
    Range("e11").Select
    Selection.ClearContents
    Range("E13").Select
    Selection.ClearContents
    Range("G13:J13").Select
    Selection.ClearContents
    Range("E15:G15").Select
    Selection.ClearContents
    Range("L11").Select
    Selection.ClearContents
    Range("D7").Select
End Sub

Om een code automatisch te laten starten moet je een event-macro gebruiken. De event-macro die gestart wordt bij het opslaan van een document hoort in ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)
  Sheets("opgavekosten").Range("D7") = _
    Sheets("opgavekosten").Range("D7") + 1
End Sub