Moderatori: Anthony47, Flash30005
Sub ordinaeinvia()
'
' ordinaeinvia Macro
'
'
Range("A2:C27").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("C3:C27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("A2:C27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D2:F27").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("F3:F27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("D2:F27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("G2:I27").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("I3:I27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("G2:I27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J2:L27").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("L3:L27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("J2:L27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("M2:O27").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("O3:O27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("M2:O27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A35:C60").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("C36:C60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("A35:C60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D35:F60").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("F36:F60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("D35:F60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("G35:I60").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("I36:I60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("G35:I60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J35:L60").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("L36:L60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("J35:L60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("M35:O60").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("O36:O60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("M35:O60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3:B13").Select
Selection.Copy
Range("X4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A14:B20").Select
Application.CutCopyMode = False
Selection.Copy
Range("X18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D3:E13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D14:E20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G3:H13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G14:H20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3:K13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J14:K20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M3:N13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M14:N20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A36:B46").Select
Application.CutCopyMode = False
Selection.Copy
Range("X34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A47:B53").Select
Application.CutCopyMode = False
Selection.Copy
Range("X48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D36:E46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D47:E53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G36:H46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G47:H53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J36:K46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J47:K53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M36:N46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M47:N53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("Q22").Select
End Sub
Flash30005 ha scritto:Ho provato la tua macro ma si blocca alla seconda riga di codice
- Codice: Seleziona tutto
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
Errore runtime "438"
metto in chiaro una cosa......io sono ignorante nel linguaggio bva
Il concetto della risposta e':
FF e' (nella tua macro) una variabile numerica; il nome di un foglio e' una variabile stringa; le modifiche trasformano FF in una stringa.
E' altresi' utile selezionare il foglio su cui si vuole lavorare per evitare di dover qualificare esplicitamente tutti i riferimenti Range.
Sub ordinaeinvia()
'
' ordinaeinvia Macro
'
For FF = 1 To 36
Sheets(Format(FF, "0")).Select
'
Range("A2:C27").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("C3:C27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A2:C27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D2:F27").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("F3:F27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("D2:F27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("G2:I27").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("I3:I27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("G2:I27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J2:L27").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("L3:L27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("J2:L27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("M2:O27").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("O3:O27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("M2:O27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A35:C60").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("C36:C60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A35:C60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D35:F60").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("F36:F60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("D35:F60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("G35:I60").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("I36:I60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("G35:I60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J35:L60").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("L36:L60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("J35:L60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("M35:O60").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("O36:O60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("M35:O60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3:B13").Select
Selection.Copy
Range("X4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A14:B20").Select
Application.CutCopyMode = False
Selection.Copy
Range("X18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D3:E13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D14:E20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G3:H13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G14:H20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3:K13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J14:K20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M3:N13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M14:N20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A36:B46").Select
Application.CutCopyMode = False
Selection.Copy
Range("X34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A47:B53").Select
Application.CutCopyMode = False
Selection.Copy
Range("X48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D36:E46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D47:E53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G36:H46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G47:H53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J36:K46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J47:K53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M36:N46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M47:N53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("Q22").Select
Next FF
End Sub
Avevo capito (erroneamente, mi viene ora da pensare sulla base della frase quotata) che il problema residuo era riuscire a eseguire la macro su tutti i fogli del file, non solo su foglio "1"; se l' obiettivo era diverso allora tutto quello che ho scritto non c' entra nulla e va semplicemente dimenticato.questa è la macro corretta in base alle indicazioni di anthony.
sembra funzionare bene l'unica cosa e che funziona su tutti i foglio non si ferma finche nn finiscono i 36 foglio , allora
credo che devo identificare il foglio come hai scritto.....
cosa e dove devo mettere per selezionare il foglio?
Queste macro esistono gia' o sono l' oggetto della domanda?praticamente la macro deve funzionare sul suo foglio e non su tutti contemporaneamente....
ogni foglio ha la sua macro e deve funzionare solo su di essa......
Ti ho detto l' obiettivo con cui te l' ho proposta, se l' obbiettivo e' sbagliato allora piu' che inutile l' ultima modifica e' stata dannosa e va rimossa.quindi la modifica all'ultima macro è stata inutile?
gigilatrottola ha scritto:il fatto che ci siano tanti fogli tutti uguali e perchè ci sono 36 giornate di fantacalcio,
gigilatrottola ha scritto:ogni giornata le 10 squadre cambiano , per esempio gli 11 titolari della squadra 1 nel foglio 1 saranno diversi dagli 11 titolari della squadra 1 nel foglio 2 e questo x tutte i 36 fogli.
gigilatrottola ha scritto:allora la macro che eseguo deve mettermi in ordine di T e di 1 2 3 4 5 6 7 e copiarmi i titolari e panchinari nell'altra parte del foglio e basta . il suo compito nasce e muore sul foglio 1, non deve andare a cambiare anche gli altri fogli.
gigilatrottola ha scritto:nella seconda giornata e quindi il secondo foglio, quando inserirò manalmente le t e i 7 numeri, avvierò la macro e deve fare quello che descritto sopra, ma solo sul foglio 2. e questo discorso vale x tutti i fogli. le macro devo agire solo all'interno del foglio singolo.
gigilatrottola ha scritto:x quando riguarda la classifica, la macro "invia risultati a classifica" la eseguo dopo aver inseirto i risultati nelle celle
T15 U 19 che copia i risultati nelle celle D31 E35 del foglio classifica il quale è unico e cambia di domenica in domenica, in poche parole deve solo visualizzare i risultati, nient'altro, non ha nessuna funzione particolare.
FF = Worksheets("NomeDelFoglioCheContieneLaCellaCon_il_NumeroDiGiornata").Range("A1").TEXT
Sub ordinaeinvia()
'
' ordinaeinvia Macro
'
FF = Worksheets("1").Range("S14").Text
'
Range("A2:C27").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("C3:C27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("A2:C27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D2:F27").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("F3:F27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("D2:F27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("G2:I27").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("I3:I27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("G2:I27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J2:L27").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("L3:L27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("J2:L27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("M2:O27").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("O3:O27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("M2:O27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A35:C60").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("C36:C60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("A35:C60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D35:F60").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("F36:F60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("D35:F60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("G35:I60").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("I36:I60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("G35:I60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J35:L60").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("L36:L60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("J35:L60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("M35:O60").Select
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Add Key:=Range("O36:O60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"T,1 2 3 4 5 6 7", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FF").Sort
.SetRange Range("M35:O60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3:B13").Select
Selection.Copy
Range("X4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A14:B20").Select
Application.CutCopyMode = False
Selection.Copy
Range("X18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D3:E13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D14:E20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G3:H13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G14:H20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3:K13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J14:K20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M3:N13").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M14:N20").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A36:B46").Select
Application.CutCopyMode = False
Selection.Copy
Range("X34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A47:B53").Select
Application.CutCopyMode = False
Selection.Copy
Range("X48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D36:E46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D47:E53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G36:H46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G47:H53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J36:K46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J47:K53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AM48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M36:N46").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M47:N53").Select
Application.CutCopyMode = False
Selection.Copy
Range("AR48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("Q22").Select
End Sub
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 77 ospiti