Anthony47 ha scritto:Mi hai linkato una discussione che comincia a Ottobre 2009 e finisce a Febbraio 2011; un riferimento un po' vago...
Se non arrivano altri suggerimenti ti chiederei di pubblicare un file esemplificativo contenente la macro in uso.
Ciao
Scusa. Il codice che utilizzo e che dovrei adattare e' questo:
- Codice: Seleziona tutto
[code]
Sub Confronta()
' Foglio1 Vecchio Catalogo
' Foglio2 Nuovo Catalogo
' Foglio3 Prodotti che non sono più nel nuovo catalogo
' Foglio4 Nuovi prodotti (non erano nel vecchio catalogo)
Call CopiaF
URS = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row '<<<< alias Foglio3
URA = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row '<<< alias Foglio4
For RS = 2 To URS
For RA = URA To 2 Step -1
If Worksheets("Foglio1").Cells(RS, 1).Value = Worksheets("Foglio4").Cells(RA, 1).Value Then Worksheets("Foglio4").Rows(RA & ":" & RA).Delete
Next RA
Next RS
For RA = 2 To URA
For RS = URS To 2 Step -1
If Worksheets("Foglio2").Cells(RA, 1).Value = Worksheets("Foglio3").Cells(RS, 1).Value Then Worksheets("Foglio3").Rows(RS & ":" & RS).Delete
Next RS
Next RA
End Sub
Sub CopiaF()
Sheets("Foglio3").Select
Cells.Select
Selection.Clear
Range("D10").Select
Sheets("Foglio4").Select
Cells.Select
Selection.Clear
Range("A1").Select
Sheets("Foglio1").Select
Cells.Select
Selection.Copy
Sheets("Foglio3").Select
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Foglio2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Foglio4").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Foglio3").Select
End Sub[/code]
Grazie