scelta automatica foglio di riepilogo excel

[nicholas]

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

[Flash30005]

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

[Anthony47]

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.