cerca corrispondenza e copia dati

[Geppo2011]

Salve
avrei bisogno di aiuto per una macro.
In un foglio excel nel range A10:A120 ho un elenco di nomi. Ora inserendo nella cella D5 un nome presente nell' elenco della colonna A (es. Pluto) e inserendo nella cella E5 un dato (es cane) la macro dovrebbe cercare il nome "Pluto" nell' elenco , che supponiamo si trovi in A25 , e copiare il dato "cane" nella cella affianco, ovvero in B25.
Penso sia una cosa semplice da realizzare ma le mie conoscenze informatiche sono molto scarse.
Grazie in anticipo a quanti mi daranno una mano.

[Flash30005]

Non è molto chiaro
in A25 hai Pluto
in B25 hai Cane

scrivi in D5 Pluto
in E25 Cane

quindi?
hai già Pluto e Cane!!!

[Geppo2011]

Cerco di chiarire
il dato già presente è "Pluto" in A25 mentre in B25 non è presente nessun dato. Vorrei fosse la macro che, una volta trovato "Pluto" , va ad inserire in B25 il dato "cane" che io ho digitato in E5.

[alfrimpa]

Edit.......

[Geppo2011]

per alfrimpa
puoi spiegare cosa intendi con Edit.. Scusa ma ho scarsa dimestichezza con i forum e i termini che si usano in essi

[Flash30005]

Nel VBA del Foglio interessato (non in un Modulo)
inserisci questa macro

Codice: Seleziona tutto

Sub RiportaV()
UR = Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
    If Range("A" & RR) = [D5] Then
        Application.EnableEvents = False
        Range("B" & RR) = [E5]
        Application.EnableEvents = True
        Exit Sub  '<<<<< commentare o eliminare questa riga se nella colonna A ci sono altri nomi uguali che vuoi compilare con lo stesso valore di E5
    End If
Next RR
End Sub

Ciao

[alfrimpa]

Ciao Geppo

Perdonami avevo risposto ma poi mi sono reso conto di aver frainteso la tua domanda ed ho cancellato il tutto perchè non avevo risposto correttamente.

[Geppo2011]

Per alfrimpa
non c' è problema una svista capita a tutti.

Per Flash
ho copiato il codice come hai detto e funziona alla grande.
Grazie infinite per il prezioso aiuto.