• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Teruggaan naar laatst gebruikte werkblad

  • Onderwerp starter Onderwerp starter boome
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

boome

Gebruiker
Lid geworden
11 mei 2009
Berichten
43
Ik heb een eevoudige code die een geselecteerde reeks data op een tabblad (manueel) kopieert en in een afzonderlijk tabblad plakt.

Nu zou ik de code willen uitbreiden met de mogelijkheid om automatisch terug te gaan naar de het tabblad waarde de data gekopieerd werd.

BV op blad 20 heb ik een reeks gegevens geslecteerd en gekopieerd naar het blad controle
Nu moet ik manueel teruggaan naar blad 20 om dan naar blad 21 te gaan om daar de macro opnieuw uit te voeren.
Het zou dus handig zijn dat de macro na het kopieren van de data teruggaat naar het blad 20 in dit geval zodat ik sneller naar blad 21 kan.

Momenteel gebruik ik volgende code voor het kopiëren:

Code:
Worksheets("overzcht categorie").Activate
    [A65536].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
 
Miscchien makkelijker als je het ander blad niet activeerd?

Code:
Worksheets("overzcht categorie").[A65536].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

Niels
 
Simpele oplossing, dat ik daar zelf niet opgekomen ben.
Ik was het veel te ver aan het zoeken.

Thx
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan