Confronta celle di fogli diversi

Hai un problema con Excel?

Nuova discussione

Confronta celle di fogli diversi
di Incirni data: 31/05/2011
Sono un profano e vi chiedo aiuto
dovrei confrontare 2 foglicon articoli e prezzi e se ci sono articoli uguali e prezzo diverso cambiare il prezzo.......
spero di essermi spiegato.......

idee ?

una cosa tipo
for (i,1,20000)
se (ci del foglio1 è uguale a ci del foglio2 allora sovrascrivi ei del foglio2 con il valore di ei nel foglio uno

di Mrt (utente non iscritto) data: 03/06/2011
Prova questo codice:
allego anche un file di esempio

Sub CambiaPrezzi()

Dim UltimaRigaPrezzi
UltimaRigaPrezzi = Worksheets("PrezziDaTenere").Cells(Rows.Count, 1).End(xlUp).Row

Dim RngPrezzi, RngPrezzi2, P, CelPrezzo

Set RngPrezzi = Sheets("PrezziDaTenere").Range("A2:A" & UltimaRigaPrezzi).SpecialCells(xlCellTypeConstants)
Set RngPrezzi2 = Sheets("PrezziDaCambiare").Columns(1)

    For Each CelPrezzo In RngPrezzi
        Set P = RngPrezzi2.Find(CelPrezzo)
On Error Resume Next
          If Not CelPrezzo Is Nothing And CelPrezzo.Offset(0, 1) <> P.Offset(0, 1) Then
            P.Offset(, 1) = CelPrezzo.Offset(0, 1).Value
                End If
           Next

End Sub

Vuoi Approfondire?