Copiare valori da un foglio ad un altro in base a numero pro

[Alea]

Ti chiedo scusa Flash ma sinceramente non ho capito bene cosa volevi intendere con quello che hai scritto.
Mi chiedi se posso allegare i file oppure mi dici che per la soluzione ci si deve impiegare molto tempo e che al momento non ne hai ha disposizione?
Ciao

[Flash30005]

?
No ho solo detto che l'aggiornamento lo puoi fare cancellando (tramite macro) ciò che avevi scritto precedentemente e ogni volta riscrivi di nuovo tutte le righe, così eviti righe duplicate dovuta ad aggiornamenti successivi.
Per fare questo devi solo registrare una macro che cancella le righe nell'elenco.
Fermi la registrazione e utilizzerai questa macro prima della macro "AggiornaELENCO" senza utilizzare il controllo se Ref.Range("B160") è 0 o A o altro

Se vuoi inviare i file (Elenco e CB-Tech), puoi farlo, volendo anche in MP

Ciao

[Alea]

Non credo sia possibile, nel mio caso, cancellare e riscrivere tutte le righe. Il file Elenco è una sorta di riepilogo delle offerte che faccio. Le offerte sono fatte con il file CB-TECH che viene salvato di volta in volta in cartelle distinte per ogni progetto.
Ti allego comunque i due file così puoi dare un occhiata.
Grazie e ciao
CB-Tech_Clienti_WORD.xls - 1.9 MB
Elenco1.xls - 347.5 KB

[Flash30005]

Prova a modificare la macro "AggiornaElenco" in questa maniera

Codice: Seleziona tutto

Sub AggiornaELENCO()
If Trim(Sheets("Ref").Range("B160")) <> Trim(Sheets("QGL10.03b").Range("H3").Value & Sheets("QGL10.03b").Range("I3").Value) Then
Call Aggiorna
Sheets("Ref").Range("B160") = Sheets("QGL10.03b").Range("H3").Value & Sheets("QGL10.03b").Range("I3").Value
Else
MsgBox ("Dati gia' caricati")
End If
End Sub

Ciao

[Alea]

Nel pomeriggio provo.
Grazie mille intanto