Condividi:        

URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

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

URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi genik83 » 28/08/13 09:32

Buongiorno a tutti,
scusate se ho scritto urgente ma avrei bisogno di una macro per copiare i dati contenuti all'interno di alcune celle specifiche.
Ho un file con molti fogli, rinominati in modo differente, ed avrei bisogno di copiare in un altro foglio vuoto le seguenti celle, con i valori che vengono riportati uno sotto l'altro:
G76
F70
H201
E83
C85
I85
C26
G10
Questo deve essere fatto per tutti i fogli e il risultato deve uscire in un unico foglio.
Grazie, spero in una vostra risposta.
genik83
Utente Junior
 
Post: 19
Iscritto il: 07/02/13 22:19

Sponsor
 

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi scossa » 28/08/13 14:07

Ciao,

nel modulo di classe del foglio dove vuoi il riepilogo metti questo codice:
Codice: Seleziona tutto
Private Sub prova()

  Dim rngFr As Range
  Dim cella As Range
  Dim ws As Worksheet
  Dim nLR As Long
 
  nLR = 1
  For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> Me.Name Then
      Set rngFr = ws.Range("G76,F70,H201,E83,C85,I85,C26,G10")
      For Each cella In rngFr
        Me.Cells(nLR, 1).Value = cella.Value
        nLR = nLR + 1
      Next
    End If
  Next ws
  Set rngFr = Nothing
End Sub
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi genik83 » 28/08/13 14:12

grazie per la risposta
ho inserito un nuovo foglio, con alt+f11 ho aperto la schermata e inserito il codice in un nuovo modulo ma dice utilizzo non valido della parola chiave me (nella riga: If ws.Name <> Me.Name Then)
genik83
Utente Junior
 
Post: 19
Iscritto il: 07/02/13 22:19

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi scossa » 28/08/13 14:15

genik83 ha scritto:grazie per la risposta
ho inserito un nuovo foglio, con alt+f11 ho aperto la schermata e inserito il codice in un nuovo modulo ma dice utilizzo non valido della parola chiave me (nella riga: If ws.Name <> Me.Name Then)


Non devi metterlo in un nuovo modulo ma nel modulo del foglio che hai inserito.
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi genik83 » 28/08/13 14:22

riporta sempre lo stesso errore
genik83
Utente Junior
 
Post: 19
Iscritto il: 07/02/13 22:19

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi scossa » 28/08/13 15:51

genik83 ha scritto:riporta sempre lo stesso errore


Hai inserito il codice nel modulo sbagliato, allega il file così verifichiamo.
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi Anthony47 » 28/08/13 22:14

Per essere certo di inserire il codice nel posto giusto:
-vai sul foglio dove vuoi creare il riepilogo
-tasto dx sul tab col nome del foglio, scegli Visualizza codice
-inserisci la macro nel frame di dx della finestra che si apre.
-prova...
E se anche cosi' non funziona allora segui il consiglio di Scossa: "allega il file così verifichiamo" (meglio se alleghi quello che contiene il codice che va in errore).

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

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi Flash30005 » 29/08/13 03:49

Vedi quanto scritto da Scossa e Anthony

Nel frattempo, per facilitare l'approccio, ti ho preparato un file test con la macro di Scossa
Apri il mio file ed elimina i fogli: Foglio1, Foglio2 e Foglio3, lasciando solo il foglio "Riepilogo"
Apri il tuo file con i fogli contenenti i dati selezioni tutti i fogli (solo quelli che devi riportare in riepilogo)
vai sul Menu -> Modifica selezioni "Sposta o copia Foglio"
Spunti "crea una copia"
e selezioni la cartella di destinazione (miofile che avrà solo il foglio Riepilogo)
Premi ok
Chiudi il tuo file dati senza salvare
Rimanendo aperto il file che ti ho inviato e posizionandoti sul foglio "Riepilogo" premi il pulsante "Avvio"

ciao

download file test
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi Anthony47 » 29/08/13 21:45

Ma cosi' l' utente trova la pappa gia' fatta e non impara niente...
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi Flash30005 » 30/08/13 00:43

Nessuno imparerà mai se non ha voglia di imparare in pratica è un "inappetente" ma se assaggia qualcosa forse gli viene "appetito" ;)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi Anthony47 » 30/08/13 17:41

Io frequento piu' "la necessita' aguzza l' ingegno", dopo aver comunque dato all' utente almeno uno spunto su cui ragionare (ma in questo caso l' utente ha avuto ben piu' di uno spunto); inoltre un file gia' fatto non fa capire la differenza tra un "Modulo standard" e un "Modulo di foglio".

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

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi Flash30005 » 30/08/13 23:14

Perdona ma ho dato molta importanza a ciò che è scritto nel Topic "Urgente" (Per Favore)
(aspettiamo ad avere un feedback dell'utente, ok?)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi genik83 » 07/10/13 09:20

Grazie ragazzi.
La macro funziona perfettamente!!!
Scusate il ritardo ma non avevo ricevuto le notifiche delle risposte e nella disperazione più totale ho ricercato il post creato.
genik83
Utente Junior
 
Post: 19
Iscritto il: 07/02/13 22:19

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi genik83 » 08/10/13 09:27

Ciao, scusate il disturbo,
avrei bisogno che i dati venissero ordinati in righe, una sotto l'altra e non incolonnati.
Ad esempio ipotizziamo che debba estrarre le celle a1 b15 c18, vorrei che i dati venissero riportati così:
a1 b15 c18
a1 b15 c18
a1 b15 c18
quindi una riga per ogni foglio dal quale le estrae.
Grazie mille in anticipo
genik83
Utente Junior
 
Post: 19
Iscritto il: 07/02/13 22:19

Re: URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE

Postdi scossa » 08/10/13 12:37

genik83 ha scritto:Ciao, scusate il disturbo,
avrei bisogno che i dati venissero ordinati in righe, una sotto l'altra e non incolonnati.
Ad esempio ipotizziamo che debba estrarre le celle a1 b15 c18, vorrei che i dati venissero riportati così:
a1 b15 c18
a1 b15 c18
a1 b15 c18
quindi una riga per ogni foglio dal quale le estrae.
Grazie mille in anticipo


Sostituisci la macro precedente con questa:

Codice: Seleziona tutto
Private Sub prova()

  Dim rngFr As Range
  Dim cella As Range
  Dim ws As Worksheet
  Dim nLR As Long
  Dim nLC As Long
 
  nLR = 1
  nLC = 1
  For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> Me.Name Then
      Set rngFr = ws.Range("A1,B15,C18")
      For Each cella In rngFr
        Me.Cells(nLR, nLC).Value = cella.Value
        nLC = nLC + 1
      Next
      nLR = nLR + 1
      nLC = 1
    End If
  Next ws
  Set rngFr = Nothing
End Sub
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona


Torna a Applicazioni Office Windows


Topic correlati a "URGENTE PER FAVORE: MACRO PER COPIARE CELLE SPECIFICHE":


Chi c’è in linea

Visitano il forum: Nessuno e 43 ospiti