Excel Macro per evidenziare

[Statix]

Ciao a tutti,spero che avete trascorso una Buona Pasqua,
la pasquetta è stata così così,causa maltempo.
veniamo a noi,ho un problema da risolvere ad un amico,
ho un range di 20 righe e 90 colonne range C6:CN25 con dati
range C2:CN2 90 colonne numerate da 1 a 90
range CQ6:CU6 ho 5 numeri
range CW6:DA6 ho dati con lettere e numeri,
quello che devo fare e evidenziare le lettere e numeri del range CW6:DA6
nella riga C6:CN6 facendo riferimento ai numeri del range CQ6:CU6
questo va fatto per tutte le 20 righe,una per una .
non so se sono stato chiaro,provo con un esempio.
questa foto, mostra solo l'ultima decina gia evidenziata a mano,
ogni numero ha il suo riferimento
CQ7 12 = CW7 punto
CR7 83 = CX7 7
CS7 90 = CY7 7
CT7 6 = CZ7 punto
CU7 72 = DA7 punto

[Statix]

Pensandoci bene,
credo che si potrebbe fare in un altro modo,
tipo cerca.orizzontale numero ,evidenzia indice.
esempio in C2:CN2 ho i numeri da 1 a 90
in CQ6:CU6 i 5 numeri
la macro dovrebbe cercare tipo formula
=cerca.orizz(CQ6;C2:CN25;5;falso) evidenziando la cella trovata se è un numero o lettera,
così per tutte le 20 righe cambiando di volta in volta l'indice

[Anthony47]

Se il foglio non e' pesante potresti provare con la formattazione condizionale:
-selezioni l' area C6:CN25 e avvii la formattazione condizionale
-condizione1="la formula è"
-come formula usi

Codice: Seleziona tutto

=SE(VAL.ERRORE(CONFRONTA(C$2;$CQ6:$CU6;0));0;SE(SCARTO($CV6;0;CONFRONTA(C$2;$CQ6:$CU6;0))=C6;1;0))

-imposti il "motivo" che ti piace; chiudi la formattazione condizionale

Se cosi' non risolvi allora potrebbe essere utile un file di prova, per evitare di starsene a creare uno.

Ciao

[Statix]

Ciao Anthony,
ho testato la formattazione ,va bene, su questo non c'era nessun dubbio,
tranne per i punti che non dovrebbero essere visualizzati ma a questo già avevo risolto.
ho bisogno di una macro,ti allego un file per il test.
per il semplice motivo che i dati nel foglio vengono incollati riga su riga dopo ogni elaborazione
nel foglio attualmente ci sono solo 15 righe di dati, ma possono essere anche di più,
diciamo che max 100 righe sono più che sufficienti.quindi ho un range di righe variabili,
quindi sarebbe opportuno che una volta che io ho fatto un elaborazione di tot righe,
successivamente lancio la macro che mi va ad evidenziare i valori.
per i punti eventualmente li sostituisco con trattino.
http://www.megaupload.com/?d=74JO84ZN

[Anthony47]

Dovrebbe andare questa macro:

Codice: Seleziona tutto

Sub Highl()
Range("C6:CN10000").Interior.ColorIndex = xlNone
For I = 6 To Cells(Rows.Count, "CQ").End(xlUp).Row
    For J = 0 To 4
        If Cells(I, Cells(I, "CQ").Offset(0, J).Value + 2) = Cells(I, "CQ").Offset(0, J + 6).Value Then
            If Cells(I, Cells(I, "CQ").Offset(0, J).Value + 2) <> "." Then Cells(I, Cells(I, "CQ").Offset(0, J).Value + 2).Interior.ColorIndex = 4
        End If
    Next J
Next I
End Sub


Ciao

[Statix]

Ciao Anthony,
la macro è perfetta,
ho visto che hai messo anche la condizione del punto.
grazie ,sei un vero Tutor.