CIAO,
vorrei ordinare le colonne, prelevate da file diversi, (nell'esempio ho riportato un solo file con 3 esempi, non bisogna considerare la colonna A e B.) con un ordine che lo imposto io secondo una stringa o array in VBA.
esempio 3 colonne: ord=(COGNOME, NOME, M/F)
Siccome ci sono + colonne con la scritta NOME (NOME PROPRIO, NOME 2, tot NOME, ecc...) vorrei che venissero prese tutte.
NOn conosco il n° di righe di ogni singolo file.
Per il caricamento posso utilizzare il programma:
Sub MakeIndex()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Worksheets("Indice").Cells.ClearContents
myDir = ThisWorkbook.Path & "\"
NSumm = ActiveWorkbook.Name
myFile = Dir(myDir & "*.xls?")
Do While myFile <> ""
If myFile = ThisWorkbook.Name Then GoTo nextF
Workbooks.Open (myDir & myFile)
For FF = 1 To Worksheets.Count
URIE = Workbooks(NSumm).Worksheets("Indice").Cells(Rows.Count, 1).End(xlUp).Row + 1
UROr = Workbooks(myFile).Sheets(FF).Cells(Rows.Count, 1).End(xlUp).Row
Workbooks(myFile).Sheets(FF).Range("A4:C" & UROr).Copy Destination:=Workbooks(NSumm).Sheets("Indice").Cells(URIE, 1)
Next FF
ActiveWorkbook.Close savechanges = False
nextF:
myFile = Dir
Loop
http://rapidshare.com/share/B293816F79450BF4A9E438FDC1BE8AE7
Grazie