CONFRONTO VALORI SU PIù FOGLI E RIPORTARE VALORE MINIMO

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
shadi1978
00venerdì 8 aprile 2016 15:59
Ciao,
mi sto scervellando da vari giorni, ho provato vari codici ma nn ne vengo a capo! Non sono un esperto e finora mi sono arrangiato con aiuti e copia e incolla di codici, ma ora sono proprio impantanato.
Non posso allegarvi il file in quanto il programma è suddiviso su 5 file excel differenti, ognuno dei quali con una macro che fa riferimento agli altri file. Ora vi spiego il funzionamento e alla fine allego il codice del file + importante!

1. 4 file: ogni file sono un insieme di righe che descrivono il costo di trasporto di una spedizione:
es.
Shipp. Dest. P.O.L Grower Pr. Rate (+ altre 4col. dati)
HAPAG MONTREAL GENOVA CUNEO CN 3.850,00 (Range dati A:I)

Ognuno dei file, però, mi viene inviato con tabulazioni diverse (maiuscolo/minuscolo, nome POL/Grower/ecc. diversificati anche se dovrebbero essere uguali); quindi questi 4 file mi servono solamente per creare una tabulazione che sia la stessa per tutti e 4 per poi fare il confronto.

2. 5° file formato da 6 fogli:
1° FOGLIO IN CUI VOGLIO RIPORTARE IL RISULTATO, CHE CONSISTE NEL COPIARE TUTTE LE RATE A DISPOSIZIONE UNA SOLA VOLTA (eliminare vari doppioni) E RIPORTARE TUTTE LE INFORMAZIONI RELATIVE A QUELLA CON VALORE MINIMO PER CIASCUNA DI ESSE.
2°/3°/4°/5° FOGLIO: VIENE RIPORTATO (TRAMITE MACRO) IL FILE CON TABULAZIONE COMUNE PER OGNI SINGOLO CLIENTE (OGNI FOGLIO CORRISPONDE AD UN CLIENTE DIVERSO)
6° FOGLIO: QUI VENGONO ELABORATI I DATI DEI FOGLI 2->5 PER RECUPERARE LE TRATTE UNIVOCHE SENZA DOPPIONI E POI RIPORTARLI SU FOGLIO 1.


Fino a qui è tutto fatto e funziona egregiamente!

A questo punto avrò su foglio1 la lista completa delle tratte, MA MI MANCHERANNO TUTTE LE INFO CON IL PREZZO MIGLIORE.

Ho allegato un piccolo file in cui cerco di spiegarvi visivamente cosa dovrei fare.

Di seguito una parte del codice del file per i prezzi migliori:

' fino a qui ho importato i file per i singoli clienti

Call RATE ' Lancia macro RATE: serve per trovare le rate univoche senza doppioni

'importo rate univoche
Sheets("ELABORAZIONE").Select
Set RATEUNIV = Range("L2:L300")

Sheets("TOP PRICES").Select
Range("A10").Select
Range("A10:A308") = RATEUNIV.Value

'ordinamento alfabetico rate univoche
Columns("A:A").Select
Range("A4").Activate
ActiveWorkbook.Worksheets("TOP PRICES").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TOP PRICES").Sort.SortFields.Add Key:=Range("A4") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("TOP PRICES").Sort
.SetRange Range("A10:A188")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("A10").Select

'ora dovrei fare il confronto e trovare prezzo migliore e copiare
'relative info con l'aggiunta da quale foglio è stata preso il prezzo

End Sub

shadi1978
00lunedì 11 aprile 2016 09:27
AIUTOOOOOO!

Nessuno di coi è in grado di aiutarmi???

Sono disperato, grazie mille
shadi1978
00martedì 12 aprile 2016 09:12
ditemi che sono un folle a fare questo prg, datemi delle dritte se devo cambiare strada....

ho bisogno di consiglio da gente esperta nell'utilizzo di Excel, è un programma fodamentale per il mio lavoro!

Grazie ancora
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 00:34.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com