Condividi:        

[vba] sostiture valore per ordinare colonne

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[vba] sostiture valore per ordinare colonne

Postdi expectancy.pm » 07/01/12 19:57

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?
expectancy.pm
Utente Junior
 
Post: 30
Iscritto il: 19/09/11 11:52

Sponsor
 

Re: [vba] sostiture valore per ordinare colonne

Postdi Flash30005 » 08/01/12 01:27

Ehm
non credo di aver interpretato perfettamente il tuo quesito
proviamo così
Codice: Seleziona tutto
ColOrd = Range("A1").value  '<<<<< aggiungere questa riga
'--- tua macro
Rows(7 & ":" & 7 + Totali - 1).Select
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Clear
'---- modificare la riga che segue
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add Key:=Range(Range(ColOrd).Cells(1, 1), Range(ColOrd).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


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [vba] sostiture valore per ordinare colonne

Postdi expectancy.pm » 08/01/12 12:04

Flash hai capito benissimo il quesito e l'hai pure risolto :) grazie.

Lo strano è che avevo fatto ieri la stessa identica cosa e mi dava sempre errore :roll:

Grazie mille!
ciao
expectancy.pm
Utente Junior
 
Post: 30
Iscritto il: 19/09/11 11:52


Torna a Applicazioni Office Windows


Topic correlati a "[vba] sostiture valore per ordinare colonne":

BTp Valore
Autore: MarioLombardi
Forum: Forum off-topic
Risposte: 2

Chi c’è in linea

Visitano il forum: Gianca532011 e 88 ospiti