';
pc-facile
Valutazione 4.87/ 5 (100.00%) 5838 voti




Login
Iscriviti
Cerca
Topic senza risposta
Topic attivi
Indice
Assistenza Software
Applicazioni Office Windows

Macro copia dati da un elenco su più fogli.

Rispondi al post

Pagina 1 di 1


Macro copia dati da un elenco su più fogli.
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.

Re: Macro copia dati da un elenco su più fogli.
alfrimpa @ 11/01/18 13:02

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

Re: Macro copia dati da un elenco su più fogli.
alberto80 @ 11/01/18 15:00

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

https://reep.io/d/nullwns3

Re: Macro copia dati da un elenco su più fogli.
alberto80 @ 11/01/18 15:03

Scusate errato link questo è quello giusto http://ge.tt/6g98p3o2

Re: Macro copia dati da un elenco su più fogli.
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.

Re: Macro copia dati da un elenco su più fogli.
alberto80 @ 11/01/18 15:56

Ti ringrazio infinite vedo già che funziona alla grande.

Re: Macro copia dati da un elenco su più fogli.
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.

Re: Macro copia dati da un elenco su più fogli.
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

Re: Macro copia dati da un elenco su più fogli.
alberto80 @ 12/01/18 09:10

Grazie Anthony e Alfredo.


Rispondi al post

Pagina 1 di 1

Torna a Applicazioni Office Windows


Glossario | Blog | Cerca
© 2000-2018 pc-facile.com