Opgelost bovenstaande regel deels kopieren na selecteren nieuwe regel

[Cartucci]

In een knipplanning voor een machinale bewerking selecteert het onderstaande script de eerstvolgende lege regel in het document:

Sub Selecteer_Lege_Regel()

Range("A" & Rows.Count).End(xlUp).Offset(1).Select

End Sub

Nu zou ik graag willen dat de cellen van kolom A, B, C en E van de regel boven de geselecteerde (nieuwe) regel, gekopieerd worden in de nieuwe regel, nadat de nieuwe regel is geselecteerd.

Kan iemand mij helpen met de toevoeging welke nodig is hiervoor?

 

[SjonR]

zoiets?

LR = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(LR, 1).Resize(, 3).Value = Cells(LR - 1, 1).Resize(, 3).Value
Cells(LR, 5) = ","

 

[Cartucci]

Dankjewel! Dit begint er sterk op te lijken maar ik ben er nog niet helemaal.

Ik heb het script iets aangepast omdat ik de spreadsheet intussen iets anders had vormgegeven.

Wat ik nu nog mis is dat in kolom D een formule staat. Die wordt nu als waarde overgenomen maar moet als formule overgenomen worden. De inhoud van D"x" is nl. afhankelijk van de invoer in E"x".

Is dit nog "in te bouwen"?

Sub Selecteer_Lege_Regel()

Range("A" & Rows.Count).End(xlUp).Offset(1).Select

LR = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(LR, 1).Resize(, 4).Value = Cells(LR - 1, 1).Resize(, 4).Value
Cells(LR, 6) = ","

End Sub

 

[emields]

doe het dan zo.

 

[Cartucci]

Dat werkt idd zoals ik voor ogen had. Hartelijk dank!