Premetto che "conosco la funzione Cerca.vert, ma non mi convince" e' una premessa che non capisco su che base viene fatta.
Comunque non sto a chiederti come pensi di individuare l'esatto Rossi Mario che vuoi estrarre dalla tua tabella e ti propongo quest'altro approccio:
-sul tuo foglio Stampa Finale in H24 scrivi 2
-nelle celle destinate al Cognome inserisci la formula
- Codice: Seleziona tutto
=INDICE(Foglio3!A:F;H24;1)
-in quella del Nome usa
- Codice: Seleziona tutto
=INDICE(Foglio3!A:F;H24;2)
-compila con formule analoghe le altre celle, variando sempre l'ultimo parametro
-poi sul tuo foglio inserisci una
Casella di Riepilogo (ActiveX); supponiamo che venga chiamata ListBox1
-fai testo dx sul tab col nome foglio, scegli Visualizza Codice per aprire l'editor delle macro
-nel frame vuoto di dx inserisci questo codice:
- Codice: Seleziona tutto
Private Sub ListBox1_Change()
Range("H24") = ListBox1.ListIndex
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.Visible = False
Range("H24").Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$I$23:$P$24" Then
ListBox1.Visible = True
ListBox1.Top = Target.Cells(1, 1).Top
ListBox1.Left = Target.Cells(1, 1).Left
ListBox1.ColumnCount = 3
ListBox1.ListFillRange = "Foglio3!A2:C" & Sheets("Foglio3").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.Width = Selection.Width
ListBox1.Height = Selection.Height * 2
Else
ListBox1.Visible = False
End If
End Sub
A questo punto torna su Excel, e seleziona la cella del Cognome: ti si presentera' l'elenco dei nominativi presenti in tabella, e visualizzerai Cognome, Nome, Data di nascita.
Seleziona il nominativo che ti interessa e quando hai finito fai doppioclick sul nominativo.
Questo, con le formule precedentemente introdotte, ti compilera' i tuoi dati.
Se il numero presente in H24 ti da' fastidio, formattalo di colore bianco in modo che non si veda.
Il file andra' salvato in formato xlsm.
Ciao