Opgelost Symboolkleuren veranderen bij x.zoeken

[Angela69]

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

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?

Hoi, die 3 letterige aanduidingen als doublet en redoublet zijn hier niet zinvol, wat wel zinvol is als de SA uitgebreid kan worden met (O) en (W)
dus ingave: 2NO wordt 2SA(O) en 2NW wordt 2SA(W). Dat geldt dan voor alle SA's. Zou je dat nog voor mij willen aanbrengen?

 

[emields]

ik begin stillaan de indruk te krijgen dat je iets wil bereiken maar dat je zelf nog niet goed weet wat je wil bereiken.
Denk eerst eens goed na wat je wil en vraag dan hulp idpv na iedere oplossing met iets anders te komen.

 

[AHulpje]

Public Sub KleurKaart(Target)
    With Target
        If .Count = 1 Then
            If Len(.Value) = 2 Then
                Select Case UCase(Right(.Value, 1))
                    Case "R"   'ruiten
                        .Value = Left(Target, 1) & ChrW(9830)
                        .Characters(2, 1).Font.Color = vbRed
                    Case "S"   'schoppen
                        .Value = Left(Target, 1) & ChrW(9824)
                        .Characters(2, 1).Font.Color = vbBlack
                    Case "H"   'harten
                        .Value = Left(Target, 1) & ChrW(9829)
                        .Characters(2, 1).Font.Color = vbRed
                    Case "K"   'klaver
                        .Value = Left(Target, 1) & ChrW(9827)
                        .Characters(2, 1).Font.Color = vbBlack
                    Case "N"   'sans atout
                        Target = Left(Target, 1) & "SA"
                End Select
            ElseIf Len(.Value) = 3 Then
                Select Case UCase(.Value)
                    Case "2NO"
                        .Value = "2SA(O)"
                    Case "2NW"
                        .Value = "2SA(W)"
                End Select
            End If
        End If
    End With
End Sub

 

[HSV]

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.

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

Wat bedoel je hiermee?

Dat de code van @AHulpje niet nodig is achter elk werkblad, maar eenmalig in Thisworkbook sectie de WorkBook_SheetChange()
Maar dat werd in #15 herstelt.

Ps: daar hoef je niet verdrietig om te zijn hoor.

 

[AHulpje]

Toen ik het originele document kreeg met 43(!) werkbladen (nu nog maar 2) was de keuze snel gemaakt. Al zou je de Change event nu weer per werkblad kunnen gebruiken als je niet wilt dat op alle werkbladen de omzetting plaatsvindt.