Moderatori: Anthony47, Flash30005
Sub CreaElenco()
Worksheets("Riepilogo").Select
Worksheets("Riepilogo").Cells.Clear
For FF = 1 To Worksheets.Count
If Worksheets(FF).Name <> "Riepilogo" Then
URF = Worksheets(FF).Range("A" & Rows.Count).End(xlUp).Row
For RRF = 2 To URF
CodF = Worksheets(FF).Range("A" & RRF).Value
URR = Worksheets("Riepilogo").Range("A" & Rows.Count).End(xlUp).Row
For RRR = 2 To URR
CodR = Worksheets("Riepilogo").Range("A" & RRR).Value
If CodF = CodR Then GoTo SaltaRRR
Next RRR
Worksheets("Riepilogo").Range("A" & URR + 1).Value = CodF
SaltaRRR:
Next RRF
End If
Next FF
RiepilogoDati
End Sub
Private Sub RiepilogoDati()
URR = Worksheets("Riepilogo").Range("A" & Rows.Count).End(xlUp).Row
For RRR = 2 To URR
CodR = Worksheets("Riepilogo").Range("A" & RRR).Value
For FF = 1 To Worksheets.Count
If Worksheets(FF).Name <> "Riepilogo" Then
URF = Worksheets(FF).Range("A" & Rows.Count).End(xlUp).Row
For RRF = 2 To URF
CodF = Worksheets(FF).Range("A" & RRF).Value
If Worksheets(FF).Range("C" & RRF).Value <> "" Then GoTo SaltaRRF
If CodF = CodR Then Worksheets("Riepilogo").Range("B" & RRR).Value = Worksheets("Riepilogo").Range("B" & RRR).Value + Worksheets(FF).Range("B" & RRF).Value
SaltaRRF:
Next RRF
End If
Next FF
Next RRR
End Sub
If Worksheets(FF).Name <> "Riepilogo" And Worksheets(FF).Name <> "Foglio4" Then
And Worksheets(FF).Name <> "NomeFoglio"
Sub CreaElenco2()
Worksheets("Riepilogo").Select
Worksheets("Riepilogo").Cells.Clear
For FF = 1 To Worksheets.Count
If Worksheets(FF).Name <> "Riepilogo" Then
URF = Worksheets(FF).Range("A" & Rows.Count).End(xlUp).Row
For RRF = 2 To URF
CodF = Worksheets(FF).Range("I" & RRF).Value
URR = Worksheets("Riepilogo").Range("A" & Rows.Count).End(xlUp).Row
For RRR = 2 To URR
CodR = Worksheets("Riepilogo").Range("A" & RRR).Value
If CodF = CodR Then GoTo SaltaRRR
Next RRR
Worksheets("Riepilogo").Range("A" & URR + 1).Value = CodF
SaltaRRR:
Next RRF
End If
Next FF
RiepilogoDati
End Sub
Private Sub RiepilogoDati()
URR = Worksheets("Riepilogo").Range("A" & Rows.Count).End(xlUp).Row
For RRR = 2 To URR
CodR = Worksheets("Riepilogo").Range("A" & RRR).Value
For FF = 1 To Worksheets.Count
If Worksheets(FF).Name <> "Riepilogo" Then
URF = Worksheets(FF).Range("A" & Rows.Count).End(xlUp).Row
For RRF = 2 To URF
CodF = Worksheets(FF).Range("I" & RRF).Value
If Worksheets(FF).Range("M" & RRF).Value <> "" Then GoTo SaltaRRF '<<<<<< Se la colonna M non sara vuota la quantità non verrà sommata
If CodF = CodR Then Worksheets("Riepilogo").Range("B" & RRR).Value = Worksheets("Riepilogo").Range("B" & RRR).Value + Worksheets(FF).Range("B" & RRF).Value
SaltaRRF:
Next RRF
End If
Next FF
Next RRR
End Sub
vale2882 ha scritto:alcuni codici del secondo foglio, che risultano uguali a quelli degli altri fogli, mi compaiono nel foglio riepilogo non sommati,
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 7 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 78 ospiti