Werkblad 2 openen op basis van een berekenende cel in blad 1

[Sytse1]

In blad1 staat een cel met daarin =AANTALLEN.ALS(C5:C150;"x")
Het getoonde resultaat is dan b.v. 12
Ik wil dan een opdrachtknop in blad1 maken die op basis van de getoonde cijfer b.v. 12 blad12 opent.
De 12 moet dan in een variabele komen omdat het de volgende keer wel het cijfer 20 kan zijn.
Er is een blad12 en er komt blad13 enz tot een blad 50.
Deze werkbladen worden dan gevuld met een overzicht dat in blad1 staat.
Vanaf Blad1 cel B5 tot B55. Dit overzicht is altijd verschillend (moet voldoen aan de letter x) vandaar de cel met AANTALLEN.ALS(C5:C150;"x")
Ik hoop dat deze uitleg voldoende is.
Wellicht weet iemand de oplossing.
b.v.d.
Sytse:d

 

[VenA]

Even een voorbeeldje doet wonderen.

 

[Sytse1]

Geen punt
Maar ook met de hoogste compressie blijft het bestand te groot.
Wellicht ls de VBA de oorzaak.
Vandaag nu 2 schermafbeeldingen.
Wellicht zegt het beeld meer dan 100 woorden.
De nu aanwezige knop sorteer de uitslag wordt vervangen door een knop die op basis van het aantal het overeenkomstige werkblad opent.
Dit werkblad neemt middels een verwijzing de namen over en vult wedstrijden in.
Ik hoop dat je hiermee uit de voeten kan.
b.v.d.
Sytse

 

[VenA]

een voorbeeldje hoeft niet je hele bestand te zijn.

Bedoel je dit?

 

[Sytse1]

Ik denk meer aan:
Private Sub CommandButton1_Click()
If blad1!F1 = 12 then
Sheets("blad12" & Range("S2")).Activate
End if
If blad1!F1 = 13 then
Sheets("blad13" & Range("S2")).Activate
End if
enz
Of met een Call
Sytse

 

[Cobbe]

Deze doet dat :

Private Sub CommandButton1_Click()
 Sheets("blad" & Range("F1")).Range("S2").Select
End Sub

Maar je moet ook weer terug denk ik zo...

 

[Sytse1]

Ik ben er denkelijk bijna
Maar dit werkt nog niet, De verwijzing naar de inhoud in cel s2 in het werkblad loting geeft een foutmelding.
Sytse
Private Sub knop3_Click()
If Sheets("loting" & Range("S2")) = 12 Then
Sheets("blad" & Range("F1")).Range("S2").Select
End If
End Sub

 

[Sytse1]

Na wat puzzelen ben ik er met het volgende uitgekomen.
Private Sub knop3_Click()
Dim N
Worksheets("Loting").Activate
Worksheets("Loting").Range("S2").Activate
N = Worksheets("Loting").Range("S2")
If N = 12 Then
Sheets("12 spelers ").Select
End If
End Sub

Bedankt voor het meedenken.

 

[VenA]

Waarom wil je het met IF Then oplossen?

Dus toch maar even een voorbeeldje plaatsen. Anders blijven we aan het gokken. (en dan geen plaatjes!) En graag de codetags gebruiken. Dat houdt het een beetje leesbaar.