Macro starten bij het openen van een tabblad.

[Basbrommer]

Hoe kan ik een macro laten starten als er een tabblad wordt geopend? De macro wijzigt gegevens op dit tabblad en nu moet er eerst een macro gestart worden om daarna de juiste gegevens te kunnen zien. Deze stap wil ik graag samenvoegen. Wie kan mij daarbij helpen? Nu maak ik alleen macro's met Sub / End Sub

Groeten Bas

 

[HSV]

Private Sub Worksheet_Activate()
...jouw code....
End Sub

 

[Basbrommer]

Het werkt! Dank je wel.

Groet Bas

 

[Basbrommer]

Hallo,

Ik heb toch nog een probleem gekregen. Ik krijg een fout melding bij regel 7 (Range("A10:A408").Select). Kan het kloppen dat dit alleen werkt binnen het tabblad? Zo, ja wat moet ik veranderen om te zorgen dat deze macro wel werkt?

Groet Bas

Sub KnopEtiketRooster1()
    Sheets("EtiketRooster").Select
    Range("AG15:AK1014").Select
    Selection.ClearContents
    Range("AG15").Select
    Sheets("Basis").Select
    ActiveWindow.FreezePanes = False
    Range("A10:A408").Select
    Selection.Copy
    Sheets("EtiketRooster").Select
    Range("AG15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AH15").Select
    Sheets("Basis").Select
    Range("E10:G408").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("EtiketRooster").Select
    Range("AH15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B4").Select
    Sheets("Basis").Select
    Application.Run "KnopBasis1"
    Sheets("EtiketRooster").Select
    Range("AG15:AJ414").Select
    Selection.Sort Key1:=Range("AJ15"), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("AK15").Select
    Sheets("Rooster").Select
    Range("W204:W1203").Select
    Selection.Copy
    Sheets("EtiketRooster").Select
    Range("AK15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AK15:AK1014").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("AK15"), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
    Range("B4:AD4").Select
    Sheets("Rooster").Select
    Range("B201").Select
    Application.Run "KnopRooster1"
    Sheets("EtiketRooster").Select
    Range("B4:AD4").Select
End Sub

 

[Haije]

Bas,

en wat is de foutmelding die je krijgt?

 

[Basbrommer]

Ik krijg de melding "Methode Select van klasse Range is mislukt"
Mijn excuses, ik had de verkeerde code mee gestuurd. hieronder zoals ik hem wil gebruiken.

Private Sub Worksheet_Activate()
    Range("AG15:AK1014").Select
    Selection.ClearContents
    Range("AG15").Select
    Sheets("Basis").Select
    ActiveWindow.FreezePanes = False
    [COLOR="red"]Range("A10:A408").Select[/COLOR]
    Selection.Copy
    Sheets("EtiketRooster").Select
    Range("AG15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AH15").Select
    Sheets("Basis").Select
    Range("E10:G408").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("EtiketRooster").Select
    Range("AH15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B4").Select
    Sheets("Basis").Select
    Application.Run "KnopBasis1"
    Sheets("EtiketRooster").Select
    Range("AG15:AJ414").Select
    Selection.Sort Key1:=Range("AJ15"), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("AK15").Select
    Sheets("Rooster").Select
    Range("W204:W1203").Select
    Selection.Copy
    Sheets("EtiketRooster").Select
    Range("AK15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AK15:AK1014").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("AK15"), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
    Range("B4:AD4").Select
    Sheets("Rooster").Select
    Range("B201").Select
    Application.Run "KnopRooster1"
    Sheets("EtiketRooster").Select
    Range("B4:AD4").Select
End Sub

 

[Haije]

Bas,

en waar staat die macro? In een normale module of achter het betreffende blad?

 

[Basbrommer]

Hoi Haije,

Hij staat nu achter het betreffende blad en daar komt deze foutmelding. Eerst had ik hem in een normale module en werkt hij goed (zie eerste code), maar het had als nadeel dat je dan op een knop moest drukken om hem te activeren. Wat ik graag wil is dat de macro meteen geactiveerd worden als je de betreffende blad opent.

Groet Bas

 

[HSV]

Gaat het met onderstaand stukje?

Boven de rode regel.

 [COLOR="red"]Sheets("Basis").Select[/COLOR]  
   With ActiveWindow
    .FreezePanes = False
    .Split = False
  End With 
[COLOR="red"]Range("A10:A408").Copy[/COLOR]

 

[Basbrommer]

Hallo,

Ik heb de code aangepast maar nu blijft hij in een soort loop zitten. Alleen door op esc te drukken stopt hij. Hij stopt dan met de regel daar boven (Range("AG15").Select). Heb ik iets fout gedaan?

Groet Bas

 

[Basbrommer]

Kan iemand mij hier nog mee helpen?

Groet Bas