Sostituire valori in colonna

Hai un problema con Excel?

Nuova discussione

Sostituire valori in colonna
di natale giovannese (utente non iscritto) data: 08/03/2016 10:00:56
Salve a tutti,
con l'aiuto del file allegato, vorrei sostituire in colonna4 i valori presenti in colonna3, quando i valori in colonna2 corrispondono.
di patel data: 08/03/2016 10:49:13
sostituire o aggiungere nella colonna accanto ?
di natale giovannese (utente non iscritto) data: 08/03/2016 11:19:37
Sostituire!
Grazie mille!

di Cucù data: 08/03/2016 11:34:11
Un metodo potrebbe essere...
Cucù

Option Explicit

Sub Sostituzione_Valori()
Dim Ur As Long, Ir As Long, Cod As Variant, XXX As Range, INum As Long

Ur = Range("E" & Rows.Count).End(xlUp).Row
INum = 0
For Ir = 2 To Ur
    Cod = Cells(Ir, 5).Value
    Set XXX = Range("B:B").Find(Cod, LookIn:=xlValues, lookat:=xlWhole)
        If Not XXX Is Nothing Then
            Cells(Ir, 5).Value = XXX.Offset(0, 1).Value
            INum = INum + 1
        End If
Next Ir
MsgBox "Sono state effettuate " & INum & " sostituzioni!", vbExclamation, "Sostituzioni Effettuate!"

End Sub

di natale giovannese (utente non iscritto) data: 08/03/2016 11:43:53
Ottimo! Funziona!
Ma se ora le tre colonne1,2,3 si trovano nel foglio1 e la colonna4 nel foglio2???

Grazie in anticipo!
di Cucù data: 08/03/2016 11:58:34
Cit:Ottimo! Funziona!
Ma se ora le tre colonne1,2,3 si trovano nel foglio1 e la colonna4 nel foglio2???

Risp: Mi sono riproposto di non rispondere a domande dovute ad una descrizione iniziale del problema parziale o differente alla realtà, tutto ciò per evitare continue correzioni e di conseguenza lavori lunghi e inutili.
Sorry
Cucù
PS Comunque puoi provare da te ad effettuare le dovute modifiche al codice (estremamente semplici peraltro)
di natale giovannese (utente non iscritto) data: 08/03/2016 12:20:22
OK! Grazie comunque

Vuoi Approfondire?