Condividi:        

RIEPILOGO FOGLI

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

Re: RIEPILOGO FOGLI

Postdi Anthony47 » 14/02/13 12:43

E usando invece "Cdate"?

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

Sponsor
 

Re: RIEPILOGO FOGLI

Postdi Flash30005 » 14/02/13 12:50

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
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: RIEPILOGO FOGLI

Postdi talento » 15/02/13 19:46

Ho già modificato la riga e provato anche con cdate.
Come posso inviare un file d'esempio.
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: RIEPILOGO FOGLI

Postdi Flash30005 » 15/02/13 20:58

Con questa procedura
magari utilizzando questo server

ciao
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: RIEPILOGO FOGLI

Postdi talento » 16/02/13 08:08

talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: RIEPILOGO FOGLI

Postdi Flash30005 » 16/02/13 13:25

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
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: RIEPILOGO FOGLI

Postdi Anthony47 » 16/02/13 13:37

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: RIEPILOGO FOGLI

Postdi Flash30005 » 16/02/13 14:41

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
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: RIEPILOGO FOGLI

Postdi talento » 16/02/13 17:12

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
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: RIEPILOGO FOGLI

Postdi Flash30005 » 16/02/13 23:34

E come vorresti, invece?
Fai uno screenshot

ciao
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: RIEPILOGO FOGLI

Postdi talento » 17/02/13 09:41

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
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: RIEPILOGO FOGLI

Postdi Flash30005 » 17/02/13 15:05

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
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: RIEPILOGO FOGLI

Postdi talento » 17/02/13 17:17

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
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: RIEPILOGO FOGLI

Postdi Flash30005 » 17/02/13 17:20

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
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: RIEPILOGO FOGLI

Postdi talento » 17/02/13 18:14

Già provato questa soluzione ma non riporta tutte le fatture.
Ciao.
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: RIEPILOGO FOGLI

Postdi Flash30005 » 17/02/13 22:01

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
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-

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "RIEPILOGO FOGLI":


Chi c’è in linea

Visitano il forum: Nessuno e 51 ospiti