zoeken met vba naar bepaalde celkleur in bepaalde range

[luckybasterd040]

Hallo allemaal,

Mijn vraag is of iemand mij kan uitleggen hoe deze functie werkt.
Ik begrijp het pricipe wel maar ik wil hem aan de praat krijgen en snap eerlijk gezegd nog niet zo veel van vba's.

om deze functie gaat het:

Function CountByColor(InputRange As Range, ColorRange as Range) As Long
Dim cl As Range, TempCount As Long, ColorIndex As Integer
    ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
    TempCount = 0
    For Each cl In InputRange.Cells
        If cl.Interior.ColorIndex = ColorIndex Then 
            TempCount = TempCount + 1
        End If
    Next cl
    Set cl = Nothing
    CountByColor = TempCount
End Function

Wat ik volgens mij begrijp is, dat je in de functie moet ingeven de: Range, cel met daarin de kleur die gezocht moet worden in de range.


Wie wil deze leek helpen

Groetjes Luc

 

[Roncancio]

Inputrange is het bereik waarin je wilt zoeken.
Colorrange is het bereik waar de gezochte kleur in staat.

Het is een functie dus je dient de code in een Module te plaatsen en niet achter een werkblad.

Met vriendelijke groet,


Roncancio

 

[luckybasterd040]

@Roncancio,

Zou je mij willen uitleggen hoe ik deze precies moet invoeren zoals jij dat beschrijft?
Sorry als ik te veel vraag, maar ik ben echt een leek m.b.t. Macro's en VBA.

Alvast hartelijk dank!

Groetjes Luc

 

[Roncancio]

- Klik in Excel op ALT-F11

Je zit nu in de VBE (Visual Basic Editor)

- Kies bovenaan in de VBE voor Invoegen - Module.
- Plak in die module de code.

Met vriendelijke groet,


Met vriendelijke groet,


Roncancio

 

[luckybasterd040]

Krijg hem niet aan de praat :-(, ik probeer de range in te voeren krijg de hele tijd meldingen dat er tekens bij moeten of weg.

Misschien kan je ingevuld voorbeeld laten zien?

Met vriendelijke groeten,

LucaS

 

[luckybasterd040]

Bekijk bijlage count color.xls

Ik heb een makkelijk bestandje toegevoegd, kan de vba die er in staat misschien werkend worden gemaakt in dit bestand? want ik kom er zelf niet uit.

Bij voorbaat dank!

Lucas

 

[WHER]

Zie bijlage.
Let op: deze functie werkt niet met kleuren die via Voorwaardelijke Opmaak aangebracht zijn.

 

[luckybasterd040]

Is er dan een "functie" of "vba functie" die dit wel kan?

Misschien kan dit beetje informatie jullie helpen:

Ik ben bezig met een invulsheet waarin lijsten staan met gegevens.
Als er niks wordt geselecteerd staat er "Please make your choice" met een licht rode achtergrond, adv voorwaardelijke opmaak. Wanneer er in de cel bepaalde gegevens worden gekozen veranderd de achtergrond naar licht blauw.
Nu is mijn idee om dmv een functie of "vba Functie" te zoeken in het bereik waar in de keuzes gemaakt moeten worden naar de licht rode achtergrondkleur. Wanneer deze meer dan 1 is, is er een veld niet ingevuld en moet er een melding komen dat het formulier niet compleet is ingevuld.

Hoop dat het allemaal een beetje te doen is want ik ben betreft VBA functies echt een leek.

Groetjes Lucas

 

[zapatr]

Dan kun je best de lichtblauwe en lichtrode kleur door gewone opmaak en niet door voorw. opmaak laten plaatsen. Dat kan in dezelfde macro als waarmee je op zoek gaat naar die kleuren. Een voorbeeldbestand is vereist om een goed antwoord te kunnen geven.

 

[luckybasterd040]

Bekijk bijlage countcolor(1) (1).xls

Bedankt voor je reactie Zapatr!

Zie bijgevoegd bestand.
Dit is in principe zoals ik het heb.

 

[zapatr]

Daar heb ik helemaal niets aan.
Bekend moet natuurlijk zijn wat er PRECIES moet gebeuren als yes of no wordt gekozen (zowel in G3, als G4, enz.).

 

[luckybasterd040]

Wat er gebeurt zoals je ziet is dat de achtergrond veranderd.
Wat ik wil is dat wanneer er een wordt vergeten in te vullen, dus dat de achtergrond rood blijft, dat het bestand niet kan worden opgeslagen of dat er een message box komt met "comlete sheet" oid.

Groetjes Lucas

 

[WHER]

Zoiets dan? Je krijgt een waarschuwing als niet alles ingevuld is (maar je kan uiteindelijk het bestand toch opslaan)

 

[zapatr]

Ik zou dit kiezen (zie bijlage, maar is afhankelijk van wat de vragensteller precies wil).
Als niet alles is ingevuld en men probeert op te slaan, komt er een waarschuwing en is opslaan niet mogelijk.

 

[huijb]

@ luckybasterd040 en zapatr willen jullie stoppen met het herhaaldelijk quoten van elkaars berichten wanneer jullie direct na elkaar reageren.

 

[zapatr]

huijb,
als er al vier verschillende mensen in een topic actief zijn, dan is het niet zo vreemd dat je iemands tekst aanhaalt, anders is het moeilijk te beoordelen wie op wie reageert. Dat is de reden dat ik het deed, want doorgaans houd ik er wel rekening mee.

 

[huijb]

Ik schrijf dat ik quotes heb verwijderd van berichten die direct na elkaar zijn geplaatst. Dus niet met tussenkomst van andere berichten.

 

[luckybasterd040]

@ Wher en Zapatr,

Super bedankt voor jullie hulp! ik ben blij dat ik dit geweldige forum heb gevonden, met de expertise dat hier hier aanwezig is!
Ik kan hier zeker wat mee! ook ben ik nu getriggert om mij nog meer te verdiepen in de wereld van "macro's" en "visual basics"!

Nogmaals bedankt!

 

[luckybasterd040]

@Zapatr,
De macro van jou werkt goed! zelfs zo goed dat als ik het bestand wil opslaan, ik het niet kan opslaan.
Hier misschien nog een oplossing voor?
Het is namelijk zo dat het bestand opgeslagen moet worden in zo te zeggen beginstand, met overal "please make your choice".

Groetjes Lucas

 

[zapatr]

In je bericht van gistermiddag staat (citaat): "Wat ik wil is dat wanneer er een wordt vergeten in te vullen, dus dat de achtergrond rood blijft, dat het bestand niet kan worden opgeslagen of dat er een message box komt met "comlete sheet" oid."(einde citaat). Vandaar dat ik voor een oplossing koos waarbij het bestand niet kan worden opgeslagen zolang er nog een cel is die paars is (als alle cellen blauw zijn, kan het bestand wél worden opgeslagen). (Bijna) alles kan, maar dan moet je precies aangeven wat je wil.