rij met data kopieren, rij invoegen, rij plakken met huidige datum

[jdrmer]

Dames en heren,
ik kom niet verder,
ik kan nu 1 rij kopieren, 1 rij invoegen belangrijk elke willekeurige regel moet dit kunnen.
Echter het lukt niet om de gekopieerde rij te plakken met de huidige datum en volgnummer.
zie file.
Wie kan/wil mij helpen?
mvg Jan

 

[edmoor]

Je inspringpunten kloppen niet en er zitten overbodig veel lege regels in.
Dat maakt het geheel onleesbaar en moeilijk te volgen.
GoTo moet je helemaal vermijden.

Probeer deze maar eens:

Sub kopier_regel_voeg_regel_in_plak()
    r = ActiveCell.Row
    
    Application.ScreenUpdating = False  'Scherm update uit
    Rows(r).EntireRow.Copy              'kopieer actieve regel
    Selection.Insert Shift:=xlDown      'Voeg de gekopieerde regel in als nieuwe regel
    Cells(r + 1, 1) = Date              'Zet de huidige datum in kolom A van de nieuwe regel
    
    With Application
        .CutCopyMode = False            'Copy mode uit zetten
        .ScreenUpdating = True          'Scherm update aan
    End With
End Sub

 

[jdrmer]

Bedankt dat werkt, ik had ook gevraagd voor een volgnr dat in de nieuwe regel wordt geplakt.
mvg Jan

 

[edmoor]

Als je kijkt hoe de datum nu in kolom A van de nieuwe regel wordt gezet zou je dat eenvoudig zelf moeten kunnen doen.

 

[VenA]

Wat is het volgnummer en waar moet deze komen te staan? kolom B? Je hebt geen ID per transactie in jouw voorbeeldje staan. Dus moet het een oplopend nummer worden?

Dan kan het zoiets worden.

Sub VenA()
    r = ActiveCell.Row
    Rows(r).EntireRow.Copy
    Rows(r).Offset(1).Insert shift:=xlDown
    Cells(r + 1, 1) = Date
    Cells(r + 1, 2) = Application.Max(Columns(2)) + 1
    Application.CutCopyMode = False
End Sub

Let ook even op de sub(totalen).

@edmoor,
Vreemd? Volgens de TS werkt jouw code maar ik krijg fout 1004 op deze regel (kopieer en plakgebied komen niet overeen oid) Versieverschil (XL-2007) of?

Selection.Insert Shift:=xlDown

 

[edmoor]

Raar inderdaad. Het werkt hier prima in Office 2013.
Ik moet wel zeggen dat ik vreemd vond dat dat wel werkte en heb het dus maar zo laten staan.

 

[VenA]

Het MS-verdienmodel zullen we maar zeggen.

 

[edmoor]

Het is de WWW. De Wondere Wereld van Windows

 

[jdrmer]

Bedankt dames en heren,
als ik de regel
Cells(r + 1, 2) = Application.Max(Columns(2)) + 1
gebruik krijg ik een foutmelding
Selection.Insert Shift:=xlDown in het geel
office 2010 64bit
met de huidige datum invoegen werkt goed,('Cells(r + 1, 2) = Date) echter niet met het volgnummer.
mvg Jan

 

[edmoor]

Dana gebruik je daarvoor toch wat VenA schreef in #5?

 

[jdrmer]

Hallo,
het werkt ik heb de eerste code eruit gehaald en de laatste van jullie erin geplakt en het werkt.
Daar had ik niet uitgekomen, bedankt voor jullie kennis en inbreng.
mvg Jan