Maco verwijzen naar het blad waar die is gestart

[Muiter]

Hoe kan ik onderstaande code verbouwen zodat de macro niet standaard naar blad 'offerte calculatie formulier' maar naar het blad waar vandaan de macro is gestart?

    Sheets("contactpersonen").Select
    Selection.AutoFilter Field:=7, Criteria1:=Sheets("offerte calculatie formulier").Range("AK1").Value, Operator:=xlAnd
    Columns("A:G").Select
    Selection.Copy
    Sheets("offerte calculatie formulier").Select
    Range("AN1").Select
    ActiveSheet.Paste
    Sheets("contactpersonen").Select
    Range("H714").Select
    Application.CutCopyMode = False
    Selection.AutoFilter Field:=7
    Sheets("offerte calculatie formulier").Select
    Range("AK2").Select

 

[snb]

Gebruik geen select of activate.

With Sheets("offerte calculatie formulier")
  Sheets("contactpersonen").AutoFilter 7, .[AK1]
  Sheets("contactpersonen").Columns("A:G").Copy  .[AN1]
  Sheets("contactpersonen").AutoFilter 7, .[AK2]
End with

 

[Muiter]

Gebruik geen select of activate.

With Sheets("offerte calculatie formulier")
  Sheets("contactpersonen").AutoFilter 7, .[AK1]
  Sheets("contactpersonen").Columns("A:G").Copy  .[AN1]
  Sheets("contactpersonen").AutoFilter 7, .[AK2]
End with

Klinkt llogisch, ik laat je weten hoe het afloopt.

 

[Muiter]

In het eerste deel van de formule blijft toch de naam van het blad staan, is dit aan te passen?

 

[Radjesh Klauke]

???? Welke formule? (Of bedoel je code?)
Kun je iets duidelijker zijn, want wat bedoel je met naam van het blad?
De code van snb verwijst alleen naar sheets("contactpersonen"). Naam van de sheet kun je zelf aanpassen door de naam van het blad in te typen die je op dat moment nodig hebt.

 

[Roncancio]

Verander Sheets("offerte calculatie formulier") in ActiveSheet

Met vriendelijke groet,


Roncancio

 

[Muiter]

Het gaat nog niet helemaal goed:
Van dit:

    Range("AA1").Select
    Selection.Copy
    Sheets("db_contactpersoon").Select
    Selection.AutoFilter Field:=7, Criteria1:=ActiveSheet.Range("AA1").Value, Operator:=xlAnd
    Range("A482:F732").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveSheet.Select
    Range("AC1").Select
    ActiveSheet.Paste
    Range("L13").Select

Heb ik dit gemaakt:

    With ActiveSheet
    Sheets("db_contactpersoon").AutoFilter 7, .[AA1]
    Sheets("db_contactpersoon").Columns("A:H").Copy .[AC1]
    Sheets("db_contactpersoon").AutoFilter 7, .[AA2]
    End With

Ik krijg nu de melding object vereist, iemand een idee?