mardi 7 avril 2015

Macro maken // GESELECTEERDE tabblad kopiëren naar een nieuwe map

Posted on 04:50 by Unknown
Hoi,



Heb veel tabbladen en op ieder tabblad zou ik graag twee macro's willen maken.



1: PDF_versie; dat dit GESELECTEERDE tabblad gekopieerd wordt naar een nieuw map.

2: doorverkocht; er worden nog wat cellen verwijderd en daarna moet het GESELECTEERDE tabblad naar een nieuwe map gekopieerd worden.



Onderstaand vinden jullie wat ik nu heb.



Nu dacht ik dat als ik twee macro's had gemaakt ik alle macroknoppen zo kon kopiëren naar de andere tabbladen. Alleen wordt nu steeds blad1 gekopieerd en niet het geselecteerde tabblad. Is dit makkelijk aan te passen? Ik heb de macro gemaakt door deze op te nemen, begrijp er niet veel van... :)



De naam van het tabblad gaat trouwens iedere keer wijzigen. Nu is het bijvoorbeeld (1) maar dit zal in een willekeurige naam veranderen.



Als iemand me kan helpen, BIJ VOORBAAT HEEL ERG BEDANKT!



================================



Sub Doorverkocht()

'

' Doorverkocht Macro

'



'

Sheets("(1)").Select

Sheets("(1)").Copy

Range("I1:L55").Select

Selection.Delete Shift:=xlToLeft

ActiveWindow.SmallScroll Down:=24

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Rows("58:58").Select

Selection.Delete Shift:=xlUp

ActiveWindow.SmallScroll Down:=-60

Range("A1").Select

End Sub

Sub PDF_versie()

'

' PDF_versie Macro

'



'

Sheets("(1)").Select

Sheets("(1)").Copy

ActiveWindow.SmallScroll Down:=-27

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Range("A1").Select

End Sub





Macro maken // GESELECTEERDE tabblad kopiëren naar een nieuwe map
Categories:

0 commentaires:

Enregistrer un commentaire

Inscription à : Publier les commentaires (Atom)