foglio di riepilogo che si riempie automaticamente

[vale2882]

Buongiorno a tutti, ho un nuovo problema. Vorrei creare un foglio di riepilogo che inserisca i codici sulla prima riga vuota disponibile. Vi posto un file di esempio, in modo da essere più chiara.
http://www.filedropper.com/provariepilogo

Vorrei un ordinamento degli id prodotto partendo dalla data più vecchia a quella più nuova. Quindi il foglio riepilogo si aggiornerà aggiungendo sempre più righe, qualora i fogli di ingresso dovessero aumentare. Le colonne del foglio riepilogo rimangono fisse. Grazie per tutto l'aiuto che mi darete!Aspetto vostre!

[alfrimpa]

Ciao Vale

Ti allego file http://www.filedropper.com/nuovovale2882 nel quale ho scritto una macro che penso fa quel che chiedi (la macro si chiama sempre macro8)

Però anche questo è un primissimo e rozzissimo approccio al tuo problema.

Tengo a ribadire che i campi devono essere uguali per numero e nome su tutti i fogli.

Se ciò non è possibile devi spiegare meglio

Alfredo

[vale2882]

Grazie, ma non riesco a farla partire.!

[vale2882]

Le righe di ogni foglio possono arrivare anche a 300 codici. Ma il template dei fogli di ingresso non deve cambiare, perchè io da quelli, con la macro, estrapolo le informazioni che mi servono e le inserisco nelle colonne che ho indicato nel riepilogo!Spero di essere stata più chiara.Grazie mille!

[vale2882]

Scusatemi per l'insistenza, ma il file di esempio che ho postato è visibile?Grazie!!

[alfrimpa]

Si è visibile e l'ho anche scaricato

Per lanciare la macro uno dei modi è andare sul menù Visualizza in fondo a destra c'è l'icona macro e scegli macro8.

Quello che non mi è chiaro è perché i fogli hanno campi diversi da quelli presenti in riepilogo

sul foglio1 e 2 c'è questo

Descrizione ID_prodotto Produttore Commenti Imballo Codice azienda distributore

Sul Riepilogo (foglio3) c'è quest'altro

ID_prodotto Produttore Codice azienda N.ro pezzi Costo unitario Tempo consegna Freq.consegna Fornitore Note Data

I campi devono essere gli stessi e con la stessa sequenza.

O forse c'è qualcosa che non capisco.

Alfredo

[vale2882]

Ciao Alfredo, i fogli di ingresso devono avere quella struttura, mentre la macro deve estrapolare quei dati d e disporli in quell'ordine ,così come quello riportato nel riepilogo. Spero di aver reso l'idea.Grazie!

[alfrimpa]

Vabbè ci proviamo

Quindi nel foglio3 Riepilogo devono rifluire dai fogli 1 e 2 solo i campi

ID_prodotto Produttore

I dati degli altri campi presenti su Riepilogo (ma non sui fogli 1 e 2) da dove vengono fuori?

Cerca di essere più esauriente nelle informazioni perché se per ogni piccola cosa si deve scrivere sul forum sai quando finiremo? (ammesso che finiremo).

Alfredo

[vale2882]

Buongiorno!Nei fogli 1 e 2 ci sono tutti i campi presenti sul foglio riepilogo, solo che sono presenti dalla colonna X in poi. Non sono visibili?

[vale2882]

Buongiorno a tutti!Ho trovato questo topic che in parte è simile a quello che richiedo
viewtopic.php?f=26&t=95922&p=550112&hilit=macro+aggiorna+elenco#p550112
Nel mio caso vorrei estrapolare dai fogli di ingresso, che è un numero variabile, i dati relativi alle colonne ID prodotto, produttore e codice azienda e metterli nel foglio riepilogo nelle prime 3 colonne. Su ogni foglio, dalla colonna x alla colonna AE, da AI ad AP, da AT ad BA, da BE ad BL, da BP ad BW, vengono riportate le info relative al n.ro di prezzo, costo, data, ecc. Vorrei crerare un riepilogo in cui si mette in colonna A id prodotto, in colonna B produttore, in colonna C codice azienda, in colonna D n.ro prezzo, in colonna E costo unitario, in colonna F tempo consegna, in colonna G freq. consegna, in colonna H fornitore, in colonna I note, in colonna J data. Questi sono i dati riportati dalla colonna X ad AE, poi riportare nella riga successiva del riepilogo lo stesso codice che riporta le info dalla colonna AI ad AP e così via. Se le colonne dovessero esserro vuote da AT ad BA e così via, passare all'altro codice prodotto. Potreste, per favore , aiutarmi?GRazie mille!!

[vale2882]

http://www.filedropper.com/provariepilogo
Questo è il file di esempio...spero possiate aiutarmi!Grazie


Moderato da Flash: Il topic ha lo stesso quesito del precedente al quale avevo dato la soluzione.

@Vale non aprire più topic per lo stesso quesito

[Flash30005]

Rinomina il foglio3 con nome "Riepilogo" (senza apici)
inserisci questa macro in un modulo del Vba

Codice: Seleziona tutto

Sub Riepilogo()
Dim FR As Worksheet
Dim FD As Worksheet
Set FR = Worksheets("Riepilogo")
URR = FR.Range("A" & Rows.Count).End(xlUp).Row
FR.Range("A2:J" & URR).ClearContents
For FF = 1 To Worksheets.Count
If Sheets(FF).Name <> "Riepilogo" Then
Set FD = Worksheets(Worksheets(FF).Name)
    URF = FD.Range("A" & Rows.Count).End(xlUp).Row
    For RRF = 2 To URF
        URR = FR.Range("A" & Rows.Count).End(xlUp).Row + 1
        FD.Range("B" & RRF & ":C" & RRF).Copy Destination:=FR.Range("A" & URR)
        FD.Range("F" & RRF).Copy Destination:=FR.Range("C" & URR)
        FD.Range("X" & RRF & ":Y" & RRF).Copy Destination:=FR.Range("D" & URR)
        FD.Range("AA" & RRF & ":AB" & RRF).Copy Destination:=FR.Range("F" & URR)
        FD.Range("AC" & RRF & ":AE" & RRF).Copy Destination:=FR.Range("H" & URR)
    Next RRF
End If
Next FF
End Sub


e avviala

Ricordati di salvare il file in .Xlsm (in quanto contiene macro)

ciao

[vale2882]

Buon pomeriggioe grazie Flash per la soluzione!!!Funziona!!Ma volevo solo sapere se devo fare tanti cicli for per riportare i dati da colonna AI ad AP, da colonna AT a BA, da colonna BE a BL e da colonna BP a BW. Come cambia il codice?Grazie mille!!!!

[Flash30005]

Se trattasi dello stesso Prodotto (ID)
devi solo copiare questa riga (già nella macro), aggiungerla subito sotto

Codice: Seleziona tutto

FD.Range("AC" & RRF & ":AE" & RRF).Copy Destination:=FR.Range("H" & URR)

e modificarla adattandola al nuovo range, esempio:

Codice: Seleziona tutto

FD.Range("AI" & RRF & ":AP" & RRF).Copy Destination:=FR.Range("LetteraColonnaDestinazione" & URR)

stessa cosa per gli altri range

Ciao

P.s. ma perché non dici tutto ciò che ti occorre sin dall'inizio, chiarendo dove sono i dati origine e dove devono collocarsi i dati destinazione?
Non credi che così facendo perdiamo più tempo entrambi?

[vale2882]

Ciao! Ho fatto come mi hai detto, ma mi riporta solo i dati delle colonne nell'ultimo range.Io vorrei che fossero ripeturi i dati delle colonne A,B e C del riepilogo e accanto riportare i dati delle colonne dei vari range. Quindi in colonna A, B e C si ripeterenno gli stessi dati.

[Flash30005]

Non riesco a capire cosa intendi

[vale2882]

Buongiorno a tutti!
Il codice di flash va benissimo, ma mi copia solo i dati riportati da colonna X ad AE dei fogli. Io vorrei che, nel riepilogo, in colonna A, B e C fossero riportati lo stesso id prodotto, produttore e codice azienda e nelle colonne D, E , F,... fossero ricopiati i dati dalla colonna AI alla colonna AP,così facendo si passa alla riga successiva (sempre se per quel id prodotto nei fogli ci sono dati nelle colonne da AI ad AP) . Lo stesso si faccia per gli altri dati dalla colonna AT alla BA, dalla colonna BE alla BL, dalla BP alla BW.Queste sono colonne che potrebbero essere riempite ma non sempre. Nel caso in cui fossero vuote, passare all'altro id prodotto presente nei fogli. Spero di essermi spiegata meglio.Grazie davvero!

[Flash30005]

Perdona Vale
ma tu non hai inviato un file con questi dati disposti anche in AI-AP etc

E ti prego di rileggere questo argomento

ciao

[vale2882]

Buon pomeriggio, nel file prova riepilogo nel foglio 2 ci sono dei dati dalla colonna AI ad AP, che poi ho riportato nel foglio3 che sarebbe il riepilogo. Chiedo scusa per la poca chiarezza....

[Flash30005]

Prova questa macro in sostituzione della precedente

Codice: Seleziona tutto

Sub Riepilogo2()
Dim FR As Worksheet
Dim FD As Worksheet
Set FR = Worksheets("Riepilogo")
URR = FR.Range("A" & Rows.Count).End(xlUp).Row
FR.Range("A2:J" & URR).ClearContents
For FF = 1 To Worksheets.Count
If Sheets(FF).Name <> "Riepilogo" Then
Set FD = Worksheets(Worksheets(FF).Name)
    Urf = FD.Range("A" & Rows.Count).End(xlUp).Row
    UCF = FD.Cells(1, Columns.Count).End(xlToLeft).Column
    For CCF = 24 To UCF Step 11
    For RRF = 2 To Urf
        If FD.Cells(RRF, CCF).Value <> "" Then
        URR = FR.Range("A" & Rows.Count).End(xlUp).Row + 1
        FD.Range("B" & RRF & ":C" & RRF).Copy Destination:=FR.Range("A" & URR)
        FD.Range("F" & RRF).Copy Destination:=FR.Range("C" & URR)
        FD.Range(FD.Cells(RRF, CCF), FD.Cells(RRF, CCF + 1)).Copy Destination:=FR.Range("D" & URR)
        FD.Range(FD.Cells(RRF, CCF + 3), FD.Cells(RRF, CCF + 4)).Copy Destination:=FR.Range("F" & URR)
        FD.Range(FD.Cells(RRF, CCF + 5), FD.Cells(RRF, CCF + 7)).Copy Destination:=FR.Range("F" & URR)
    End If
    Next RRF
    Next CCF
End If
Next FF
End Sub


ciao