Condividi:        

Macro copia dati da un elenco su più fogli.

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro copia dati da un elenco su più fogli.

Postdi alberto80 » 11/01/18 12:52

Salve ho provato a vedere nei topic storici ma non ho trovato nulla che poteva aiutarmi in questa problematica, vi chiedo cortesemente se potete essermi di aiuto, provo a spiegare quanto mi necessità:

Foglio di nome indice con una colonna A1 con una sequenza di dati partendo da A1 fino a A100; "esempio 100 dati"
Vari fogli di nome 5001-5006-5011 ecc.. "sono n fogli quante i dati in colonna sul foglio indice" "esempio 100 fogli"

Il mio scopo è il seguente:
Ho necessità che il primo dato A1 del foglio Indice va a copiarsi nel primo foglio di nome 5001 nella posizione H7;
poi segue la routine secondo data A2 del foglio indice va a copiarsi nel secondo foglio di nome 5002 nella posizione H7;
quindi sempre la stessa posizione per tutti i fogli fino a concludere la lista nel foglio indice.

Particolarità:
1)vorrei che non ci fosse relazione tra la posizione del dato nel indice e il nome del foglio che riceverà il dato questo perché i fogli hanno nomi non sequenziali, 5001- 5006 -5011 -6012 -ecc; ma una semplice contatore del tipo dato 1 nel primo foglio e poi dato 2 nel secondo foglio e cosi via.
2)Vorrei che la funzione di copia continuasse fino all'ultimo dato disponibile dell'indice quindi anche se fossero 1000 dati per 1000 fogli.

Risultato finale: Avrò 100 fogli con all'interno della cella H7 il valore di ogni posizione della colonna presente nel foglio indice.

I valore nella colonna indice sono numerici e di testo.


Grazie per un eventuale aiuto.

Saluti.
alberto80
Utente Junior
 
Post: 11
Iscritto il: 11/01/18 12:28

Sponsor
 

Re: Macro copia dati da un elenco su più fogli.

Postdi alfrimpa » 11/01/18 13:02

Alberto allega un file di esempio con pochi dati e mostraci (inserendolo manualmente) il risultato che vuoi ottenere.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Macro copia dati da un elenco su più fogli.

Postdi alberto80 » 11/01/18 15:00

Si ti ringrazio, ho provato a farti un esempio sul file allegato.

https://reep.io/d/nullwns3
alberto80
Utente Junior
 
Post: 11
Iscritto il: 11/01/18 12:28

Re: Macro copia dati da un elenco su più fogli.

Postdi alberto80 » 11/01/18 15:03

Scusate errato link questo è quello giusto http://ge.tt/6g98p3o2
alberto80
Utente Junior
 
Post: 11
Iscritto il: 11/01/18 12:28

Re: Macro copia dati da un elenco su più fogli.

Postdi alfrimpa » 11/01/18 15:44

Visto l'esempio una macro potrebbe essere questa

Codice: Seleziona tutto
Sub InserisciValoriInFogli()
Dim i As Integer
Dim ur As Integer
ur = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To ur
    Range("a" & i).Copy Destination:=Sheets(i - 1).Range("H7")
Next i
End Sub


ma nel file ci devono già essere tutti i fogli necessari.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Macro copia dati da un elenco su più fogli.

Postdi alberto80 » 11/01/18 15:56

Ti ringrazio infinite vedo già che funziona alla grande.
alberto80
Utente Junior
 
Post: 11
Iscritto il: 11/01/18 12:28

Re: Macro copia dati da un elenco su più fogli.

Postdi alberto80 » 11/01/18 17:27

Cortesemente ho provato e la macro è va una meraviglia,
mi sono accorto che la copia mi va a cancellare i bordi delle celle di destinazione c'è un'altra funzione che può essere usata che trasporta solo il valore della cella di origine?
Questo per non modificare la struttura a tabella dei fogli di destinazione che hanno celle con bordi.
Grazie.
alberto80
Utente Junior
 
Post: 11
Iscritto il: 11/01/18 12:28

Re: Macro copia dati da un elenco su più fogli.

Postdi Anthony47 » 11/01/18 23:50

Nel codice di Alfredo, sostituisci
Range("a" & i).Copy Destination:=Sheets(i - 1).Range("H7")
Con
Codice: Seleziona tutto
    Range("a" & i).Copy
    Sheets(i - 1).Range("H7"). PasteSpecial Paste:=xlPasteValues


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro copia dati da un elenco su più fogli.

Postdi alberto80 » 12/01/18 09:10

Grazie Anthony e Alfredo.
alberto80
Utente Junior
 
Post: 11
Iscritto il: 11/01/18 12:28


Torna a Applicazioni Office Windows


Topic correlati a "Macro copia dati da un elenco su più fogli.":


Chi c’è in linea

Visitano il forum: Nessuno e 51 ospiti