[Excel] copiare la stessa cella da 500 fogli ad uno solo

[luca306]

Ciao a tutti,

vi scrivo perchè ho un problema con excel.

ho delle fatture fatte in excel in cui è stato messo anche il numero di cellulare (sempre nella stessa cella per ogni foglio). avrei necessità di copiare il numero di cellulare di ogni fattura (500 fatture/500 fogli) in un nuovo foglio di excel per crearmi una lista di numeri di cellulare.

qualcuno può aiutarmi.??

grazie mille,


Luca

[Flash30005]

potresti mandare uno schema della posizione dei dati iniziali?

di come è costituito il dato
(per vedere se il numero fattura ha una lunghezza standard, se esiste un separatore o qualsiasi altra cosa che si possa prendere come carattere sicuro per separare i due dati)

del nome dei fogli

Insomma più informazioni si hanno è più facilmente si riuscirà a risolvere il tuo problema

Ciao

[luca306]

http://img134.imageshack.us/i/esempiofatt.jpg/

questa è la foto della fattura.

come vedi nel alla cella 14 D ce il numero di cel. ed è cosi per altri 500 fogli..io vorrei un modo per copiare la stessa cella in tutti i fogli e portarla su un unico foglio, cosi da avere la lista dei cellulari.

idee?

grazie..

[Flash30005]

Ok
allora aggiungi un nuovo foglio che chiamerai "Cellulari"
nella cella A1 di questo foglio scrivi "Numero" (o qualsiasi altra cosa)
apri il vba e in un modulo incolla l'intero codice

Codice: Seleziona tutto

Sub FoglioCellulari()
For Each ws In Worksheets
If Worksheets(ws.Name).Name = "Cellulari" Then GoTo salta
UR = Worksheets("Cellulari").Range("A" & Rows.Count).End(xlUp).Row + 1
    Worksheets("Cellulari").Range("A" & UR).Value = Worksheets(ws.Name).Range("D14").Value
salta:
Next ws
End Sub

Avvia la macro e vedi se va bene

Fai sapere
ciao

[Anthony47]

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.

[luca306]

ci sono riuscito. mi ha estrapolato i numeri.

grandi ragazzi. siete fantastici.

grazie mille!!!!!




Luca

[Flash30005]

Si, ma penso che debba seguire il consiglio di Anthony, perché anche io mi sono domandato:
cosa te ne fai dei soli numeri senza più il riferimento delle persone ai quali appartengono?

Comunque se sei soddisfatto così lo siamo anche noi

Ciao