Excel, confronto tra celle e se un'altra contenga l'Email...

[mariete]

Salve a tutti, sono un nuovo iscrito e, già con un problema da sottoporvi.
Ho una cartella Ecel in cui ci sono due fogli di lavoro, "2013" e "PRIVACY", i quali contengono:

2013 ==> col. D - cognome
col. E - nome
col. F - indirizzo
col. G - c.a.p.
col. H - città

PRIVACY ==> col. A - cognome/nome
col. B - indirizzo Email

Avrei bisogno di fare una macro e/o una funzione, ma non sono capace, che faccia in modo che:
1) foglio 2013: nella colonna "I" della stessa riga, appaia "@" se c'è la corrispondenza tra col. A "cognome" + col."B" nome" del foglio 2013, con la col. "A" del foglio PRIVACY e che sia presente l'Email, mentre se manca l'Email appaia "PRIVACY".
2) nel foglio "PRIVACY": in colonna "C" appaia "SOCIO" se il cognome/nome sia presente in foglio 2013, col. "A"+"B" e "NUOVO" se qualora non ci fosse.
P.S. il tutto deve funzionare su Excel XP/2003 e 2010.

Ringrazio find'ora tutti coloro mi aiuteranno in questo mio problema.
Ciao.

[mariete]

P.S. Dimenticavo di dirvi che gli elenchi sono compost da 500 righe.

CIAO.

[Flash30005]

Ciao Mariete e benvenuto nel Forum
Sarà per la digestione ma non riesco a capire i vari collegamenti e ciò che deve essere fatto
potresti inviare un file (modificando dati sensibili) usando questo server?

ciao

[mariete]

Ciao Flash30005,
non sò se ho fatto giusto, dovrei avertelo inviato pur non conoscendo quel link che mi hai dato precedentemente.
Spero D'aver fatto tutto giusto e che quel file ti sia chiaro, ev. fammi sapere.
Ciao, e grazie.

[Flash30005]

Ma dove lo hai inviato?
dopo aver effettuato l'upload sul server da me indicato, il server fornisce un link che devi inserire nel post per darci la possibilità di scaricare il file.
Tu non hai inserito alcun link nel post

ciao

[mariete]

Ciao Flash30005,
spero stavolta di esserci riuscito, dovrebbe essere questo: http://www.filedropper.com/test_21
Aggiungo una cosa, i dati tra i fogli 2013 e PRIVACY sono da cercare nel range dalla 2° alla 500° riga.
Ciao e grazie.

[Flash30005]

Con questa macro dovresti risolvere

Codice: Seleziona tutto

Sub CompilaFF()
Ws1 = "2013"
Ws2 = "PRIVACY"
UR1 = Worksheets(Ws1).Range("D" & Rows.Count).End(xlUp).Row
UR2 = Worksheets(Ws2).Range("A" & Rows.Count).End(xlUp).Row
Worksheets(Ws2).Range("C2:C" & UR2).Value = "nuovo"
For RR1 = 2 To UR1
NomeC = UCase(Trim(Sheets(Ws1).Range("D" & RR1).Value)) & " " & UCase(Trim(Sheets(Ws1).Range("E" & RR1).Value))
For RR2 = 2 To UR2
If UCase(Trim(Sheets(Ws2).Range("A" & RR2).Value)) = NomeC Then
Sheets(Ws2).Range("C" & RR2).Value = "socio"
If Sheets(Ws2).Range("B" & RR2).Value <> "" Then
Sheets(Ws1).Range("I" & RR1).Value = "@"
Else
Sheets(Ws1).Range("I" & RR1).Value = "privato"
End If
GoTo SaltaRR1
End If
Next RR2
SaltaRR1:
Next RR1
End Sub

Fai attenzione che hai dei campi sporchi nel foglio "2013" (degli spazi alla fine dei nomi, spazi che dovresti eliminare anche se ho "rimediato" con la funzione Trim)

[mariete]

Ciao Flash30005,
sei GRANDEEE! funziona benissimo, mi hai sollevato di un bel problema.
GRAZIE.

[mariete]

Ciao Flash30005,
ho un'altro quesito da sottoporti :
sempre per lo stesso file, avrei bisogno di inviare una mail con dei file allegati (pdf, doc, jpg), tramite OUTLOOK e/o WINDOWS LIVE MAIL, il testo e allegati sono uguali per tutti e dev'essere inviata a tutti gli indirizzi presenti nella colonna "B" del foglio "PRIVACY", ma non sò come fare, ho guardato anche un pò in giro, ma non ho trovato niente che vada bene.
Grazie.

[Flash30005]

Strano, perché l'argomento è stato trattato più volte (forse hai guardato in giro ma non in questo Forum)

Proprio ieri ho pubblicato una email che si avvia secondo scadenze
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=98103&start=20
Vedi il post delle 15:42

ciao

[mariete]

Ciao Flash30005,
ho gauardato sia quì che in altri forum, ma non ho trovato (almeno per quel che ne capisco io) niente che possa andar bene.
Ho guardato il link che mi hai segnalato, ma non capisco come posso adattarlo al mio problema o non sono in grado di farlo, magari è più semplice di quanto penso. AIUTOOO!!!!
Deve funzionare sia tramite OUTLOOK che WINDOWS LIVE MAIL, o sono uguali? nel link mi sembre di capire che funzioni solo su Outlook, o sbaglio?
Grazie.