Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

copia da foglio a foglio (excel)

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

copia da foglio a foglio (excel)

Postdi abgate » 21/04/18 15:29

Buon pomeriggio
scrivo per la prima volta e quindi un saluto a tutti.
Vi espongo il mio problema, ho provato a cercare e ho trovato qualcosa di simile, ma non funziona e vorrei capire cosa c'è di sbagliato anche perchè non me ne intendo per nulla o quasi. ok.
in una cartella di lavoro excel ho una serie di fogli il "foglio 1" nominato "database", ho una serie di dati, nel "foglio 2" nominato "database estrapolato" ho gli sessi dati del "database" ma con alcune colonne in meno, in totale in database estrapolato sono occupale le colonne fino a G e 8500 righe. successivamente ci sono altri 18 fogli nominati con il nome di 18 regioni "ABRUZZO" "LAZIO" TOSCANA" ECC..le regioni sono riportate anche nella colonna A a partire dalla A2 del foglio "database estrapolato".
quello che dovrei fare è eseguire una macro che legga la regione riportata in "database estrapolato" e vada a ricopiare l'intera riga adiacente, nel foglio con la stessa regione a meno della della regione stessa.
riporto il codice trovato e modificato da me ma non fa nulla. mi scuso ma sono alquanto neofita.
grazie per l'aiuto

Codice: Seleziona tutto
 Sub Copiadatabse()
Set Ws2 = Worksheets("database estrapolato")
    Set Ws2 = Worksheets(Format(Ws2.Range("A2"), "00"))
    UR = 2
    For i = 2 To 8500
            Ws2.Range("A" & i & ":G" & i).Copy Destination:=Ws2.Range("A" & UR & ":G" & UR)
            UR = UR + 1
    Next i
    'Sheets("Foglio2").Select
    End Sub
abgate
Newbie
 
Post: 7
Iscritto il: 21/04/18 14:25

Sponsor
 

Re: copia da foglio a foglio (excel)

Postdi alfrimpa » 21/04/18 17:03

Senza un file esempio è difficile ma prova

Codice: Seleziona tutto
Ws2.Range("A" & i & ":" & "G" & i).Copy Destination:=Ws2.Range("A" & UR)
Alfredo

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

Re: copia da foglio a foglio (excel)

Postdi alfrimpa » 21/04/18 17:31

Se anche questa modifica non dovesse andare allega un file di esempio con pochi record ed inserisci a mano il risultato che vuoi ottenere.

Se ho capito tu hai un file con un database di 8.500 righe che riportano nella prima colonna le regioni.

Poi hai tanti fogli quanti sono le regioni.

Vuoi che in ogni foglio di una regione vengano copiati solo i suoi record?

È corretto?
Alfredo

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

Re: copia da foglio a foglio (excel)

Postdi abgate » 23/04/18 16:53

grazie per la pronta risposta e scusate il ritardo, allego il file excel di esempio, purtroppo anche con quella modifica, la macro non funziona.
sì alfrimpa, è quello che vorrei ottenere. Il file che ho inserito contiene poche righe ma le esatte colonne, spero sia chiaro
https://we.tl/SNU9uwXpAr
abgate
Newbie
 
Post: 7
Iscritto il: 21/04/18 14:25

Re: copia da foglio a foglio (excel)

Postdi alfrimpa » 23/04/18 18:18

Ciao abgate.

Con il file tutto è più semplice.

Questa è la macro

Codice: Seleziona tutto
Sub estrapola()
Dim i As Integer
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
ur = Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Sheets("Foglio1").Range("a2:a" & ur)
For Each cel In rng
    lr = Sheets(cel.Value).Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To 6
            Sheets(cel.Value).Cells(lr + 1, i).Value = cel.Offset(0, i).Value
        Next i
Next cel
End Sub


Fai sapere.
Alfredo

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

Re: copia da foglio a foglio (excel)

Postdi abgate » 23/04/18 18:55

Grazie mille alfrimpa, la macro funziona perfettamente, l'unica cosa, che io stesso non avevo specificato, è che lanciando la macro più volte, copia i valori già copiati in precedenza, ma non è un grosso problema. :)
abgate
Newbie
 
Post: 7
Iscritto il: 21/04/18 14:25

Re: copia da foglio a foglio (excel)

Postdi alfrimpa » 23/04/18 19:17

Beh la modifica (abbastanza banale) la lascio a te.

Non ci vuoi provare?
Alfredo

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


Torna a Applicazioni Office Windows


Topic correlati a "copia da foglio a foglio (excel)":


Chi c’è in linea

Visitano il forum: Nessuno e 76 ospiti