DIVIDERE DATABASE IN PIU' FOGLI

Question

Buongiorno,

ho la seguente casistica:

• sul foglio 3, ho un elenco di nominativi posti dalla cella C2.
• sul foglio 4, invece, ho un template già costruito in modo tale che si "popoli" inserendo nella cella F16 uno dei nominativi presenti nella colonna C del foglio 3, grazie ai dati nei fogli 1 e 2.

Di conseguenza, con una macro riesco a duplicare il foglio 4 in tanti fogli quanti sono i nominativi presenti sul foglio 3, ma avrei bisogno anche che in tutti i fogli duplicati si inserisca nella cella F16 per ogni foglio un solo nominativo, in modo tale da avere tutti i template per ogni nominativo.

In definitiva, vorrei inserire in successione un singolo nominativo presente nella colonna C del foglio 3 nella cella F16 per ogni foglio 4 duplicato.

Spero di essere stato chiaro.

Grazie

Walter

Answer 1

Penso che l'errore sia causato dal traduttore, si prega di vedere come dovrebbe essere il codice, vedere anche l'immagine nel caso in cui venga tradotta di nuovo

Sub DuplicaFogli() Dim i come intero Dim ws come foglio di lavoro Dim sh come foglio di lavoro Set ws = Fogli("Foglio3") Set sh = Fogli("Foglio4") Per i = 2 A ws. Celle (ws. Rows.Count, "C"). Fine(xlSu). Fila sh. Copia dopo:=Fogli(Fogli.Count) ActiveSheet.Name = ws. Celle(i, "C"). Valore Metodo ActiveSheet.Intervallo("F16"). Valore = ws. Celle(i, "C"). Valore Avanti i Fine sub

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 2

Ecco l'errore

Answer 3

Mi dispiace sentire che stai riscontrando un errore di sintassi. È possibile fornire ulteriori dettagli sul messaggio di errore visualizzato? Questo mi aiuterà a capire meglio il problema e fornire una soluzione più accurata.

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 4

Buongiorno AnnaThomas,

grazie per la risposta.

Purtroppo, Excel mi restituisce subito un errore di sintassi :(

Answer 5

Ciao Walter

Sono AnnaThomas e sarei felice di aiutarti con la tua domanda. In questo forum, siamo consumatori Microsoft proprio come te.

Ecco un esempio di macro che dovrebbe raggiungere questo obiettivo:

Sub DuplicateSheets() Dim i come intero Dim ws come foglio di lavoro Dim sh come foglio di lavoro Set ws = Fogli("Foglio3") Set sh = Fogli("Foglio4") Per i = 2 A ws. Celle (ws. Rows.Count, "C"). Fine(xlUp). Fila sh. Copia dopo:=Fogli(Fogli.Conteggio) ActiveSheet.Name = ws. Celle(i, "C"). Valore Metodo ActiveSheet.Range("F16"). Valore = ws. Celle(i, "C"). Valore Avanti i Fine sub

Spero che questo aiuti ;-), fammi sapere se questo è contrario a ciò di cui hai bisogno, sarei comunque utile per rispondere a più delle tue domande.

Migliori saluti

AnnaThomas

Restituisci alla comunità. Aiuta la persona successiva con questo problema indicando se questa risposta ha risolto il tuo problema. Fare clic su Sì o No nella parte inferiore.

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.