• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kleuren kopieëren en optellen

Status
Niet open voor verdere reacties.
L

loezer

Gebruiker
Lid geworden
25 mei 2009
Berichten
41
Beste helpers!

Ik heb een vraagje over het kopieëren en optellen van getallen in kleur.

Ik heb een groot gegevens blad (zie het zwaar vereenvoudigde voorbeeldbestandje). Hierin wordt onderandere bijgehouden wat wel (zwart) en wat nog niet (rood) betaald is.
Om voor de opdrachtgever kleinere kwartaal overzichtjes te maken heb ik ook een tabblad met overzichtstabellen. In het voorbeeld gaat het over welke bedragen wel en welke nog niet zijn betaald en wat het totaal is van het betaalde bedrag en het nog openstaande bedrag.
De bedoeling is dat excel vanuit het gegevensblad de bedragen kopieërt naar het tabblad met overzichtstabellen. Dus incl. opmaak (rood/zwart). Vervolgens zou excel in cel B20 de zwarte bedragen uit kolom B moeten optellen en in cel B21 de rode bedragen uit kolom B.

Heeft iemand enig idee?:o Alvast heel erg bedankt!

Grtz,
Loes
 

Bijlagen

In je bestand heb ik een UDF (User Defined Function) gemaakt die de waardes van een bereik optelt als deze overeenkomen met de kleur van een betreffende cel.

Code: 
=kleurentellen(B$8:B$100;B2)

De cellen in het bereik B8 t/m B100 worden opgeteld als deze overeenkomen met de tekstkleur in cel B2.

Met vriendelijke groet,


Roncancio
 

Bijlagen

Hey,

Beetje late reactie vanwege vakantie....
Roncancio alvast bedankt voor je eerdere reactie!
Roncancio zou je me (in jip en janneke taal) uit kunnen leggen hoe ik dit naar mijn bestand kan kopieeren?? Weet namelijk niets af van VBA....:o

Weet jij (of iemand anders) misschien ook hoe ik de gegevens + OPMAAK kan kopieeren van het tabblad "gegevens" naar het tabblad "overzichtstabel".

Ik gebruik nu bijvoorbeeld voor cel B10 in het tabblad "overzichtstabel" de volgende formule:

Code: 
=ALS(Gegevens!$B9="";"";Gegevens!$B9)

Maar hiermee kopieert hij alleen de inhoud van cel B8, maar niet de opmaak ervan, dus niet de rode kleur.... Weet iemand hoe ik dit mee kan kopieeren??

Alvast super bedankt allemaal!

Grtz!
 
Beste loezer ;)

loezer zei:
Hey,

Beetje late reactie vanwege vakantie....

Grtz!
Klik om te vergroten...

Ik wou dat ik ook 3 maanden vakantie had :D :p

Wat betreft jouw antwoord, dit gaat niet met een formule.
Met VBA code kan dit wel.

Groetjes Danny. :thumb:
 
loezer zei:
Hey,

Beetje late reactie vanwege vakantie....
Roncancio alvast bedankt voor je eerdere reactie!
Roncancio zou je me (in jip en janneke taal) uit kunnen leggen hoe ik dit naar mijn bestand kan kopieeren?? Weet namelijk niets af van VBA....:o

Weet jij (of iemand anders) misschien ook hoe ik de gegevens + OPMAAK kan kopieeren van het tabblad "gegevens" naar het tabblad "overzichtstabel".

Ik gebruik nu bijvoorbeeld voor cel B10 in het tabblad "overzichtstabel" de volgende formule:

Code: 
=ALS(Gegevens!$B9="";"";Gegevens!$B9)

Maar hiermee kopieert hij alleen de inhoud van cel B8, maar niet de opmaak ervan, dus niet de rode kleur.... Weet iemand hoe ik dit mee kan kopieeren??

Alvast super bedankt allemaal!

Grtz!
Klik om te vergroten...

In je bestand zit een macro.
Deze macro kun je vinden via bijvoorbeeld Alt-F11
De macro is eigenlijk een functie en heet kleurentellen.
Het makkelijkste is als een ander bestand geopend is om de module waar de functie kleurentellen instaat, te slepen naar het project van het andere bestand. Hierdoor komt de functie ook automatisch in het andere bestand te staan en kun je dus deze functie ook in het andere bestand gebruiken.

Met vriendelijke groet,


Roncancio
 
Hey,

@Roncanciio: volgens mij is het gelukt. De macro staat erin, maar krijg het nog niet helemaal werkend. Ik probeer nog even. Super, dank je! Mocht het niet lukken, dan hoor je het wel.

@Danny: Hoezo, 3 maanden vakantie? Ik heb de vraag 26 aug. gepost. ;)
Weet jij misschien hoe dit moet met VBA en zo ja, zou je me dit stap voor stap uit kunnen leggen??

Alvast bedankt!

Grtz!
 
Beste Roncancio,

Ik krijg hem niet werkend.
Ik vul de volgende formule in cel E31 in (van het tabblad Overzichtstabel):

Code: 
=kleurentellen(E$2:E$30;E31)

Hij geeft dan #WAARDE!.... Ik zie niet waar het fout gaat....

Weet jij de oplossing?

Grtz!
 
loezer zei:
Beste Roncancio,

Ik krijg hem niet werkend.
Ik vul de volgende formule in cel E31 in (van het tabblad Overzichtstabel):

Code: 
=kleurentellen(E$2:E$30;E31)

Hij geeft dan #WAARDE!.... Ik zie niet waar het fout gaat....

Weet jij de oplossing?

Grtz!
Klik om te vergroten...

Het zou kunnen dat de waardes als tekst wordt weergegeven.

Met vriendelijke groet,


Roncancio
 
Het zou kunnen dat de waardes als tekst wordt weergegeven.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Celeigenschappen staat op valuta.... Nog andere suggesties?

Bedankt!
 
Ik weet niet wat je gedaan hebt, maar het werkt!!:thumb:

Super bedankt!!:d
 
loezer zei:
Ik weet niet wat je gedaan hebt, maar het werkt!!:thumb:

Super bedankt!!:d
Klik om te vergroten...

Graag gedaan.
Ik heb de code een klein beetje verbeterd.
Bij het draaien bleek dat de lege cellen soms problemen gaven.

Graag nog de vraag op opgelost zetten (bovenaan deze pagina).

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan