Rows(7 & ":" & 7 + Totali - 1).Select
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add Key:=Range(Range("PIPPO").Cells(1, 1), Range("PIPPO").Cells(Totali, 1)) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Foglio1").Sort
.SetRange Range("A7:XFD" & 7 + Totali - 1)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Con questo codice ordino delle colonne in base ai valori presenti nella colonna etichettata con nome "PIPPO".
Già che il nome della colonna da ordinare cambia spesso, vorrei sostituire il nome pippo dal foglio con il nome presente in una cella excel (es. A1), cella nominata ad esempio: "predittore".
Il problema nasce quando vado a sostituire nel codice vba pippo con Pred sapendo che
Pred=Range("predittore").value
Come diavolo si può sostituire?