Ricerca stringa

[astrigno]

Salve a tutti. Ho un elenco molto lungo di dipendenti formato da sole 5 colonne: Col A Società- B Matricola - C Cognome -D Nome - E Centro di Costo.
Devo spesso ricercare un cognome per sapere a quale società e CDC appartiene. Fino ad oggi ho sempre operato con i filtri ovvero con il comando trova.
Vi chiedevo se è fattibile poter scrivere il cognome da ricercare su una cella ed avere nella cella adiacente il relativo CDC.
Es. Scrivo Berlusconi in E1 e il comando mi restituisce Mediaset in F1 e Direzione in G1.
Grazie

[astrigno]

Ovviamente scrivo in F1 e ho le risposte in G1 e H1

[Flash30005]

Selezioni la cella F1
Poi vai sul Menu Dati -> Convalida...
inserisci in Consenti "Elenco" (già disponibile nel combox)
In Origine inserirai questa formula

Codice: Seleziona tutto

=$C$1:$C$1000

(adatta 1000 alla tua esigenza)

Inserisci, nel Vba del foglio dati (non modulo), questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
CheckArea = "F1:F1"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
        Application.ScreenUpdating = False
        Application.Calculation = xlManual
RArt = Target.Row
ArtV = Target.Value
    If ArtV <> 0 Then
        UR = Range("A" & Rows.Count).End(xlUp).Row
    For R = 1 To UR
        If ArtV = Mid(Range("C" & R).Value, 1, Len(ArtV)) Then
            Target.Value = Range("C" & R).Value
            Range("G1").Value = Cells(R, 1).Value
            Range("H1").Value = Cells(R, 5).Value
            GoTo esci
        End If
    Next R
esci:
End If
End If

Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Ciao

[astrigno]

Oggi la provo, grazie.

[astrigno]

Oggi la provo, grazie.

Ok perfetto.
Approfitto però ancora della tua competenza .....e pazienza perchè ho un altro quesito relativo sempre allo stesso elenco.
Come detto in questo elenco ho il nome in una colonna e il cognome in un'altra. Devo aggiungere ad ogni riga (dipendente) di questo elenco un'informazione contenuta in un elenco di un altro collega dove però nome e cognome sono in un'unica colonna separati da uno spazio. Il CERCA VERT ovviamente non funziona, cosa posso fare?

[Flash30005]

Il cerca verticale lo puoi "comporre"
Il tuo cognome è in colonna C e nome in colonna D
Supponenedo che il secondo elenco abbia il cognome e nome in M e il dato da ricercare in N (stesso foglio)

Puoi usare questa formula

Codice: Seleziona tutto

=CERCA.VERT(C2&" "&D2;M2:N13;2;FALSO)

Ciao

[astrigno]

Scusami ma ti ho dato una info errata, devo fare il contrario. Cioè sul file del mio collega, (quello che ha nome e cognome nella stessa cella), devo fare il CERCA VERT sul mio file (quello che ha nome e cognome su due colonne).

[Flash30005]

Soluzioni:
1) Creati una colonna di appoggio anche nascosta
dove concateni i tuoi due dati
2) nella tua colonna D dove hai il nome puoi incollare (solo valori) della colonna Nascosta al punto 1 e fare il cerca verticale su questa colonna
3) separi il cognome e nome dell'altro elenco con la funzione testo in colonne (separatore "spazio")

Altrimenti bisogna realizzare una macro che effettua la ricerca di quanto sopra e fornisca l'output del dato che ricerchi
ma bisogna avere più dettagli:
1) posizione dati Elenco1
2) posizione Elenco confronto
3) dato da copiare (posizione)
4) destinazione dato copiato

Insomma se invii il file è meglio

ciao

[astrigno]

Non mi pare il caso di farti lavorare ancora le soluzioni fornite mi sembrano già soddisfacente.
Grazie

[maxmula]

Non per fare l'avvocato del diavolo, però se la stessa operazione viene farts su due pc diversi potrebbe aver senso "far convergere" i due database, o se non altro usare lo stesso formato dei campi... Potendolo fare, ovviamente. Poi, si sa, tra il dire e il fare c'è di mezzo " e il " .