copiare dati tra fogli

Hai un problema con Excel?

Nuova discussione

copiare dati tra fogli
di accordix data: 01/03/2016 11:26:03
ho un file con diversi fogli rinominati
NA-IN, SA-IN,.........
NA-PR, SA-PR,.........
1 foglio TEST che funge da modello

Dovrei creare un file dal foglio TEST che contenga i fogli IN e PR nei quali venga copiato il contenuto dei fogli *IN e *PR.

allego un file di esempio
di patel data: 01/03/2016 13:13:37
allega anche il nuovo file risultato
di accordix data: 01/03/2016 13:38:53
il file risultante dovrebbe essere generato dal foglio test popolato dai dati degli altri fogli come descritto in precedenza
di accordix data: 01/03/2016 15:35:25
allegato anche il file come dovrebbe risultare

di patel data: 02/03/2016 08:47:05
prova questa

Sub copia()
Set wk = ActiveWorkbook
Sheets("TEST").Copy
Sheets(1).Name = "PR"
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "IN"
For Each sh In wk.Sheets
  If sh.Name <> "TEST" Then
    If Right(sh.Name, 2) = "PR" Then
      LR = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
      LRD = Sheets("PR").Cells(Sheets("PR").Rows.Count, "A").End(xlUp).Row + 1
      sh.Range("A2:D" & LR).Copy Sheets("PR").Cells(LRD, 1)
      sh.Range("F2:F" & LR).Copy Sheets("PR").Cells(LRD, 5)
    Else
      LR = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
      LRD = Sheets("IN").Cells(Sheets("IN").Rows.Count, "A").End(xlUp).Row + 1
      sh.Range("A2:D" & LR).Copy Sheets("IN").Cells(LRD, 1)
      sh.Range("F2:F" & LR).Copy Sheets("IN").Cells(LRD, 5)
    End If
  End If
Next
End Sub

di accordix data: 02/03/2016 10:43:29
funziona solo che mi crea i fogli in Cartel1 come faccio a cambiargli il nome
il foglio che crea il file si chiama TST e dovrebbe chiamarsi TEST anche il file

per il resto funge bene chiaramente se devo aggiungere fogli dove intervengo?
di patel data: 02/03/2016 12:38:22

funziona solo che mi crea i fogli in Cartel1 come faccio a cambiargli il nome - lo salvi col nome che vuoi
il foglio che crea il file si chiama TST e dovrebbe chiamarsi TEST anche il file - non capisco
per il resto funge bene chiaramente se devo aggiungere fogli dove intervengo? - non capisco
di accordix data: 02/03/2016 13:34:41
ho risolto grazie a patel

Ho aggiunto qualche rigo per farla essere funzionale alle mie esigenze
l'unica cosa che non riesco a capire come far chiudere il file creato senza l'intervento dell'operatore
cioe rendere invisibile la cosa

Grazie Pat

ho aggiunto il file modificato
il 2 non
il 3 va bene
di patel data: 02/03/2016 14:21:20
così
End If Next ActiveWorkbook.Close True End Sub

Vuoi Approfondire?