RIEPILOGO FOGLI

[Anthony47]

E usando invece "Cdate"?

Ciao

[Flash30005]

Leggi il post di Anthony (qui sopra)

ma se le date iniziano dalla riga 8 allora il ciclo for next non deve iniziare dalla riga 2

Codice: Seleziona tutto

        For RRF = 8 To URF '<<<< ma così

ciao

[talento]

Ho già modificato la riga e provato anche con cdate.
Come posso inviare un file d'esempio.

[Flash30005]

Con questa procedura
magari utilizzando questo server

ciao

[talento]

http://www.filedropper.com/cliente

[Flash30005]

Nella macro del CommandButton1 c'è la riga
URF = Sheets(FF).Range("E" & Rows.Count).End(xlUp).Row
che conteggia le righe con dati sulla colonna E, ma tu hai delle formule fino alla riga 70 pertanto la macro va in errore in quanto non trova alcuna data oltre la riga 10 è opportuno, quindi, che effettui il conteggio sulla colonna A, modificando quella riga così

Codice: Seleziona tutto

URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row

ciao

EDIT 13:32 - errata corrige - devi far riferimento alla colonna B - corretta macro

[Anthony47]

B come "bene"...
E poi sbaglio o le date sono in Col B e non in col E?
E il foglio si chiama "riepilogo" non "Riepilogo"
E che cosa va trasferito dai fogli 1-2-2tc a "riepilogo"?

Ciao

[Flash30005]

Leggi i post precedenti...
Mi sono "impiccato" per capire la trascrizione dei dati e spero di essere riuscito nell'intento con questa macro

Codice: Seleziona tutto

Private Sub CommandButton1_Click()

Worksheets("Riepilogo").Range("A2:I65000").ClearContents
For FF = 1 To Worksheets.Count
    If UCase(Sheets(FF).Name) <> "RIEPILOGO" Then
        URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row
        VT = CInt(TextBox1)
        For RRF = 8 To URF
        Sheets(FF).Select
            If Month(CDate(Sheets(FF).Range("E" & RRF).Value)) = VT Then
                URR = Sheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
                Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Range("C1").Value
                Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Name
                Sheets("Riepilogo").Range("C" & URR).Value = Sheets(FF).Range("B" & RRF).Value
                Sheets("Riepilogo").Range("E" & URR).Value = Sheets(FF).Range("E" & RRF).Value
                Sheets("Riepilogo").Range("D" & URR).Value = Sheets(FF).Range("C" & RRF).Value
            End If
        Next RRF
        Sheets(FF).Select
    End If
Next FF
Worksheets("Riepilogo").Select
End Sub

Ciao

[talento]

La macro funziona ho dovuto solo modificare la destinazione delle colonne in "riepilogo".
L'unico neo è che vengono riportati i nomi dei fogli tante volte quanto sono le celle che corrispondono al mese.
Si può ovviare a questo.

Codice: Seleziona tutto

Worksheets("Riepilogo").Range("A2:I65000").ClearContents
For FF = 1 To Worksheets.Count
    If UCase(Sheets(FF).Name) <> "RIEPILOGO" Then
        URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row
        VT = CInt(TextBox1)
        For RRF = 8 To URF
        Sheets(FF).Select
            If Month(CDate(Sheets(FF).Range("E" & RRF).Value)) = VT Then
                URR = Sheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
                Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Name
                Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Range("C1").Value
                Sheets("Riepilogo").Range("C" & URR).Value = Sheets(FF).Range("B" & RRF).Value
                Sheets("Riepilogo").Range("D" & URR).Value = Sheets(FF).Range("C" & RRF).Value
                Sheets("Riepilogo").Range("F" & URR).Value = Sheets(FF).Range("E" & RRF).Value
                 End If
        Next RRF
        Sheets(FF).Select
    End If
Next FF
Worksheets("Riepilogo").Select

ciao

[Flash30005]

E come vorresti, invece?
Fai uno screenshot

ciao

[talento]

Adesso nel foglio "riepilogo" abbiamo:
cod......nominativo... data emissione......... nr.........tipo..........data scadenza........importo
1............ pippo.......15/01/2013............. 12..........FV............20/03/2013...........995,52
1............ pippo.......14/02/2013............. 34..........FV.......... 31/03/2013...........956.80
3............ pluto....... 07/01/2013...............6..........FV........... 31/03/2013.........1.920,40
61.......... paperino... 07/01/2013...............5..........FV........... 31/03/2013...........509,34
61.......... paperino... 15/01/2013............. 13..........FV............31/03/2013............44,20
61.......... paperino... 23/01/2013............. 21..........FV............31/03/2013...........827,44

invece devo ottenere:
cod......nominativo... data emissione......... nr.........tipo..........data scadenza........importo
1............ pippo.......15/01/2013............. 12..........FV............20/03/2013...........995,52
............................14/02/2013.............34..........FV.......... 31/03/2013...........956.80
3............ pluto....... 07/01/2013..............6...........FV........... 31/03/2013.........1.920,40
61.......... paperino... 07/01/2013..............5...........FV........... 31/03/2013...........509,34
............................15/01/2013.............13..........FV............31/03/2013............44,20
............................23/01/2013.............21..........FV............31/03/2013...........827,44
ciao

[Flash30005]

Non ho questa disposizione dei dati
se effettuo la modifica potrei non fornirti la macro corretta e nell'adattamento potresti incorrere negli errori
Dovresti pubblicare il nuovo foglio con macro che ti fornisce lo stato attuale (quello che hai pubblicato)
In teroria questa modifica alla mia macro fa quello che dici (non ripete il nome del foglio

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
Worksheets("Riepilogo").Range("A2:I65000").ClearContents
For FF = 1 To Worksheets.Count
MNf = ""
    If UCase(Sheets(FF).Name) <> "RIEPILOGO" Then
    NF = Sheets(FF).Range("C1").Value
        URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row
        VT = CInt(TextBox1)
        For RRF = 8 To URF
        Sheets(FF).Select
            If Month(CDate(Sheets(FF).Range("E" & RRF).Value)) = VT Then
                URR = Sheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
                Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Range("C1").Value
                If MNf <> NF Then
                    Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Name
                    MNf = NF
                End If
                Sheets("Riepilogo").Range("C" & URR).Value = Sheets(FF).Range("B" & RRF).Value
                Sheets("Riepilogo").Range("E" & URR).Value = Sheets(FF).Range("E" & RRF).Value
                Sheets("Riepilogo").Range("D" & URR).Value = Sheets(FF).Range("C" & RRF).Value
            End If
        Next RRF
        Sheets(FF).Select
    End If
Next FF
Worksheets("Riepilogo").Select
End Sub

Ora sta a te adattarla
ciao

[talento]

Ho modificato il codice :

Codice: Seleziona tutto

Worksheets("Riepilogo").Range("A2:I65000").ClearContents
For FF = 1 To Worksheets.Count
MNf = ""
    If UCase(Sheets(FF).Name) <> "RIEPILOGO" Then
    NF = Sheets(FF).Range("C1").Value
        URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row
        VT = CInt(TextBox1)
        For RRF = 8 To URF
        Sheets(FF).Select
            If Month(CDate(Sheets(FF).Range("E" & RRF).Value)) = VT Then
                URR = Sheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
                 
                Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Range("C1").Value
                If MNf <> NF Then
               
                Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Name
                 
                    MNf = NF
                End If
                Sheets("Riepilogo").Range("C" & URR).Value = Sheets(FF).Range("B" & RRF).Value
                Sheets("Riepilogo").Range("F" & URR).Value = Sheets(FF).Range("E" & RRF).Value
                Sheets("Riepilogo").Range("D" & URR).Value = Sheets(FF).Range("C" & RRF).Value
            End If
        Next RRF
        Sheets(FF).Select
    End If
Next FF
Worksheets("Riepilogo").Select

adesso abbiamo questa sistuazione:
1............ pippo...... 15/01/2013............. 12.........FV............ 20/03/2013
. ............pippo...... 14/02/2013............. 34.........FV............31/03/2013
3............ pluto....... 07/01/2013............. 6..........FV............ 31/03/2013
61.......... paperino... 07/01/2013............. 5..........FV............ 31/03/2013
............. paperino... 15/01/2013............. 13........FV............. 31/03/2013
............. paperino... 23/01/2013............. 21........FV............. 31/03/2013
non vorrei abusare della tua pazienza ma riusciamo a non far ripetere i nomi anche nella seconda colonna
ciao

[Flash30005]

Inserisci anche questa riga codice

Codice: Seleziona tutto

Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Range("C1").Value

all'interno della condizione
e avrai

Codice: Seleziona tutto

               
If MNf <> NF Then
         Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Range("C1").Value  '<<< inserita qui
         Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Name
         MNf = NF
End If

Ciao

[talento]

Già provato questa soluzione ma non riporta tutte le fatture.
Ciao.

[Flash30005]

Si, scusa
perché devi cambiare il riferimento del conteggio righe URR (non su colonna B ma su C )
quindi

Codice: Seleziona tutto

URR = Sheets("Riepilogo").Range("C" & Rows.Count).End(xlUp).Row + 1

ciao