Meerdere macro's tegelijk

[HansVV]

Doe alle macro's(modules) weg en vervang door deze:

Sub Omzet()
 With ActiveSheet
  .Rows("40:40").Copy Sheets("DATAom").Range("A65535").End(xlUp).Offset(1, 0)
 End With
  Pipeline
End Sub
Sub Pipeline()
 With ActiveSheet
  .Rows("42:42").Copy Sheets("DATApl").Range("A65535").End(xlUp).Offset(1, 0)
 End With
End Sub

THNX!!!
Kun je m ook nog zo maken dat hij als laatst de rijen 40 en 42 leeggooit?

 

[Cobbe]

Ja, vervang Copy door Cut.

 

[snb]

En haal svp die overbodige quotes weg !

Gebruik de knop 'reageer op bericht' om te antwoorden.