macro per sommare automaticamente righe di codici di articol

[Anthony47]

ZcMiss serve a identificare righe mancanti in uno dei riepiloghi confrontati; se elimini quell' indicazione, come fai a capire quali codici sono cambiati?

[vale2882]

Ciao Anthony!grazie per avermi hai risposto!Purtroppo mi hanno chiesto di eliminare quella scritta e mettere i codici che vengono riportati in colonna D. In colonna A potrei riportare , per esempio, ZcMiss-Codice riportato in colonna D, e mettere in colonna D ed E le relative descrizioni e part number che vengono riportate in colonna D e G di ogni foglio??Scusami se insisto, ma non so che altro fare!Grazie mille e scusami tanto per l'insistenza!Oppure si potrebbe fare in altro modo?

[Anthony47]

Premetto che io ho in mente la macro presentata in questo messaggio: viewtopic.php?f=26&t=102426&start=20#p594931
Le modifiche richieste possono essere realizzate eliminando la Sub CompaRieps e sostituendola con quest'altra versione:

Codice: Seleziona tutto

Sub CompaRieps2(ByVal shIndex As Long, rRiep As Worksheet)
Dim myVarr, LastM1 As Long, L As Long, myMatch
'
If shIndex < 3 Then Exit Sub
If Left(Worksheets(shIndex - 1).Name, 7) <> "ZcRiep_" Then Exit Sub
'
LastM1 = Sheets(shIndex - 1).Cells(Rows.Count, 1).End(xlUp).Row
myVarr = Sheets(shIndex - 1).Range("A1:F" & LastM1).Value              'B41105
For L = (LBound(myVarr, 1) + 1) To UBound(myVarr, 1)
    myMatch = Application.Match(Trim(myVarr(L, 1)), Sheets(shIndex).Range("A:A"), 0)
        If myVarr(L, 1) <> "ZcMiss" Then
                If IsError(myMatch) Then
                'tutto il Then e' cambiato, B41105
                    rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = myVarr(L, 1)
                    rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(0, 3).Value = myVarr(L, 4)
                    rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(0, 2).Value = myVarr(L, 2)
                    rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(0, 4).Value = myVarr(L, 5)
                    rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(0, 5).Value = myVarr(L, 6)
                   
                Else
                    If (rRiep.Cells(myMatch, 2).Value <> myVarr(L, 2)) Then
                        rRiep.Cells(myMatch, 3) = myVarr(L, 2)
                        rRiep.Cells(myMatch, 4) = myVarr(L, 1)
                    Else
                        rRiep.Cells(myMatch, 3) = 0
                    End If
                End If
        End If
   
Next L
End Sub

Bisognera' inoltre cambiare, nella Sub riepzc2, la riga Call CompaRieps(RIEP.Index, RIEP) in

Codice: Seleziona tutto

Call CompaRieps2(RIEP.Index, RIEP)

In questo modo il layout dei codici "missing" (assenti nell' ultimo riepilogo prodotto ma presente nel riepilogo precedente) sara' simile a quello di tutti gli altri record, salvo che la colonna B (Quantita') e' vuota.

Nel layout adottato le "note" sono in colonna F; se servono in colonna E vuol dire che devi cancellare una delle colonne precedenti; scegli tu quale.

Ciao

[vale2882]

Ciao Anthony!!Grazie per il tuo grosso aiuto!Vorrei solo sapere perchè i codici che sono presenti su entrambi i riepiloghi vengono ripetuti in colonna D. In colonna D vorrei sempre la descrizione del codice?Come si può modificare il codice?
Codice Q.tà Tot Q.tà Div Descrizione Part number

95117 162 144 95117

Grazie mille!!

[Anthony47]

Prego, e spero che qualcosa di quanto proposto ti possa tornare utile.

Quanto al layout del Riepilogo, qualcosa non mi torna...
Layout dei fogli di partenza nei file che pubblicasti:

caricare immagini

Layout dei fogli Riepilogo ottenuti con la macro:

caricare immagini
(I Titoli in rosso, per la verita', la macro non li inserisce)
Per visualizzare tutta l' immagine: Tasto dx, Visualizza immagine.

Insomma mi pare che l' output sia quello che richiedi (Codice /Q.tà Tot /Q.tà Div /Descrizione /Part number).
Cosa non ho capito?

Ciao

[vale2882]

Ciao Anthony!!!Va benissimo!Nel foglio riportava un errore e di conseguenza veniva riportato nella macro!Se posso, vorrei chiederti una cosa. Vorrei riportarmi nel riepilogo creato con la macro, una colonna che mi indichi il nome del foglio in cui si trova quel codice. Per esempio:


Codice Foglio

asdfcvvd terzo

sdcfff quarto

E così via... Come potrei fare? So che dovrei usare Worksheets(I).Name ma come inserirlo nel codice?Grazie mille!!!

[Anthony47]

Vorrei riportarmi nel riepilogo creato con la macro, una colonna che mi indichi il nome del foglio in cui si trova quel codice.

L’ informazione E’ GIA’ riportata nel foglio di Riepilogo, nelle colonne a partire da H in avanti (qt /Foglio).
Non ti torna? Vuoi solo il Foglio senza le qt?

Ciao