Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

creare routine

Ultimo Aggiornamento: 04/12/2016 13:17
Post: 44
Registrato il: 04/08/2004
Utente Junior
2007
OFFLINE
04/12/2016 11:58

Buongiorno
con il registratore ho creato questo codice


Sub Macro1()

ActiveWorkbook.Worksheets("NUM").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("NUM").Sort.SortFields.Add Key:=Range("B4") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("NUM").Sort
.SetRange Range("B4:Z500")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub


Vorrei creare un codice che mi faccia lo stesso lavoro in una posizione qualsiasi
è possibile?

grazie





Excel 2007
Post: 3.523
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
04/12/2016 12:13

una posizione qualsiasi non significa niente, spiegati meglio, devi comunque specificare il range e la chiave
[Modificato da patel45 04/12/2016 12:15]

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 757
Registrato il: 24/04/2004
Città: TERAMO
Età: 63
Utente Senior
2010
OFFLINE
04/12/2016 12:48

Re:
patel45, 04/12/2016 12.13:

una posizione qualsiasi non significa niente, spiegati meglio, devi comunque specificare il range e la chiave

Ribadisco quanto scritto da patel, bisogna essere precisi il più possibile in forum come questo, altrimenti si rischia di perdere intere giornate (letteralmente) per interpretare correttamente la richiesta.
Nel tuo caso ci sono almeno due interpretazioni possibili:
-vuoi che la macro agisca su un qualunque foglio
-vuoi che la macro agisca su un range diverso
Nel primo caso si può sostituire
ActiveWorkbook.Worksheets("NUM")
con
Activesheet
poi selezionare il foglio desiderato e lanciare la macro.
Se, invece, vuoi agire su un range diverso, puoi sostituire(credo)
Range("B4:Z500")
con
Selection
e
Range("B4")
con
Selecti0n(1)
selezioni l'area desiderata e lanci la macro.
Attenzione che il tag CODE altera la visualizzazione di Selecti0n(1) e sostituisce la "o" con uno 0.
[Modificato da Zer0kelvin 04/12/2016 12:52]
__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)
Post: 3.526
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
04/12/2016 13:17

buona idea quella del Selecti0n(1), non ci avrei mai pensato

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Vota:
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]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 15:14. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com