Hoe kan ik deze makro laten werken in 3 van de 10 tabbladen

[Theknurt]

Hallo,

Ik heb deze makro in mijn bestand ingebouwd zitten en werkt nu op iedere tabblad.
Dit is eigenlijk niet de bedoeling en zou maar mogen werken in tabblad 1, tabblad 3 en tabblad 5.
Deze tabbladen hebben allemaal een eigen benaming....

Hoe kan ik dat in onderstaande routine verwerkt krijgen ?

In B2:ABH2 heb ik allemaal datum's staan van het jaar 2018 en 2019

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim myDate As Variant, rng As Range
Set rng = Range("B2:ABH2")
Set myDate = rng.Find(What:=Int(Date), LookIn:=xlFormulas)
Cells(myDate.Row, myDate.Column + 1).Select
Set rng = Nothing
End Sub

Graag verneem ik jullie oplossingen.

TheKnurt

 

[SjonR]

probeer dit eens: wel even de juiste tabbladen invullen!

Sub zoiets()
Dim sh As Worksheet

For Each sh In Sheets(Array("Blad1", "Blad3", "Blad5"))

'''jouw code''''


Next
End Sub

 

[Theknurt]

Hey SjonR,

Bedankt voor je snelle reactie..

heb het ingevoerd en krijg foutmelding 91"Objectvariable of blokvariable With is niet ingesteld"
En de foutmelding(=gele balk) geeft ie aan bij Cells(myDate.Row, myDate.Column + 1).Select

Ik heb uiteraard de officiële werkblad namen gebruikt

Private Sub Workbook_SheetActivate(ByVal sh As Object)
Dim myDate As Variant, rng As Range
Dim sht As Worksheet
    
    For Each sht In Sheets(Array("Blad1", "Blad3", "Blad5"))
        
        Set rng = Range("B2:ABH2")
        Set myDate = rng.Find(What:=Int(Date), LookIn:=xlFormulas)
        [B]Cells(myDate.Row, myDate.Column + 1).Select[/B]
        Set rng = Nothing
    
    Next

End Sub

Wat zou ik hier nog aan kunnen doen ?

 

[SjonR]

Probeer dit eens:

Sht.Cells(myDate.Row, myDate.Column + 1).Select

 

[Theknurt]

Hey SjonR,

Helaas, geeft ie op elke werkblad de foutmelding 1004.

Methode Select van klasse Range is mislukt....

Misschien nog een andere optie ?

 

[gast0660]

Volgens mij.
Wis je code in this workbook en plak deze code in Tabblad 1,3 en 5

Private Sub Worksheet_Activate()
Dim myDate As Variant, rng As Range
Set rng = Range("B2:ABH2")
Set myDate = rng.Find(What:=Int(Date), LookIn:=xlFormulas)
Cells(myDate.Row, myDate.Column + 1).Select
Set rng = Nothing
End Sub

 

[Theknurt]

gast0660,

waarom moeilijk doen als het zo ook makkelijk gaat.

Het werkt, thanks voor de assisentie....

Theknurt

 

[gast0660]

Mooi zo:thumb:
Suc6

 

[HSV]

Private Sub Worksheet_Activate()
Dim c as range
set c = Range("B2:ABH2").Find(Date, , , xlwhole)
if not c is nothing then application.goto c.offset(,1), true
End Sub

Of:

Private Sub Worksheet_Activate()
Dim c as range
set c = Range("B2:ABH2").Find(Date +1, , , xlwhole)
if not c is nothing then application.goto c, true
End Sub