macro listini

[lory124]

Salve a tutti,
mi servirebbe una mano...premetto che ho cercato con la funzione cerca ma non ho trovato una soluzione che si adatti al mio problema e non sapendo nulla di macro ecc. non potevo modificare quelle da voi fatte.

Allora io ho 2 file di excel:
- 1 file che contiene un listino con 4 colonne :sigla marchio,codice prodotto,descrizione prodotto, prezzo...
- 1 file sempre con un listino di 4 colonne come sopra ...

a me servirebbe un modo (una macro credo) che confronti i codici prodotto del primo e del secondo file e che crei un altro file con le righe dei prodotti uguali (che hanno lo stesso codice) ma con i prezzi del primo file (esempio nel primo file prodotto A è a 4 euro, nel secondo file prodotto A è a 3 euro...nel nuovo file dovrebbe esserci Prodotto A 4 euro)

questi file posso anche unirli e metterli nei vari fogli (foglio 1 file 1, foglio 2 file 2) credo sia più ragionevole cosi creare una macro adatta..
spero di essermi spiegato bene e che abbiate capito :/ se potrete aiutarmi sarebbe fantastico, grazie mille buona giornata

[ricky53]

Ciao,
prima di tutto benvenuto nel nostro forum!


Adesso veniamo al tuo quesito.

Immagino che i codici prodotto siano la chiave che rende univoco il dato !
Nel file1 ogni codice prodotto è presente una sola volta !
Nel file2 sono presenti solo codici che si trovano nel file1 !

Se confermi queste mie tre assunzioni possiamo provare a trovare la soluzione più utile per la tua esigenza.

Quante sono le righe nei due file ?

[lory124]

sisi i codici prodotto sono esempio :150504n ed è collegato ad un prodotto unico
nel file 1 sì ogni codice c'è una sola volta
nel file 2 sì solo prodotti contenuti anche nel file 1

eh per le righe dipende da file a file...cercavo una macro che poi potessi riutilizzare (nel caso mi dice dove dopo dovrò modificare il numero delle righe), comunque facciamo file 1 righe 20 file 2 righe 10 (sono due file di prova che uso per vedere se la macro va)

comunque grazie per il benvenuto ^^

[Flash30005]

Ciao Lory124 e benvenuto nel Forum

E' consigliabile, come dici, di inserire in due fogli (foglio1 file1 e foglio2 file2) in un nuovo file che li contenga entrambi
il risultato andrà nel foglio 3
con questa macro

Codice: Seleziona tutto

Sub riporta()
UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
UR2 = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Foglio3").Cells.Clear
For RR1 = 1 To UR1
    For RR2 = 1 To UR2
    If Worksheets("Foglio1").Range("A" & RR1).Value = Worksheets("Foglio2").Range("A" & RR2).Value Then
        UR3 = Worksheets("Foglio3").Range("A" & Rows.Count).End(xlUp).Row + 1
         Worksheets("Foglio3").Range("A" & UR3).Value = Worksheets("Foglio1").Range("A" & RR1).Value
         Worksheets("Foglio3").Range("B" & UR3).Value = Worksheets("Foglio1").Range("D" & RR1).Value
         GoTo SaltaRR1
    End If
    Next RR2
SaltaRR1:
Next RR1
End Sub


ciao

[lory124]

provo...ehm piccola domanda come faccio a inserire la macro che mi avete dato :/ scusate l'ignoranza ?

[Flash30005]

con il file aperto in qualsiasi foglio
premi Alt+F11
si aprirà il Vbaproject
ora dal Menu Inserisci selezioni modulo e nel frame di destra incolli l'intero script precedente copiato dal post
Poi lo avvii con l'esecuzione (freccia come il Play dei registratori)
potrai, poi, abbinare un comando di scelta rapida o pulsante

ciao

[lory124]

fatto tutto come detto ma nel foglio 3 non compare nulla..

[ricky53]

Ciao Lory,
il nuovo foglio (nell'esempio di Flash è il "Foglio3") deve avere la stessa struttura dei due fogli di partenza?
I dati sono ordinati per colonna "B" crescente?



Flash: la chiave è la colonna "B" codice prodotto e non la "A" sigla marchio

[lory124]

ah no ok ora va...solo 2 cose:
i codici prodotto sono nella seconda colonna dei due fogli non nella prima
nel foglio 3 se i dati (prezzo, seconda colonna) li prendi dal foglio 1 va bene, ora non posso capirlo perchè sono uguali sia nel primo foglio che nel secondo

[lory124]

ricky53 guarda a me alla fin fine nel foglio3 interessa solo che venga fuori il codice dei prodotti uguali e il prezzo giusto (foglio1) la descrizione ecc non importa

[ricky53]

Allora va bene avere solo due colonne nel foglio3

Cambia qualche prezzo nel "foglio2" e riprova

[lory124]

sisi le due colonne vanno bene solo nella prima colonna del foglio 3 prende i dati della colonna A del foglio 1-2 invece a me serve che controlli la colonna B

[lory124]

provato con i prezzi e prende quelli giusti del foglio uno ora serve solo correggere quella cosa della colonna

[ricky53]

Ciao
cambia

Codice: Seleziona tutto

    If Worksheets("Foglio1").Range("A" & RR1).Value = Worksheets("Foglio2").Range("A" & RR2).Value Then

con

Codice: Seleziona tutto

    If Worksheets("Foglio1").Range("B" & RR1).Value = Worksheets("Foglio2").Range("B" & RR2).Value Then

e

Codice: Seleziona tutto

Worksheets("Foglio3").Range("A" & UR3).Value = Worksheets("Foglio1").Range("A" & RR1).Value

con

Codice: Seleziona tutto

Worksheets("Foglio3").Range("A" & UR3).Value = Worksheets("Foglio1").Range("B" & RR1).Value

[lory124]

perfettooooooooo grazie mille a tutti e due ^.^ gentilissimi e bravissimi :3 grazie

[ricky53]

Ciao,
alla prossima e buon proseguimento.

[lory124]

mmmmm non vorrei stressarvi e rompervi :/ ma mi servirebbe una piccola modifica al codice....con calma non serve subitissimo..

[Flash30005]

Quale modifica?

[lory124]

per il prezzo...nel foglio 1 in parte alla colonna del prezzo c'e ne è un'altra con dei numeri tipo (1,10,100) che significa che il prezzo vale per quelle quantità li (tipo 20 euro per 100 prodotti)...mi servirebbe che il prezzo del foglio 3 sia il prezzo per unico prodotto (20/100=0,2)

foglio1 i prezzi sono nella colonna D, i numeri (10,100..) colonna E

senza fretta :3 grazie mille davvero

[Flash30005]

Allora cambia solo questa riga codice da

Codice: Seleziona tutto

        Worksheets("Foglio3").Range("B" & UR3).Value = Worksheets("Foglio1").Range("D" & RR1).Value

a

Codice: Seleziona tutto

        Worksheets("Foglio3").Range("B" & UR3).Value = Worksheets("Foglio1").Range("D" & RR1).Value / Worksheets("Foglio1").Range("E" & RR1).Value

ciao