Confronto Punteggio

[ikwae]

Ciao a tutti sono ancora qui a chiedere il vostro prezioso aiuto... un aiuto relativamente semplice(almeno lo spero) ... si tratta di confrontare delle righe con delle celle contenente numeri ... mi spiego meglio ci sono 45 righe(B5:G51) di sei celle ciascuno e devono essere confrontate con un intervallo(L4:Q4) se i numeri sulla stessa riga sono uguali ai numeri dell’intervallo si devono colorare di giallo i numeri della riga o altro colore a piacere ... allego un file per le prove ... Ringrazio anticipatamente tutti coloro che mi possono aiutare ...
73 ikwae
http://www.filedropper.com/cofrontopunteggio

[cromagno]

Ciao,
non ti basta come formula per la formattazione condizionale:
=CONTA.SE($L$4:$Q$4;B5)>0

???

Ciao
Tore

[ikwae]

Grazie cromagno per la risposta ma la devo mettere dentro una procedura e di conseguenza fa tutta da sola e per questo preferivo una macro, se possibile, comunque tengo valida la tua risposta in caso non arrivano aiuti ...grazie ancora cordialmente ikwae

[cromagno]

Ciao,
allora allega il "codice di contesto" e vediamo di trovare una soluzione lato VBA...

[ikwae]

Quello che serve e sull'allegato, sia come posizione sia come range, è nient'altro da aggiungere altrimenti penso di avermi spiegato male ... e attendo altri aiuti ringraziandoti della tua preziosa risposta e CORDIALMENTE ikwae .....

[Anthony47]

Do' per scontato che i valori di L4:Q4 debbano trovarsi tutti sulla stessa riga.
Prova con

Codice: Seleziona tutto

Sub IKWN()
Dim tArr(12 To 17)
Dim I As Long, J As Long, FlErr As Boolean, myMatch
'
lastb = Cells(Rows.Count, "B").End(xlUp).Row
For J = 12 To 17
    tArr(J) = Cells(4, J)
Next J
Range("L4:Q4").Interior.Color = xlNone
For I = 5 To lastb
    If IsNumeric(Cells(I, 1).Value) Then
    FlErr = False
        For J = 2 To 7
            myMatch = Application.Match(Cells(I, J).Value, tArr, False)
            If IsError(myMatch) Then
                FlErr = True
                Exit For
            End If
        Next J
        If Not FlErr Then
            Range("L4:Q4").Interior.Color = RGB(255, 255, 0)
            'Debug.Print I
            Exit For
        End If
    End If
Next I
End Sub


Fai sapere…

[ikwae]

Gentilissimo Anthony ... Innanzitutto grazie di avermi risposto e aggiungo che la macro non evidenzia nulla cliccando sulla macro non succede nulla ... Ho provato a “smanettare” qualche cosa ma non succede nulla .... Provo a chiarire il post forse mi sono espresso male ... ci sono tre blocchi range B5:G19, B21:G35, B37:G51 ma si può considerare come un unico blocco B5:G51... c’è anche in intervallo L4:Q4. Sia i blocchi che l’intervallo hanno il range “stabile” ossia sono immutabili (le posizioni) non variano ...Quindi tutti i numeri, da 2 in su,(2-6) che sono presenti sui blocchi e che sono presenti anche nell’intervallo i numeri dei blocchi(solo quelli) si devono colorare di giallo... spero di aver fatto chiarezza e attendo fiducioso... come sempre ti ringrazio per il tuo tempo che mi stai dedicando cordialmente ikwae

[Anthony47]

La macro cerca la sestina in L4:Q4 in tutte e righe delle colonne B:G, e se trova in riga quei 6 numeri colora L4:Q4.
Tu mi pare chiedi l'opposto, in piu' e' possibile che in B4:L4 non siano presenti tutti e 6 i numeri.

Se fosse cosi' allora potrebbe funzionare quest'altra:

Codice: Seleziona tutto

Sub IKWNn()
Dim I As Long, J As Long, mCnt As Long, myMatch
'
lastb = Cells(Rows.Count, "B").End(xlUp).Row

Range("L4:Q4").Interior.Color = xlNone
For I = 5 To lastb
    If IsNumeric(Cells(I, 1).Value) Then
    Cells(I, 2).Resize(1, 6).Interior.Color = xlNone
    mCnt = 0
        For J = 2 To 7
            myMatch = Application.Match(Cells(I, J).Value, Range("L4:Q4"), False)
            If Not IsError(myMatch) Then
                Cells(I, J).Interior.Color = RGB(255, 255, 0)
                mCnt = mCnt + 1
            End If
        Next J
        If mCnt <> Application.WorksheetFunction.CountA(Range("L4:Q4")) Then
            Cells(I, 2).Resize(1, 6).Interior.Color = xlNone
        End If
    End If
Next I
End Sub

Se invece vuoi un'atra cosa allora devi rispiegare con altre parole

Ciao

[ikwae]

Caio ... ho allegato un file dove ci sono le parti evidenziate è questo che dovrebbe fare la macro che cerco per l'aiuto ... da 2 numeri in su ... la FC di cromagno, che saluto e ringrazio, funziona bene ma evidenzia anche un solo numero e non va bene da due numeri fino a 6 e poi come da richiesta iniziale preferirei una macro... spero che così va meglio cordialmente ikwae



http://www.filedropper.com/cofrontopunteggioevidenziato

[Anthony47]

Nell'ipotesi che la mancata evidenza su 1 e 89 di riga 41 sia solo una svista allora nel codice della Sub IKWNn devi sostituire la riga If mCnt <> Application.WorksheetFunction.CountA(Range("L4:Q4")) Then con

Codice: Seleziona tutto

        If mCnt < 2 Then   

Se non e' cosi' allora spiega nuovamente con altre parole.

[ikwae]

Si è proprio la macro che cercavo funge bene una meraviglia ... Ringraziandoti mille volte per il tuo prezioso aiuto e la tua "Santa Pazienza" cordialmente ikwae