Solo un suggerimento sulla macro di Flash, che fa quanto richiesto:
1) Invece di
Worksheets(Ws.Name).etc si puo' usare solo
Ws.etc (...ovviamente)
2) Se oltre a riportare il N° di cellulare vuoi anche riportare a chi appartiene, basta aggiungere altre istruzioni simili a quelle che copiano il N°, ad esempio per il nominativo:
- Codice: Seleziona tutto
Worksheets("Cellulari").Range("B" & UR).Value = Ws.Range("C9").Value
(copia C9 in colonna B)
Se mentre copi vuoi controllare se il numero esiste gia' (e ometterlo) puoi variare da
UR = Worksheets("Cellulari").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("Cellulari").Range("A" & UR).Value = Ws.Range("D14").Value
salta:
a
- Codice: Seleziona tutto
UR = Worksheets("Cellulari").Range("A" & Rows.Count).End(xlUp).Row + 1
CurCell = Ws.Range("D14").Value & ""
If Application.WorksheetFunction.CountIf(Worksheets("Cellulari").Range("A:A"), CurCell) > 0 Then GoTo salta
Worksheets("Cellulari").Range("A" & UR).Value = CurCell
'istruzioni pper copiare altri dati, es Nominativo etc
salta:
Tuttavia io suggerirei di copiare tutto, per poter verificare la corretta esecuzione della macro, filtrando in una fase successiva tutte le righe che sono gia' presenti in elenco ed eliminandole.
Ciao a tutti.