automatisch berekenen voor 1 sheet uitzettem

[bijkerk233]

hallo allemaal,

Wie kan mij helpen.
ik ben bezig met een excel bestandje voor een 4x4 toernooi, waarbij de teams elke wedstrijd anders zijn.

nu heb ik het voor elkaar gekregen dat de teams random gegenereerd woorden DMV een formule.

nu is mijn probleem dat als je iets veranderd in de werkmap hij de teams doorelkaar blijft gooien. dus dit gebeurd bijv. bij het invullen van een uitslag van een wedstrijd.

Nu wil ik voor elkaar krijgen dat de sheet waar de teams door elkaar worden gegooit niet automatisch herberekend word maar de rest van de sheets in de werkmap wel.

Of te wel in 1 sheet de automatische berekening stop zetten maar in de rest niet.

wie kan mij helpen?

Alvast bedankt

Kevin.

 

[Warme bakkertje]

Private Sub Workbook_Open()
  Sheets("[COLOR="#FF0000"]zet hier de naam v/h blad dat niet berekend mag worden[/COLOR]").EnableCalculation = False
End Sub

 

[bijkerk233]

heey,

bedankt hij werkt uitstekend.

1 vraagje nog is er ook nog een manier dat hij op comando kan worden uitgezet zodat het wel berekend wordt als ik het wil?

Gr kevin

 

[popipipo]

F9 handmatige berekening, werkt dat misschien?

 

[HSV]

F9 werkt dan ook niet meer Willem.
Met een togglebutton is dit wel op te lossen.

 

[Warme bakkertje]

't Zal het late uur wel geweest zijn, maar zo is ie duidelijker (denk ik)

Private Sub ToggleButton1_Click()
 With Sheets("Blad1")
    .EnableCalculation = Not .EnableCalculation
 With ToggleButton1
   If ToggleButton1 = True Then
     .Caption = "Berekenen moet aan"
  Else
     .Caption = "Berekenen moet uit"
       End If
     End With
   End With
End Sub

 

[popipipo]

F9 werkt dan ook niet meer Willem.

Was een gokje
Helaas verkeerd gegokt

 

[HSV]

't Zal het late uur wel geweest zijn, maar zo is ie duidelijker (denk ik)

Inderdaad Rudi. :d

Was een gokje
Helaas verkeerd gegokt

Dat vermoeden had ik al Willem (Mijn reactie naar jou was niet ***lig bedoeld hoor, maar als info.... dat je het even weet :d).
Ik had dezelfde oplossing als Rudi, maar wilde het niet plaatsen opdat ik vernam dat F9 niet meer werkte, en er een wedervraag zou komen waar ik op dat moment geen antwoord voor had.
Twee minuten later post Rudi hetzelfde antwoord.

 

[Wigi]

't Zal het late uur wel geweest zijn, maar zo is ie duidelijker (denk ik)

Private Sub ToggleButton1_Click()
 With Sheets("Blad1")
    .EnableCalculation = Not .EnableCalculation
 With ToggleButton1
   If ToggleButton1 = True Then
     .Caption = "Berekenen moet aan"
  Else
     .Caption = "Berekenen moet uit"
       End If
     End With
   End With
End Sub

De code wat opgekuist:

Private Sub ToggleButton1_Click()
    With Sheets("Blad1")
        .EnableCalculation = Not .EnableCalculation
    End With
    With ToggleButton1
        .Caption = IIf(.Value, "Berekenen moet aan", "Berekenen moet uit")
    End With
End Sub