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