Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EX 10] Comando macro da applicare su foglio che cambia nome

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

[EX 10] Comando macro da applicare su foglio che cambia nome

Postdi contiend » 03/03/15 16:14

Ciao a tutti,
vi pongo in esame un estratto di una macro da me REGISTRATA

Codice: Seleziona tutto
Range("BZ1:CC240").Select
    ActiveWorkbook.Worksheets("ok").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ok").Sort.SortFields.Add Key:=Range( _
        "CB1:CB240"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ok").Sort
        .SetRange Range("BZ1:CC240")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=-108
    Range("CF1").Select
    ActiveWindow.SmallScroll Down:=234
    Range("CF1:CI240").Select
    ActiveWindow.SmallScroll Down:=-621
    ActiveWorkbook.Worksheets("ok").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ok").Sort.SortFields.Add Key:=Range( _
        "CH1:CH240"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ok").Sort
        .SetRange Range("CF1:CI240")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


La macro prende in esame le celle "BZ1:CC240" e "CF1:CI240" e le ordina in maniera PERSONALIZZATA,
all'interno di un foglio chiamato " OK " .


Il problema si pone quando io vado a copiare la cartella " OK " e la rinomino. A questo punto la MACRO (che sarebbe più estesa di così), procede nelle sue operazioni ma non mi effettua l'operazione di ordinamento personalizzato, immagino io, perchè il nome del nuovo foglio copiato non è più " ok ", ma è stato cambiato.

A questo punto vi chiedo, è possibile inserire una RIGA che applichi il comando non al singolo foglio " OK " , ma ad più generico foglio ATTUALMENTE aperto?

Il nome del foglio copiato sul quale applicare questa macro cambia ogni volta, per questo servirebbe una riga che prenda in esame il foglio attualmente "in uso".

Esiste?

Vi ringrazio per l'attenzione. :)
Windows 10
OFFICE 2010
Avatar utente
contiend
Utente Senior
 
Post: 145
Iscritto il: 20/04/09 17:45

Sponsor
 

Re: [EX 10] Comando macro da applicare su foglio che cambia

Postdi ricky53 » 03/03/15 17:03

Ciao,
prova a sostituire
Codice: Seleziona tutto
Worksheets("ok")

con
Codice: Seleziona tutto
ActiveSheet


anche se fare riferimento al foglio attivo può creare problemi se durante l'elaborazione della macro viene cambiato foglio attivo ...
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "[EX 10] Comando macro da applicare su foglio che cambia nome":


Chi c’è in linea

Visitano il forum: Anthony47 e 15 ospiti