Moderatori: Anthony47, Flash30005
Sub Compila()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Worksheets("Riepilogo").Cells.ClearContents
Sheets("Foglio1").Select
Range("A1:D1").Select
Selection.Copy
Sheets("Riepilogo").Select
Range("A1:D1").Select
ActiveSheet.Paste
Ord = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For N = 2 To Ord
Trov = 0
URR = Worksheets("Riepilogo").Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To URR
If Worksheets("Foglio1").Range("A" & N).Value = Worksheets("Riepilogo").Range("A" & RR).Value Then
Trov = Trov + 1
Worksheets("Riepilogo").Range("B" & RR).Value = Worksheets("Riepilogo").Range("B" & RR).Value & " " & Worksheets("Foglio1").Range("B" & N).Value
Worksheets("Riepilogo").Range("C" & RR).Value = Worksheets("Riepilogo").Range("C" & RR).Value + Worksheets("Foglio1").Range("C" & N).Value
Worksheets("Riepilogo").Range("D" & RR).Value = Worksheets("Riepilogo").Range("D" & RR).Value & " " & Worksheets("Foglio1").Range("D" & N).Value
GoTo esci
End If
Next RR
If Trov = 0 Then
Worksheets("Riepilogo").Range("A" & RR).Value = Worksheets("Foglio1").Range("A" & N).Value
Worksheets("Riepilogo").Range("B" & RR).Value = Worksheets("Foglio1").Range("B" & N).Value
Worksheets("Riepilogo").Range("C" & RR).Value = Worksheets("Foglio1").Range("C" & N).Value
Worksheets("Riepilogo").Range("D" & RR).Value = Worksheets("Foglio1").Range("D" & N).Value
End If
esci:
Next N
Range("A1").Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Function concas(ValSe, ValArea As Range, Operaz As String, Scart As Integer) As Variant
For Each Cell In ValArea
If Cell = ValSe Then
Select Case Operaz
Case "+"
concas = concas + Val(Cell.Offset(0, Scart))
Case ","
If concas = "" Then concas = Cell.Offset(0, Scart) Else concas = concas & Operaz & " " & Cell.Offset(0, Scart)
If concas = 0 Then concas = ""
Case " "
If concas = "" Then concas = Cell.Offset(0, Scart) Else concas = concas & Operaz & Cell.Offset(0, Scart)
If concas = 0 Then concas = ""
End Select
End If
Next Cell
End Function
=concas($M2;$A$1:$A$100;"+";2)
=CONCAS(Valore Id da verificare;Area verticale degli Id; Operatore; Scarto)
Torna a Applicazioni Office Windows
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Perchè l'importazione dati con Selenium non fuziona? Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 7 |
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 10 ospiti