Optellen van gekleurde cellen

[Wigi]

Stel ik maak een knop in de sheet om hem te laten herberekenen, welke code kan ik daar dan voor gebruiken?

Sheets("jouwbladnaam").Calculate

zou normaal moeten werken.

Wigi

 

[Demeter]

Probeer deze eens achter je blad BOA'S te plaatsen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheets("BOA'S").Calculate
End Sub

Bij iedere selectie verandering berekent hij nu je blad.

Alleen moet je je sheet naam even aanpassen. Het symbool ` (naast de 1-toets) pakt hij niet in VBA. Verander deze in ' (naast je enter toets).

Groet,
Ferenc

 

[Wigi]

Een Worksheet_SelectionChange event zou ik toch niet gebruiken. Beeld je eens in dat een redelijk complex blad herberekend wordt, telkens als je nog maar naar een andere cel gaat... Als je dus met de pijltjestoetsen van A1 naar A20 gaat heb je je blad 20 keer herberekend...

 

[Demeter]

Geheel gelijk Wigi.

Wilde eigenlijk alleen de methode aan het licht stellen voor als er niks complex bij gaat komnen . Maar ook deze functie krijg ik niet geheel juist aan de praat ene keer wodt er wel berekend andere keer niet, raar.

Afwachten watTom zijn bevindingen zullen zijn.


Groet,
Ferenc

 

[Tom30]

Hallo mesnen,

Het duurde even maar daar ben ik dan weer.
Bedankt voord de Tips.

De tip van Demeter is inderdaad goed gevonden, echter zal er zoals Wigi al zei veel met de pijltjes door het rooster worden genavigeerd, hetgeen inhoud dat hij de sheet bij elke druk op de toets gaat berekenen.

Ik dacht er zelf aan om gewoon een knop te maken die de sheet even berekend.
Alleen werkt dat niet met bovengenoemde code, helaas.

Ik heb een voorbeeld bijgevoegd. Stel ik verander de kleuren van de cellen en ik druk op de knop, dan zou hij het juiste aantal in A3 moeten zetten.

Maar voor alsnog werkt het niet..



grtz

 

[Wigi]

De code van de knop

Private Sub CommandButton1_Click()
Sheets("blad1").Calculate
End Sub

moet in blad 1 staan, en niet in een aparte module.

Wigi

 

[alberto10]

Tom30,
Ge moet uw code van Macro2 in de programmacode van Blad1 plaatsen en dan werkt het perfect.

Wigi ik had niet gezien dat ge al gereageerd had. Sorry.

 

[Tom30]

De code van de knop

Private Sub CommandButton1_Click()
Sheets("blad1").Calculate
End Sub

moet in blad 1 staan, en niet in een aparte module.

Wigi

Doe ik nu iets verkeerd dan? Als ik nu op de knop druk, zou er 3 moeten komen staan ipv 5, maar bij mij doet ie niks....

 

[Wigi]

Tom30,
Ge moet uw code van Macro2 in de programmacode van Blad1 plaatsen en dan werkt het perfect.

Wigi ik had niet gezien dat ge al gereageerd had. Sorry.

Zelfde oplossing... "great minds think alike" zeggen we dan maar...

 

[Wigi]

Vermoedelijk

Sheets("[B]B[/B]lad1").Calculate

 

[robdgr]

Sub tijd_vernieuwen()
'
' 

'
    Calculate
End Sub

Groet,

 

[Tom30]

Hallo Allemaal,

In ieder geval bedankt voor het meedenken, maar ik krijg het maar niet voor elkaar.

Ik heb de door jullie aangegeven code in de sheet gezet maar hij wil maar niet berekenen.
In bijgevoegd bestand zijn 3 cellen groe, terwijl de uitkomst-cel 5 aangeeft. Als ik nu op de knop druk waar jullie macro aan vast hangt, gebeurt er niks. Zet ik de cursor in de formulebalk op de uitkomst-cel en ik druk enter, verandert ie wel....... ^#$@$#@


Zien jullie waar het probleem zit?

 

[Wigi]

Zet eens

Application.Volatile

net onder de tekst van Dave Hawley van Ozgrid.

Dan moet het normaal gezien wel lukken.

Wigi

 

[Tom30]

Zet eens

Application.Volatile

net onder de tekst van Dave Hawley van Ozgrid.

Dan moet het normaal gezien wel lukken.

Wigi

Wigi, helemaal top !!! Dat was het inderdaad. Nu doet ie het perfect.

Voordat ik het topic sluit, Wat doet dat stukje code eigenlijk?

Gr, Tom

 

[Wigi]

Het geeft Excel mee dat deze functie berekend moet worden als het tabblad herberekend wordt. Normaal berekent Excel enkel die cellen waarvan de broncellen gewijzigd zijn. Er wordt dus door Excel niet telkens een heel tabblad herberekend. Met dit stukje code wel de cellen met de functie ColorFunction in.

Wigi

 

[Tom30]

Het geeft Excel mee dat deze functie berekend moet worden als het tabblad herberekend wordt. Normaal berekent Excel enkel die cellen waarvan de broncellen gewijzigd zijn. Er wordt dus door Excel niet telkens een heel tabblad herberekend. Met dit stukje code wel de cellen met de functie ColorFunction in.

Wigi

Bedankt Wigi.

Dit heeft me een stuk verder geholpen in mijn project!

De rest ook bedankt natuurlijk.

We komen elkaar zeker nog wel tegen hier..