La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
| A | C | 13 |
| X | A | 22 |
| C | X | 6 |
| A | A | 22 |
| X | X | 6 |
| C | C | 13 |
ciao
se vuoi nelle stesse colonne vba
su altre formule
dicci tu come vuoi il risultato
Preferirei che l'ordinamento avvenisse nelle stesse colonne
ciao
aspettiamo i vbaisti
ciao
senti io e il vba non siamo amici
comunque una idea ce l'avrei
filtra la prima colonna per ordine dalla A alla Z (non espandere la selezione)
poi seleziona le colonne B:C
filtro personalizzato
colonna B...............dalla A alla Z
fatto........è tutto allineato
l'ho registrata come macro ed esce
Sub Macro4()
Range("A1:A10").Select
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add2 Key:=Range("A1:A5") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Foglio1").Sort
.SetRange Range("A1:A5")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B1:C10").Select
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add2 Key:=Range("B1:B6") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Foglio1").Sort
.SetRange Range("B1:C6")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("H16").Select
End Sub
tutta da migliorare e neanche necessaria puoi fare tutto a mano con filtro
