VBA 'huidig werkblad'

[HansVV]

Goedenmiddag,

Ik heb een excelbestand met meerdere bladen.
Ik heb de volgende macro:
Sub kopie()
[Wk1!B6:F6].Copy [DATApl!A65536].End(xlUp).Offset(1)
[Wk1!B4:F4].Copy [DATAom!A65536].End(xlUp).Offset(1)
End Sub

Nu wil ik op blad Wk2 dat de macro uitgevoerd wordt op blad Wk2 en niet op Wk1...

Ik heb Wk1 al vervangen door ActiveSheet of dat soort termen maar heb de juiste nog niet gevonden.

Weet iemand hoe ik dit kan doen?

Alvast bedankt voor de reactie.

Gr. Hans

 

[Leotaxi]

Wk1! vervangen door Wk2!


mvg
Leo

 

[HansVV]

Ja maar ik heb een sheet met 52 weken...Bestand wordt met zoveel macro's niet echt sneller.
Is er geen code die ervoor zorgt dat de macro op het blad wordt uitgevoerd waar je op dat moment op staat (en de macro dus uitvoert)

 

[Cobbe]

Probeer zo eens:

Sub kopie()
With Activesheet
     .Range("B6:F6").Copy [DATApl!A65536].End(xlUp).Offset(1)
     .Range("B4:F4").Copy [DATAom!A65536].End(xlUp).Offset(1)
End with
 End Sub

 

[snb]

Sub M_snb()
   sheets("DATApl").cells(rows.count,1).end(xlup).offset(1).resize(,5)=Range("B6:F6").value
   sheets("DATAom").cells(rows.count,1).end(xlup).offset(1).resize(,5)=Range("B4:F4").value
End Sub

 

[HansVV]

Probeer zo eens:

Sub kopie()
With Activesheet
     .Range("B6:F6").Copy [DATApl!A65536].End(xlUp).Offset(1)
     .Range("B4:F4").Copy [DATAom!A65536].End(xlUp).Offset(1)
End with
 End Sub

Hoi Cobbe,

Deze komt inderdaad een aardig eind in de richting, bedankt!
Alleen springt hij naar het uitvoeren van de macro weer terug naar het eerste blad, en niet naar het blad waar ik op dat moment op bezig ben. Enig idee?

Gr. Hans