Condividi:        

Confronto Punteggio

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Confronto Punteggio

Postdi ikwae » 16/11/18 21:11

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
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Sponsor
 

Re: Confronto Punteggio

Postdi cromagno » 17/11/18 19:30

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

???

Ciao
Tore
Windows 10 + Office 2013 64bit(ita)
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
Avatar utente
cromagno
Utente Junior
 
Post: 66
Iscritto il: 08/10/16 16:33
Località: Sardegna

Re: Confronto Punteggio

Postdi ikwae » 17/11/18 19:36

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
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Re: Confronto Punteggio

Postdi cromagno » 17/11/18 19:45

Ciao,
allora allega il "codice di contesto" e vediamo di trovare una soluzione lato VBA... ;)
Windows 10 + Office 2013 64bit(ita)
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
Avatar utente
cromagno
Utente Junior
 
Post: 66
Iscritto il: 08/10/16 16:33
Località: Sardegna

Re: Confronto Punteggio

Postdi ikwae » 17/11/18 20:22

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 .....
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Re: Confronto Punteggio

Postdi Anthony47 » 17/11/18 23:50

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…
Avatar utente
Anthony47
Moderatore
 
Post: 19419
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Confronto Punteggio

Postdi ikwae » 18/11/18 10:48

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
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Re: Confronto Punteggio

Postdi Anthony47 » 19/11/18 02:51

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
Avatar utente
Anthony47
Moderatore
 
Post: 19419
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Confronto Punteggio

Postdi ikwae » 19/11/18 18:12

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
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Re: Confronto Punteggio

Postdi Anthony47 » 20/11/18 01:33

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.
Avatar utente
Anthony47
Moderatore
 
Post: 19419
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Confronto Punteggio

Postdi ikwae » 20/11/18 18:39

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
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14


Torna a Applicazioni Office Windows


Topic correlati a "Confronto Punteggio":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti