buongiorno
ho testato questo codice estratto da web:
Sub ConfrontaAeDinG()
Dim IntervalloDoveCercare As Range
Dim IntervalloRicerca As Range
Dim RigaDestino As Long
Dim Tot As Double
Tot = 0 'impostiamo il totalizzatore a zero
Set IntervalloDoveCercare = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)) 'colonna A
Set IntervalloRicerca = Range(Cells(1, 4), Cells(Rows.Count, 4).End(xlUp)) 'ciclo che scorre le celle colonna D
RigaDestino = 1
For Each cell In IntervalloRicerca
If Application.CountIf(IntervalloDoveCercare, cell.Value) = 0 Then 'se il dato nella cella letta non è presente in A
Cells(RigaDestino, 7).Value = cell.Value 'si copia il dato nella colonna G
Cells(RigaDestino, .Value = cell.Offset(0, 1).Value 'nella H scriviamo il valore presente nella cella a lato (in E) il dato letto
Tot = Tot + cell.Offset(0, 1).Value 'quindi incrementiamo il totale con questo valore
RigaDestino = RigaDestino + 1
End If
Next
MsgBox Tot 'avvisiamo con un messaggio l'importo totale
End Sub
FUNZIONA BENE ma quando vado a vedere il totale mi va in errore e non capisco perchè ( sto apprendendo adesso i rudimenti vba)
sembrerebbe da ragionamento esatto mah.........
Grazie se qualcuno mi aiuta