riportare data affianco dato

Hai un problema con Excel?

Nuova discussione

riportare data affianco dato
di alexpag (utente non iscritto) data: 08/08/2014 20:48:05
Ciao a tutti.....vi esprimo il mio problema:
devo riportare la data dell'ultimo ordine effettuato da una determinata partita iva affianco alla colonna che contiene tutte le partite iva.
1) per primo devo eliminare gli ordini della stessa partita iva lasciando per buono solo il più recente
2) riportare affianco alla colonna con tutte le partite iva la data dell'ultimo ordine

spero di essere stato chiaro (adesso non dispongo di un esempio perché sono a casa)

grazie a chi mi aiuterà
di lepat (utente non iscritto) data: 09/08/2014 07:45:28
quando disporrai dell'esempio (xls, no immagini) proverò ad aiutarti
di alexpag (utente non iscritto) data: 09/08/2014 17:54:55
ecco qui allegato il file:

ho già eliminato le partite iva della colonna C che hanno fatto più ordini lasciando solo l'ultima data, ma lho fatto manualmente e vorrei farlo in automatico.
Poi mi servirebbe copiare in automatico la data della colonna D nella colonna B ma nella riga corrispondente alla partita iva.
di lepat (utente non iscritto) data: 09/08/2014 18:08:12
l'esempio deve essere realistico, perché hai già eliminato le partite iva della colonna C che hanno fatto più ordini ?
di lepat (utente non iscritto) data: 09/08/2014 18:10:17
allega un file con la situazione PRIMA e DOPO
di alexpag (utente non iscritto) data: 09/08/2014 23:34:18
allegato il file con i doppi da eliminare....si deve lasciare la data più recente e riportarla nella colonna B affianco alla partita Iva corrispondente. Grazie mille in anticipo
di lepat (utente non iscritto) data: 10/08/2014 09:30:12
I dati nelle colonne D E sono già ordinati ? la data più recente è al primo posto ?

di lepat (utente non iscritto) data: 10/08/2014 09:50:05
se è così prova questa macro dopo aver impostato il formato data nella colonna C

Sub a()
LRD = Cells(Rows.Count, "D").End(xlUp).Row
LRA = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("A2:A" & LRA)
For r = 2 To LRD
  If Cells(r, "D") = Cells(r - 1, "D") Then
  Else
    rfound = Rng.Find(Cells(r, "D")).Row
    Cells(rfound, "C") = Cells(r, "E")
  End If
Next
End Sub

di Alexpag (utente non iscritto) data: 10/08/2014 11:01:19
E se invece,come nel primo file allegato , ho già eliminato le date in più,quindi ce n'è solo una,quella da riportare,non si può fare con una formula invece di una macro ?
di lepat (utente non iscritto) data: 10/08/2014 11:40:55
metti questa formula in C2
=SE(VAL.NON.DISP(CERCA.VERT(A2;$D$2:$E$44;2;FALSO));"";CERCA.VERT(A2;$D$2:$E$44;2;FALSO))
di alexpag (utente non iscritto) data: 11/08/2014 11:03:42
funziona sia la macro che la formula....grazie mille

Vuoi Approfondire?