als berekening

[hoedje8]

Hallo, Wat is de makkelijkste manier om 52 tabbladen aan te maken waar ook de berekeningen in blijven staan en doorverwijzing van een vorig tabblad. bv week 1 eindigd met een getal dit getal wil ik dan meenemen naar de volgende week en dat einde weer naar week 3 etc. Ook heb ik een berekening bijgevoegd waar ik niet uit kom. Graag jullie hulp bvd Helga

 

[Ingrid B]

Maak het eerste blad volledig af.

Maak hiervan als volgt een kopie:
klik met de rechtermuistoets op de bladtab (onderaan)
en kies Blad verplaatsen of kopiëren in het snelmenu
vergeet niet om de optie Kopie maken aan te vinken

Om telkens een waarde van het vorige blad over te nemen kan je met volgende UDF (User Defined Function) werken:

Function vorigeBlad()
  Application.Volatile
  If Application.Caller.Worksheet.Index = 1 Then
    vorigeBlad = CVErr(xlErrNull)
  Else
    vorigeBlad = Sheets(Application.Caller.Worksheet.Index - 1).Name
  End If
End Function

kopieer de functie naam een module

In het werkblad kan je nu een dergelijke formule gebruiken:

=INDIRECT("'"&vorigeblad()&"'!E20")

De berekening die je verder nog vermeld staat in een niet bijgevoegd document veronderstel ik

 

[hoedje8]

Bericht staat opgeslagen als .xls en dat kan niet verstuurd worden zie ik nu. Hoe krijg ik het wel verstuurd Helga

 

[joost verdaasdo]

Hoi Helga,

Bij de optie bladeren staan de extensies welke zijn toegestaan!

In jouw geval, zou ik het bestand gewoon InZippen met WinZip!

Succes! :thumb:

 

[Ingrid B]

Eerst zippen en dan kan je het wel plaatsen.

Het programma WinZip kan je hier vinden: http://www.winzip.com/

En wat uitleg hier: http://www.playgarden.com/winzip8.php3

 

[hoedje8]

Bedankt voor de uitleg van WinZip in het Nederlands.Ik hoop dat de zip is gelukt. Met Helga

 

[Ingrid B]

Afhankelijk van wat je juist wilt volgende formules:

=ALS(E10="n";E15;ALS(E10="j";AFRONDEN.N.VEELVOUD(0,09*E9;0,5);0))

=AFRONDEN.N.VEELVOUD((ALS(E10="j";0,09*E9;ALS(E10="n";E15;0)));0,5)

 

[hoedje8]

Supersnel gaat dit. Alleen als ik de bovenste formule intyp dan komt er 7 te staan als het j =. Die 7 moet er alleen komen als het n =. Die uren worden dan mee genomen naar volgende maand en dus niet uitbetaald.

 

[hoedje8]

Met hulp van jullie is het opgelost.

=ALS(E10="n";AFRONDEN.N.VEELVOUD(0,09*E9;0,5);0)

=AFRONDEN.N.VEELVOUD((ALS(E10="j";0,09*E9;0));0,5)
Misschien had ik het verkeerd geformuleerd. Hartelijk dank voor jullie snelle hulp. Weltrust Helga