Pagina precedente | 1 | Pagina successiva
Facebook  

ordinare dati

Ultimo Aggiornamento: 11/12/2018 23.46
Autore
Stampa | Notifica email    
Post: 3
Registrato il: 01/12/2018
Città: BRINDISI
Età: 15
Utente Junior
2013
OFFLINE
08/12/2018 21.41

Ciao a tutti seguendo il consiglio di Mario (che ringrazio ancora ) Vi allego il file in questione. Ho creato un cronometro con dei parziali tramite pulsanti. Non riesco però a farli mettere in ordine crescente.
Spero che qualcuno riesca a darmi una dritta. Grazie.
Dati sul turismo a CubaCuba Faciledati15/01/2019 21.25 by cocoloco
Aggiornare dati dal web con vba non in primo pianodati17/01/2019 12.20 by raffaele1953
Celle collegate tra fogli differentidati28/12/2018 17.56 by GiuseppeMN
Post: 745
Registrato il: 16/08/2015
Utente Senior
Excel 2016 64bit
OFFLINE
08/12/2018 23.07

Una macro fatta con il Registratore di Macro è più che sufficiente, credo. Devi solo crearti un pulsante ed associargliela.
Sub ordina_risultati()
    
    With Worksheets("Foglio1")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add2 Key:=Range("A7:A10"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Range("A7:C10")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
    
End Sub
[Modificato da rollis13 08/12/2018 23.08]
Post: 3
Registrato il: 01/12/2018
Città: BRINDISI
Età: 15
Utente Junior
2013
OFFLINE
09/12/2018 00.01

Perfetto ho inserito un pulsante e va alla grande.
Però se è possibile ho bisogno che lo faccia automaticamente ogni qualvolta viene inserito un parziale e non alla fine. Grazie ancora.
Post: 746
Registrato il: 16/08/2015
Utente Senior
Excel 2016 64bit
OFFLINE
09/12/2018 00.16

Da com'è strutturato il tuo progetto non credo ti piacerà il riordinare ad ogni parziale. Per vedere 'che effetto fa' ti basta inserire la chiamata alla mia macro prima della fine delle quattro macro che governano i pulsanti delle corsie. Un esempio poi da riportare negli altri:
Sub Pulsante4_Click()
    
    Range("a7") = Range("c2")
    Range("c7") = "corsia 1"
    ordina_risultati      '<--
    
End Sub
Post: 4
Registrato il: 01/12/2018
Città: BRINDISI
Età: 15
Utente Junior
2013
OFFLINE
11/12/2018 19.13

Perfetto Grazie.....
Post: 748
Registrato il: 16/08/2015
Utente Senior
Excel 2016 64bit
OFFLINE
11/12/2018 23.46

Grazie del riscontro positivo 🙂.
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
ordinare dati (3 messaggi, agg.: 03/12/2018 19.46)
Home Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 05.23. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com