Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ti chiedo scusa, mi sono spiegato male.
In foglio 1 ho
<cut>
in pratica: nel nuovo listino sono stati tolti codici obsoleti e aggiunti codici nuovi. Io vorrei trovare quali sono i codici di foglio 1 che sono anche in foglio 2 e poi confrontare i loro prezzi per vedere come sono variati.
Spero di avere scritto meglio cosa mi serve.. Grazie mille!!!
La cosa più semplice è:
- copia entrambi gli elenchi in un terzo foglio
- ordinali per articolo
- filtra poi gli articoli di tuo interesse
Oppure, copia/incolla questo nel modulo di codice del Foglio2:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sh As Worksheet
Dim lRiga As Long
Dim s As String
Dim lng As Long
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
For lng = 2 To lRiga
If .Cells(lng, 1).Value = Target.Value Then
s = s & .Cells(lng, 2).Value & vbNewLine
End If
Next
End With
If s <> "" Then
MsgBox "Prezzi precedenti:" & vbNewLine & s
End If
Cancel = True
Set sh = Nothing
End Sub
Adesso è sufficiente fare doppio click sull'articolo in Foglio2 per vedere i prezzi precedenti(se ci sono).