ORDINARE VALORI IN EXCEL

[sandrin81a]

Ciao a tutti,

mi trovo in imbarazzo per una banalità, ma non ne sto venendo a capo.. il prpblema:
un file che devo rieodinare


CICCIO,CAIO,16.0X,On,3.19,0,567.5(m)
FAUSTO,GIANNI,16.0X,On,4.19,1,597.5(m)
GABRIELE,CICCIO,16.0X,On,3.19,4,397.5(m)
ANSELMO

devo ordinare le colonne B:G secondo la colonna A, con il valore della colonna B uguale al valore della colonna A.
i dati in B:G sono maggiori dei dati in A...

lo so che è una banalità.. ma sto diventando matto con il cerca.verticale..

se qualche anima pia mi indica la via..

grazie in anticipo..

[sandrin81a]

ops, mi scuso per un errore:

CICCIO,GABRIELE,16.0X,On,3.19,0,567.5(m)
FAUSTO,CICCIO,16.0X,On,4.19,1,597.5(m)
GABRIELE,ANSELMO,16.0X,On,4.19,1,597.5(m)
,FAUSTO,16.0X,On,3.19,4,397.5(m)

questo oridine lo vorrei far diventare:
CICCIO,CICCIO,16.0X,On,4.19,1,597.5(m)
FAUSTO,FAUSTO,16.0X,On,3.19,4,397.5(m)
GABRIELE,GABRIELE,16.0X,On,3.19,0,567.5(m)
,ANSELMO

secondo me l'eventuale macro dovrebbe andare ad indicizzare i nomi preseni in A e B,
confrontare i nomi in A con quelli in B e poi ordinare le colonne da B in poi..
ma non saprei come farlo...

scusate il disturbo..

[Anthony47]

Ciao sandrin81a, benvenuto nel forum.
Per evitare incomprensioni e' meglio che alleghi il file esemplificativo; per come fare guarda qui: viewtopic.php?f=26&t=80395
Ti aspettiamo...

[sandrin81a]

Ciao,
grazie per il suggermento, il file CSV: http://www.filedropper.com/report_4

[Anthony47]

Allora
-in colonna A hai 265 sigle uniche (mai ripetute);
-in colonna B hai 296 sigle; di cui 290 uniche e 6 doppie; di cui 163 presenti in colonna A e 133 non presenti in colonna A.

Come dovrebbe essere l' output?

Ciao

[sandrin81a]

grazie mille,
per esempio dovrebbe essere questo:

TOT007_NR_B2M09_L30---AA_091115375,TOT007_NR_B2M09_L30---AA_091115375,16.0X,On,0,0,1060.5(m)

la colonna A sono i nomi da cercare nella colonna B. una volta trovato una corrispondenza, in un qualche modo mi servirebbe sapere i valori delle colonne da C in poi.
se nello stesso foglio non è possibile farlo, si potrebbe fare in un foglio nuovo..

grazie ancora...

[Flash30005]

Ciao Sandrin81a e benvenuto nel Forum

Avrei preparato questa macro che dovrai copiare per intero e inserirla nel Vba di un nuovo file (vuoto)
incollandola in un modulo.
Salvi il file con la macro nella stessa directory del tuo file "Report.csv"
Ora apri il file con macro e avvia la macro
Ti troverai due fogli
1) report originale
2) elenco sistemato come richiesto

Codice: Seleziona tutto

Sub RiportaCsv()
Perc = ThisWorkbook.Path & "\"
NomeFile = "Report.csv"
    Workbooks.Open Filename:=Perc & NomeFile
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1").Select
NomeR = ActiveSheet.Name
    URR = Worksheets(NomeR).Range("A" & Rows.Count).End(xlUp).Row
    NomeE = "Elenco"
    Sheets(NomeR).Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = NomeE
    Worksheets(NomeE).Range("B:G").Delete
 Worksheets(NomeE).Select
For RRE = 1 To URR
CampE = Worksheets(NomeE).Range("A" & RRE).Value
For RRR = 1 To URR
CampR = Worksheets(NomeR).Range("A" & RRR).Value
If CampE = CampR Then
Worksheets(NomeR).Range("B" & RRR & ":G" & RRR).Copy Destination:=Worksheets(NomeE).Range("B" & RRE)
GoTo saltaRRE
End If
Next RRR
saltaRRE:
Next RRE
Cells.EntireColumn.AutoFit
End Sub

Salverai il file xls con altro nome

ciao

[sandrin81a]

grazie mille,

appena riesco a ricollegarmi ti faccio sapere.

grazie ancora!