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.
