Condividi:        

Aiuto per macro 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

Aiuto per macro excel

Postdi vittoriol » 08/07/14 23:11

Devo registrare le iscrizioni a 10 turni di vacanze estive con circa 120 nominativi a turno. Ho creato
un foglio dove immetto i dati del richiedente, il turno scelto, il tipo di camera ecc.
Ho fatto una RIGA che riassume i dati che devo copiare in Archivi dei turni (1), o )2), o (3)... ecc.) più un foglio riassuntivo di tutte le iscrizioni. Per questo avrei bisogno di una macro che assegnasse ogni iscrizione, una dopo l’altra, ai fogli 1,2,3 ecc. + al foglio riassuntivo. La cella di riferimento al turno e la D6. (Variabile) Chiedo troppo? Spero di no.
Grazie per l'attenzione
Vittorio
P.S. Ho trovato in interne una macro che svolge questa funzione ma devo avere un "tasto" per ogni turno più un "tasto" per l'archivio.
Vorrei semplificare
Grazie ancora
vittoriol
Newbie
 
Post: 5
Iscritto il: 06/07/14 14:34

Sponsor
 

Re: Aiuto per macro excel

Postdi aurelio37 » 09/07/14 09:13

Sposto in Applicazioni Office Windows
Avatar utente
aurelio37
Moderatore
 
Post: 2736
Iscritto il: 07/02/07 11:36
Località: Milano

Re: Aiuto per macro excel

Postdi ricky53 » 10/07/14 11:10

Ciao,
invia la macro ... forse si può adattare senza farne una nuova.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Aiuto per macro excel

Postdi vittoriol » 10/07/14 22:36

Sub Macro4()

' Macro4 Macro
'Sub Macro1()

' --- imposta come foglio di destinazione il foglio4
Dim FoglioDestino As Object
Set FoglioDestino = Foglio4

' --- imposta come intervallo di destinazione la prima riga vuota partendo dall'ultima (A65536)
' --- l'intervallo deve essere ridimensionato con lo stesso numero di colonne contenute
' --- nell'intervallo di origine, in questo esempio l'intervallo di origine è composto da 4 colonne
' --- dato che è rappresentato dalle celle A2:D2 e quindi con Resize l'intervallo di destinazione
' --- che è composto da una sola colonna (A) viene ridimensionato a 4
Dim RangeDestino As Range
Set RangeDestino = FoglioDestino.Cells(65536, 1).End(xlUp).Offset(1, 0).Resize(1, 11)
'Workbook_Activate()
Application.Sheets(1).Cells(4, 1) = Application.Sheets(1).Cells(4, 1) + 1
' --- con questa istruzione le formule contenute nel foglio di origine vengono trasformate in
' --- valori nel foglio di destinazione
RangeDestino.Value = Range("A52:k52").Value

MsgBox "Dati copiati!!", vbInformation, " E vai!!!!"

End Sub


Ecco la macro usata per uno dei 10 fogli, mentre ringrazio per la cortese attenzione
Vittoriol
vittoriol
Newbie
 
Post: 5
Iscritto il: 06/07/14 14:34

Re: Aiuto per macro excel

Postdi Anthony47 » 11/07/14 01:07

Quindi tu hai un foglio su cui introduci i dati (il foglio corrente), un foglio che si chiama "Riassuntivo" e 10 fogli che si chiamano 1, 2, 3, ... 10; il turno della registrazione in corso e' scritto in D6; in A52:K52 hai predisposto gli 11 valori che devono essere copiati nel foglio del turno (spero che ci sia anche il numero Turno).
Se e' tutto Si, allora prova questa macro, che va lanciata avendo attivo il foglio su cui introduci i dati:
Codice: Seleziona tutto
Sub Macro44()
'
Sheets(Range("d6").Value).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 11).Value = _
   Range("A52:k52").Value
Sheets("Riassuntivo").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 11).Value = _
   Range("A52:k52").Value
MsgBox "Dati copiati!!", vbInformation
End Sub

Ciao, fai sapere.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aiuto per macro excel

Postdi vittoriol » 11/07/14 11:00

Grazie per la risposta ma purtroppo la macro così com'è non funziona (Errore di run_time '9': Indice non incluso nell'intervallo)
Per meglio chiarire spiego che i fogli sono nominati "1°Turno , 2°Turno , 3°Turno ecc, + il foglio "Vacanze2014" che deve ricevere le iscrizioni a tutti i turni.
Spero di essere stato sufficientemente chiaro.
Vorrei inviarvi anche una copia del file ma non ho capito come allegarla. Scusate
Grazie ancora A presto
vittoriol
Newbie
 
Post: 5
Iscritto il: 06/07/14 14:34

Re: Aiuto per macro excel

Postdi aurelio37 » 11/07/14 12:13

Avatar utente
aurelio37
Moderatore
 
Post: 2736
Iscritto il: 07/02/07 11:36
Località: Milano

Re: Aiuto per macro excel

Postdi Anthony47 » 11/07/14 12:15

Oggi vittoriol ha scritto:Per meglio chiarire spiego che i fogli sono nominati "1°Turno , 2°Turno , 3°Turno ecc, + il foglio "Vacanze2014" che deve ricevere le iscrizioni a tutti i turni

Ieri vittoriol ha scritto:Per questo avrei bisogno di una macro che assegnasse ogni iscrizione, una dopo l’altra, ai fogli 1,2,3 ecc. + al foglio riassuntivo
Basterebbe essere precisi la prima volta...

La cosa che puoi fare da solo e' rinominare i fogli come 1, 2, 3, etc e "Riassuntivo".

Altrimenti modifica da
Sheets(Range("d6").Value).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 11).Value = _
Range("A52:k52").Value
A
Sheets(Range("d6").Value & "°Turno").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 11).Value = _
Range("A52:k52").Value

Nella seconda istruzione cambia il nome foglio da "Riassuntivo" a "Vacanze2014"

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

Re: Aiuto per macro excel

Postdi vittoriol » 11/07/14 17:51

Adesso funziona tutto perfettamente e sono riuscito anche ad adattare ritoccando tutto il file. E' bellissimo!!!
Grazie infinite e... a presto
Vittoriol
vittoriol
Newbie
 
Post: 5
Iscritto il: 06/07/14 14:34


Torna a Applicazioni Office Windows


Topic correlati a "Aiuto per macro excel":


Chi c’è in linea

Visitano il forum: Nessuno e 62 ospiti