macroexcel x selezionare ultima data e testo specifico

[macio66]

Buongiorno
free image hosting

volevo sapere se è possibile, tramite macro, inserire un nominativo (per esempio tramite InputBox) presente nella colonna "A" del foglio1 e da questo trovare l'ultima data presente nella colonna "B" e se nella colonna "C" è presente il testo "mancante", riportando i dati nel foglio2 nella prima riga disponibile.
Nell'immagine che ho allegato come esempio, se cerco il nome "A" la data dovrebbe essere "01-apr" e il testo "mancante" per il nome "a" è presente, quindi riportarlo nel foglio2
Grazie

[patel]

nella riga 20 è presente il nome a, la data del 01-apr ma mon il testo "mancante"

[macio66]

ciao patel
Il mio problema è proprio quello.
Infatti ho la necessità di trovare per il nominativo la riga con l'ultima data (per il nome a, la riga 20), dove devo prelevare altri dati in altre colonne, oltre alla data , ma nello stesso tempo, mi serve sapere se nella tabella per il nome a è presente il testo "mancante" e inserirlo nella riga nel foglio2

[ricky53]

Ciao,
riepilogo quanto ho capito:
dopo aver selezionato un nominativo dall'InputBox,
scorrere la colonna "A" e trovare l'ultima riga in cui è presente questo nominativo
controllare se la colonna "C2 contiene la dicitura "mancante" e se è così
allora
copiare nome e data delle colonne "A" e "B" in un altro foglio accodandoli ai dati esistenti ... su riga e colonna di destinazione non fornite.

IMPORTANTE: non hai detto in quali celle, del foglio 2, si devono copiare i dati!

[macio66]

Ciao Rocky
Si è corretto (la colonna C è tutta da verificare).
Per quanto riguarda le colonne del foglio2, sono le stesse del foglio1

[Anthony47]

Io pero' non ho capito su che cosa, di tutto quello che hai detto, stai chiedendo aiuto...
Con queste istruzioni dovresti trovare rispettivamente:
-La riga ultima in cui compare un Nome; la Data di col B (invece del numero riga)
-La riga ultima in cui un Nome e' anche "mancante"; la Data (invece del numero riga)

Codice: Seleziona tutto

nome = "b"             '<<< Il nominativo da sondare
RigaNome = Evaluate("max(if((A1:A10000=""" & nome & """),row(B1:B10000),""""))")

DataNome = Evaluate("max(if((A1:A10000=""" & nome & """),B1:B10000,""""))")

RigaMiss = Evaluate("max(if((A1:A10000=""" & nome & """)*(C1:C10000=""mancante""),row(B1:B10000),""""))")

DataMiss = Evaluate("max(if((A1:A10000=""" & nome & """)*(C1:C10000=""mancante""),B1:B1000,""""))")


Vedi se qualcosa ti aiuta

Ciao

[macio66]

Ciao Anthony
provo a spiegarmi meglio.
Per quanto riguarda trovare l'ultima data riferita ad un nome, pensavo di risolverla ordinando prima la tabella per data (ordine decrescente) e poi tramite un cerca verticale mi posiziono sulla prima riga in cui il nome compare nella colonna A e poi, tramite " ActiveCell.Offset(0, 1).Select", copio la data. Il mio problema e capire se per quel nome, anche in date precedenti ce stato un mancato prelievo e se ce stato, copiare o la scritta mancante o scrivere un "si" nella riga che compilo nel foglio2.
Spero sia più chiaro quello che volevo.
Comunque ora provo se quello che hai postato mi può servire.
Grazie

[macio66]

Ciao Anthony
Grazie quello che hai postato è perfetto.
Ti chiedo ancora una cosa, se oltre alla data più recente, volessi copiare il numero di prelievo effettuato, come devo modificare il "DataNome" (mi sembra più funzionale che usare "ActiveCell.Offset(0, 1).Select", per spostarmi di colonna).
Grazie ancora