Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro per sommare automaticamente righe di codici di articol

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: macro per sommare automaticamente righe di codici di art

Postdi Anthony47 » 05/11/14 15:29

ZcMiss serve a identificare righe mancanti in uno dei riepiloghi confrontati; se elimini quell' indicazione, come fai a capire quali codici sono cambiati?
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Sponsor
 

Re: macro per sommare automaticamente righe di codici di art

Postdi vale2882 » 05/11/14 15:38

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?
vale2882
Utente Junior
 
Post: 98
Iscritto il: 29/07/14 18:41

Re: macro per sommare automaticamente righe di codici di art

Postdi Anthony47 » 06/11/14 00:43

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro per sommare automaticamente righe di codici di art

Postdi vale2882 » 06/11/14 11:32

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!!
vale2882
Utente Junior
 
Post: 98
Iscritto il: 29/07/14 18:41

Re: macro per sommare automaticamente righe di codici di art

Postdi Anthony47 » 07/11/14 00:01

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:
Immagine
caricare immagini

Layout dei fogli Riepilogo ottenuti con la macro:
Immagine
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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro per sommare automaticamente righe di codici di art

Postdi vale2882 » 12/11/14 10:53

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!!!
vale2882
Utente Junior
 
Post: 98
Iscritto il: 29/07/14 18:41

Re: macro per sommare automaticamente righe di codici di art

Postdi Anthony47 » 14/11/14 15:52

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "macro per sommare automaticamente righe di codici di articol":


Chi c’è in linea

Visitano il forum: albval e 31 ospiti