Opgelost Symboolkleuren veranderen bij x.zoeken

[Angela69]

Hallo,

Wie kan mij helpen.

Als middels x.zoeken een cel met een symbool zoals een rood hartje gevonden wordt, wordt dit hartje zwart getoond.
Dit moet rood blijven natuurlijk. Is dit op te lossen?

Zie voorbeeld

Angela

 

[djutoch]

Geen flauw idee of dit je verder helpt?
Zie celeigenschappen aangepast. voor de cellen in het rood.

 

[djutoch]

Het kan ook met een stukje VBA, maar dan moet je voorbeeld wat duidelijker zijn.

 

[Angela69]

hoi, bedankt, maar nu wordt het cijfer ook rood, en dat is weer niet de bedoeling.
in een cel staat:

1

als ik in een andere cel refereer aan de cel met inhoud (A1) middels = A1 dan krijg ik

1♥

 

[emields]

is het zoiets wat je zoekt?

 

[Angela69]

leuk, maar waar is mij x.zoeken functie nu gebleven?

 

[popipipo]

Hier een mogelijkheid zonder VBA maar met een paar extra kolommen

 

[AHulpje]

Overal waar je twee karakters intypt met als tweede karakter S, H, R of K verschijnt in de cel er rechts naast de kaartaanduiding in de juiste kleur.

 

[Angela69]

Ja dit lijkt een heel stuk beter, bedankt!

 

[Angela69]

Hallo AHulpje,

Nogmaals bedankt voor je hulp,
Ik snap niets van de macro's die je gemaakt hebt, maar dat is ook niet belangrijk.
Kun je nog een item toevoegen? het is wel geen symbool maar gewone tekst, zie bijlage. n moet dan SA genereren, dus 2n wordt 2SA

 

[AHulpje]

Ook maar even db en rd toegevoegd.

 

[Angela69]

hartelijk dank, hier kan ik wat mee, hoe zorg ik er nu voor dat dit ook werkt op elk nieuw te openen werkblad?

 

[AHulpje]

Voeg achter ieder werkblad waarin je dit wilt gebruiken de volgende code toe:

Private Sub Worksheet_Change(ByVal Target As Range)
    KleurKaart Target
End Sub

De Sub KleurKaart vind je terug in Module1.

 

[Angela69]

Hoi, bedankt, ik heb totaal geen ervaring met Visual Basic, ik heb iets geprobeerd en nu is zijn de namen in de werkbladen verschillend dan die van het totaal overzicht. Zou jij a.u.b. die scripts op je juiste manier willen aanbrengen? Alvast hartelijk dank

 

[AHulpje]

Workbook_Sheetchange event toegevoegd, KleurKaart in Module1 geplaatst.
Op alle 43! werkbladen worden de biedcodes nu voorzien van de gekleurde kaartcodes. Maar de opzet van je document is niet echt handig, het kan allemaal op één werkblad met 11 kolommen:
Spelerspaar, Datum, Spel1 t/m 8, Totaalscore. Wat filtertjes er op en klaar ben je.

 

[Angela69]

Haha, hartelijk dank, ben hier al heel blij mee. Hoe zou zoiets zoals jij bedoelt er dan uit gaan zien?

 

[HSV]

Dat doe je zo:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 MsgBox "Gemak dient de mens"
End Sub

 

[AHulpje]

Bijgaand een voorbeeld hoe het zou kunnen. Twee werkbladen, blad W met de spellen en blad Paren met de wedstrijdresultaten.
En slechts één formule de je naar beneden en naar rechts kunt doortrekken om de punten bij de biedingen te zoeken.
Werkblad Paren kun je naar hartenlust sorteren en filteren.
Het omzetten van kaartaanduiding naar kaartsymbool gebeurt nu direct in de cel waarin de kaartaanduiding wordt ingetypt. Ik kwam nog een paar 3-letterige aanduidingen tegen die nog niet omgezet worden, die kunnen eventueel toegevoegd worden.

@HSV: #15 niet gelezen?

 

[HSV]

Helaas, mijn oog viel zomaar op #13.

 

[Angela69]

Ik ben ff helemaal sprakeloos, ontzettend goed zeg, dit scheelt ontzettend veel werk, ontzettend bedankt

Helaas, mijn oog viel zomaar op #13.

Wat bedoel je hiermee?