Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

scelta automatica foglio di riepilogo 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

scelta automatica foglio di riepilogo excel

Postdi nicholas » 02/07/09 08:30

ciao anthony,
se io scrivo due colonne di excel, una con valuta ed una con date, esiste qualcosa che mi fa fare questo:
se la data è gennaio, la aluta corrispondente si deve ricopiare insieme alla data su un foglio diverso che chiamerò gennaio. idem per gli altri mesi, per ciascuno dei quali avrò un foglio diverso?
grazie ciao :eeh:
tutto è scritto, nulla è casuale. ma sarà la vita ad insegnarci a leggere!
nicholas
nicholas
Utente Senior
 
Post: 102
Iscritto il: 18/05/09 13:33

Sponsor
 

Re: scelta automatica foglio di riepilogo excel

Postdi Flash30005 » 02/07/09 09:47

Scusate se mi intrometto...
(avevo 5 minuti e...)
se va bene una macro puoi usare questa:
Codice: Seleziona tutto
Sub DistribM()
Dim Vettore(12)
Vettore(1) = "Gennaio"
Vettore(2) = "Febbraio"
Vettore(3) = "Marzo"
Vettore(4) = "Aprile"
Vettore(5) = "Maggio"
Vettore(6) = "Giugno"
Vettore(7) = "Luglio"
Vettore(8) = "Agosto"
Vettore(9) = "Settembre"
Vettore(10) = "Ottobre"
Vettore(11) = "Novembre"
Vettore(12) = "Dicembre"


UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To UR
    If I = 1 Then
        For F = 1 To 12
            Sheets("Foglio1").Rows("1:1").Copy
            Sheets(Vettore(F)).Select
    Rows("1:1").Select
    ActiveSheet.Paste
        Next F
        GoTo salta
    End If
NumM = Month(Worksheets("Foglio1").Range("B" & I).Value)
URM = Worksheets(Vettore(NumM)).Range("A" & Rows.Count).End(xlUp).Row + 1
            Sheets("Foglio1").Select
            Range(Cells(I, 1), Cells(I, 2)).Copy
            Sheets(Vettore(NumM)).Select
            Range(Cells(URM, 1), Cells(URM, 2)).Select
            ActiveSheet.Paste
salta:
Next I
End Sub

Tieni presente che:
Foglio1 è il foglio generale
le colonne interessate sono A e B
adatta la macro alle tue esigenze

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: scelta automatica foglio di riepilogo excel

Postdi Anthony47 » 02/07/09 13:29

Io pero' non vedo bene l' idea di replicare i dati su altri fogli: come ne garantisci, ad esempio, l' allineamento (aggiunte, modifiche, cancellazioni)?
Il mio suggerimento e' tenere i dati tutti insieme, poi su questi dati elabori cio' che ti serve. Quindi: che ti serve, alla fine?

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "scelta automatica foglio di riepilogo excel":

Scelta pc desktop
Autore: Christian1981
Forum: Forum off-topic
Risposte: 2

Chi c’è in linea

Visitano il forum: patel e 13 ospiti