sostituzione valori macro

Hai un problema con Excel?

Nuova discussione

sostituzione valori macro
di gigi (utente non iscritto) data: 22/11/2013 11:23:42
Salve a tutti

ho un problema con Excel, avendo tantissimi valori vorrei sapere se è possible creare una macro che mi sostituisce i valori della Colonna A con i valori della Colonna B

grazie mille

Gigi
di totygno71 data: 22/11/2013 11:42:43
Che strana richiesta la tua... O_o
Selezzioni la colonna B e copi i valori nella colonna A poi se non ti servono piu selezioni la colonna B e li cancelli...
Ma secondo me non è questo che cerchi, quindi schiariscici le idee U_U
di Gigi (utente non iscritto) data: 22/11/2013 14:53:42
Mi sono spiegato male, ho due file in excel

Nel primo c'è una prima colonna dove ci sono dei codici alfanumerici, mentre nella seconda colonna ci sono dei nomi, in questo file i nomi e i codici si ripetono tante volte, ti inoltro un esempio:

Colonna a Colonna b

A234 Mary
A234 Mary
A234 Mary
B324 Laura
W985 Roberta
W985 Roberta

Il secondo file invece è una leggenda dove ci sono due colonne e mi specifica cosa corrispondono i codici che ho nel primo file. Ti inoltro l esempio

Colonna A Colonna B

A234 Denny
B324 Angelo
W985 Lorenzo

Io vorrei avere questo risultato

Colonna a Colonna B

Denny Mary
Denny Mary
Denny Mary
Angelo Laura
Lorenzo Roberta
Lorenzo Roberta

Ecco perché mi risulta impossibile fare il copia in colla in quanto i dati non sono in ordine e inoltre ci sono delle ripetizioni, attualmente sto facendo trova e sostituisci solo che i dati sono tanti circa 2000 codici-righe.

Potresti gentilmente aiutarmi per velocizzare il tutto con una macro o altro.

Grazie

Per la disponibilità
di totygno71 (utente non iscritto) data: 22/11/2013 15:06:00
Puoi postare i files ho ci sono info riservate?
di Grograman (utente non iscritto) data: 22/11/2013 15:14:16
IMHO meglio imparare prima a farlo con le formule...

Con colonna di appoggio ed esempio allegato:
=INDICE(Foglio2!A:B;CONFRONTA(A1;Foglio2!A:A;0);2)
di totygno71 (utente non iscritto) data: 22/11/2013 15:20:18
Ti ho allegato il file di prova
invece di 2 file per praticita è un unico file . nel foglio 1 ci sono i primi dati (sarebbe il primo file) e nel folgio 2 i codici(secondo file)
prova e poi facci sapè
di gigi (utente non iscritto) data: 22/11/2013 18:46:07
Ciao, il file allegato non funziona mi indica "variabile non definita" comunque ti indico il link di dropbox dove perndere il file

dropbox.com/s/3bspuhc6my44djk/prova.xlsx

Grazie per la pazienza
di totygno (utente non iscritto) data: 22/11/2013 20:17:58
Si rprova il file allegato avevo dimenticato di dimesionare c
di Gigi (utente non iscritto) data: 22/11/2013 20:45:46
Ciao, non funziona bene sul file che ho messo nel link che ho lasciato in precedenza (dropbox), ad esempio il codice g710 mi dice indefinito.

Si può risolvere?

Grazie di tutto
di totygno (utente non iscritto) data: 22/11/2013 21:17:53
Il file che hai indicato è completamente diverso da quello che hai chiesto, come pretendi che funzioni???
Il tuo file :
foglio1 colonna A---> codici----- col B ----> nomi (marche)
foglio2 colonna A---> numearione crescente colo B Barcode

quindi la prossima volta se vuoi una risposta efficace e sopratutto non far perdere tempo agli altri cerca di essere piu preciso possibile... detto questo non trovo nessuna coincidenza tra i codici della colonna A folgio1 con i codici colonna B foglio 2
Quindi schiaristi prima le idee e poi torna a formulare una domanda piu precisa_
Grazie
di Gigi (utente non iscritto) data: 23/11/2013 01:17:32
perdonami, ho allegato il file errato. questo è quello corretto > dropbox.com/s/41t5261hdh8umrq/prova-corretto.xlsx

ho comunque provato ad utilizzare la macro che gentilmente mi hai postato e funziona bene per molti codici, ho notato che questo problema (indefinito) viene causato quando nella cella sono presenti degli 0

scusami ancora!

di totygno (utente non iscritto) data: 23/11/2013 16:24:00
330.000 righe... forse con questi numeri dovresti pensare di utilizzare access anzichè excel, cmq sia... se proprio vuoi usare excel ecco il nuovo codice gia testato sul tuo file.
Ciao

Option Explicit

Sub codicilli()
Dim ur As Long, cod As Variant, c As Range

Application.ScreenUpdating = False
ur = Sheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row

For Each c In Sheets("Foglio2").Range("A1:A" & ur)
    
    cod = c.Offset(, 1)
    
        Sheets("Foglio1").Columns("A:A").Replace What:=c.Value, Replacement:=cod, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Next c

End Sub

di gigi (utente non iscritto) data: 25/11/2013 09:41:18
Grazie di tutto funziona benissimo... Grazie ancora
di totygno71 (utente non iscritto) data: 25/11/2013 10:02:43
Prego
Allora puoi spuntare su discussione risolta!

Vuoi Approfondire?