Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Problema sviluppo Macro copia ed ordine personalizzato

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

Problema sviluppo Macro copia ed ordine personalizzato

Postdi contiend » 27/09/14 08:00

Ciao a tutti,
ho un macro utilizzata in un FOGLIO nominato " OK " .
Questo foglio è la base,
poi ogni settimana viene effettuata una copia del FOGLIO rinominando i vari fogli,
CAM1, CAM2, CAM3 ecc...

Ho notato che la macro sotto indicata, funziona sul FOGLIO "OK" dove è stata creata, ma non funziona sui FOGLI copiati (penso perché hanno un nome diverso a questo punto. La cosa strana è che altre macro funziona benissimo con questo "metodo").

C'è un modo di dirgli che questa macro funzioni anche sui fogli che vengono copiati???
Cioè mi serve che appena copio il foglio e rinomino il foglio, questa macro funzioni.

Grazie dell'attenzione


Codice: Seleziona tutto
Sub BONUSordina2()
'
' BONUSordina2 Macro
'

'
    Range("BZ1").Select
    ActiveWindow.SmallScroll Down:=213
    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
    Range("CF1").Select
    ActiveWindow.SmallScroll Down:=177
    Range("CF1:CI240").Select
    ActiveWindow.SmallScroll Down:=-327
    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
    Range("CP1").Select
End Sub
Windows 10
OFFICE 2010
Avatar utente
contiend
Utente Senior
 
Post: 145
Iscritto il: 20/04/09 17:45

Sponsor
 

Re: Problema sviluppo Macro copia ed ordine personalizzato

Postdi ricky53 » 28/09/14 21:21

Ciao,
prova a sostituire tutti gli
Codice: Seleziona tutto
ActiveWorkbook.Worksheets("OK")


con
Codice: Seleziona tutto
ActiveSheet
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

Re: Problema sviluppo Macro copia ed ordine personalizzato

Postdi contiend » 01/10/14 10:49

Perfettamente funzionante!!
Grazie mille!
Gentilissimo.
Windows 10
OFFICE 2010
Avatar utente
contiend
Utente Senior
 
Post: 145
Iscritto il: 20/04/09 17:45


Torna a Applicazioni Office Windows


Topic correlati a "Problema sviluppo Macro copia ed ordine personalizzato":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti