cercare e ricopiare riga da un foglio all altro

[chiocciolata]

buongiorno!!!
sono giorni che provo attraverso le semplici formule date da excel ( cerca, cerca vert, se, confronta...) a risolvere il mio problema ma senza successo...
nel foglio 1 nella mia colonna A1:AX ho circa 500 nomi e ognuno di questi nomi ha una propria riga di valori
vorrei sapere: se scrivo uno di questi nomi della colonna A mi può venire fuori automaticamente anche tutta la riga corrispondente nel foglio 2...
es nel foglio 1 ho
alfredo cod.fiscale data di nascita
bernardo cod.fiscale data di nascita
......
ecco attraverso macro o formule è possibile che nel momento in cui io vada a scrivere alfredo nella casella A1 del foglio 2 mi vengano automaticamente scritte anche il suo cod.fiscale e la data di nascita?
vi ringrazio ancora!!
Chiara

[alfrimpa]

Ciao Chiara

Visto che mi hai citato mi piacerebbe anche risponderti.

Allega in file di esempio (senza dati sensibili) e descrivi il risultato che vuoi ottenere.

A presto

[alfrimpa]

Comunque ti dico che con il VBA è una cosa semplice.

[alfrimpa]

Chiara ma perchè dici che il cerca.vert non va bene

[chiocciolata]

ahaha che destino t'ho proprio chiamato allora

http://www.filedropper.com/dieta
questo dovrebbe essere il file...
scusa ho messo un cerca vert ma mi son sbagliata non centra nulla
quello che vorrei fare sarebbe che se nel foglio 8 nella casella A1 scrivessi PANE TIPO 0 la macro mi copiasse dal foglio lunedi la riga del PANE TIPO 0 da B39 a X39 e me la mettesse nel foglio 8
si può fà??

[alfrimpa]

Scusa Chiara ma il foglio 8 è quello denominato "media sett" perché la numerazione dei fogli arriva fino a Foglio 7.

O forse il foglio 8 lo devo inserire?

E in quale riga del foglio8 (media sett) devono essere copiati i dati? Unicamente nella riga 6)

Cioè tu ogni volta che inserisci un alimento di devono venire fuori i valori di quell'alimento?

Forse mi sbaglio ma credo che sia sufficiente un cerca.vert

E poi tu dici che i dati devono essere presi dal foglio lunedi. E gli altri giorni?

[chiocciolata]

allora si il foglio8 va creato....scusa!!!!!! e i dati dovrebbero venire nella riga 1 ma anche nella 2 e nella 3 se io nelle caselle A1 A2 A3 volessi scrivere 3 diversi alimenti...
è giusto quello che hai detto tu: "Cioè tu ogni volta che inserisci un alimento di devono venire fuori i valori di quell'alimento?"
a me servirebbe questo ...
grazie per l'infinita pazienza

[alfrimpa]

Ciao Chiara

Ti allego file (chiara.xlsm) http://www.filedropper.com/chiara

dove ho inserito il sottostante codice che credo faccia quello che hai chiesto (sempre che abbia capito bene ).

Provalo un po' e fammi sapere.

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim riga As Variant
Dim zona As Range
On Error Resume Next
Set zona = Worksheets("LUNedi").Range("A3:a400")
riga = TrovaParola(zona, Target.Value)
If Not Intersect(Target, Range("a3:a440")) Is Nothing Then
    Worksheets("LUNedi").Range("B" & riga & ":" & "x" & riga).Copy Destination:=Range("B" & Target.Row & ":" & "X" & Target.Row)
End If
End Sub

Codice: Seleziona tutto

Function TrovaParola(Tabella_Dati As Range, parola As Variant) As Variant
    If parola = "" Then
        TrovaParola = ""
     Exit Function
    End If
    TrovaParola = Tabella_Dati.Find(parola, LookAt:=xlWhole).Row
End Function


[chiocciolata]

E' perfetto !! hai capito benissimo ciò che intendevo !!! ora provo a fare delle piccole modifiche così da utilizzarlo anche per altri fogli e imparare e spratichirmi !!!
ti ringrazio veramente moltissimo per l'aiuto provvidenziale

Chiara

[alfrimpa]

Ciao Chiara

Scusami ma sono sempre più convinto che il tutto si poteva risolvere con un banale cerca.vert

Più ci provo.