Ricerca dato con più criteri

[dipic]

Salve a tutti,
come inserito nel titolo ho il seguente problema:
Dal Range A1 - L10 devo trovare il dato in Lx cercando da 3 combinazioni:
1) lettera (in colonna A)
2) numero (in colonna B)
3) numero (in colonna C)
- nella colonna A ho una serie di lettere che possono anche ripetersi
- nella colonna B ho una serie di numeri che possono ripetersi
- nella colonna C ho una serie di numeri che possono ripetersi
non esistono 2 risultati uguali nella cartella se confronto le celle A/B/C della stessa riga;
devo trovare il dato in colonna L.

spero di essere stato chiaro
grazie per qualsiasi suggerimento

[Anthony47]

Perdona: No, non credo che sei stato chiaro.
In paricolare, all' inizio sembrava (mi sembrava) che volessi cercare le righe che hanno valori in A-B-C pari a quelli che imposti; poi dici che " non esistono 2 risultati uguali nella cartella se confronto le celle A/B/C della stessa riga" (la frase di per se' e' superflua, perche' in una "stessa riga" non ci puo' essere altro che una sola combinazione A-B-C), ne' e' chiaro se in Lx vuoi il risultato (fermo restando che non capisco quale) o c' e' un dato da usare per la ricerca.

Quindi prova a descrivere piu' dettagliatamente.

Ciao, ti aspettiamo.

[Flash30005]

Ma sì! Ci provo!

Inserisci questa macro in un modulo e avviala

Codice: Seleziona tutto

Sub CercaUni()
    Range("A1:L10").Interior.ColorIndex = xlNone
For RL = 1 To 10
        StrL = Range("L" & RL).Value
    For RA = 1 To 10
    Col = RL + RA
            StrA = Range("A" & RA).Value & Range("B" & RA).Value & Range("C" & RA).Value
            If StrA = StrL Then
            Range("A" & RA & ":C" & RA).Interior.ColorIndex = Col
            Range("L" & RL).Interior.ColorIndex = Col
            End If
    Next RA
Next RL
End Sub

Spero solo che nella colonna L ci siano i dati della cella ABC senza spazi o altro
Fai sapere
Ciao

[dipic]

Grazie per il tuo interessamento Flash,
con alcune modifiche funziona ... speravo di riuscire a farlo con formule, senza dover per forza creare una macro ...
questo solo perchè in caso di spostamento campi devo rivedere tutta la macro.
Se nessuno ha idea di come poter fare con formule, considero chiuso il post.
Grazie ancora

[Flash30005]

Le macro le puoi attivare con pulsanti o altro ma per i più "pigri"
esiste anche un'automazione che le attiva al solo variare delle celle interessate
come ad esempio questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "L1:L10,A1:C10"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
Call CercaUni
End If
End Sub

da inserire nel foglio dei dati sessione vba (non nel modulo)
Puoi variare il CheckArea, così impostato attiva la macro al variare (modifica) di qualsiasi cella compresa nelle aree da A1 a C10 o da L1 a L10
se ti interessa limitare solo alle celle dell'area L1:L10 metterai

Codice: Seleziona tutto

CheckArea = "L1:L10"

Ciao

P.s. Per spostamento campi cosa intendi?

[dipic]

intendo l'inserimento di eventuali righe o colonne

grazie

[Flash30005]

Non sarebbe nemmeno questo un problema però quando si parla di macro (programmazione) si devono conoscere tutte le possibili varianti che possono modificare il progetto iniziale es. se le righe non sono un numero fisso (10) si può inserire un codice per conteggiarle di volta in volta,
il problema potrebbe nascere nelle colonne ma se si spostano solo es. al posto di A,B,C e L avremo B,C,D e M è facilmente risolvibile ma più difficile (non impossibile) sarebbe se divenissero A,C,E e L.
Insomma la soluzione si trova solo dopo un'attenta analisi di cosa si vuole ottenere entrando nei minimi particolari di ogni possibile situazione che può verificarsi perché un programma pur facendo perfettamente e velocemente tutto ciò per il quale è stato progettato non si "adatta" a variazioni se non previste nella/le sua/e routine.

Ciao

[Flash30005]

Aggiungo al post precedente che potresti provare con la formattazione condizionale se ti è congeniale
nella cella A1 inserisci (da Formato>Formattazione Condizionale) La formula è :

Codice: Seleziona tutto

=SE(VAL.ERRORE(CERCA.VERT(A1&B1&C1;L$1:L$10;1;FALSO));"";SE(CERCA.VERT(A1&B1&C1;L$1:L$10;1;FALSO)>1;1;0))=1

stessa cosa per B1 e C1 poi selezioni le celle A:C1 copi il formato e selezioni le celle da A2:C2 e trascini fino a C10

Ciao