Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

help formule e macro per programma fantacalcio

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

Re: help formule e macro per programma fantacalcio

Postdi Anthony47 » 27/11/10 00:17

E mi dici come si chiamano i tuoi fogli?
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Sponsor
 

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 27/11/10 00:25

ecco la macro per non sbagliare e i fogli si chiamano semplicemente 1 2 3 4 5 6 7 ......fino a 36
l'errore come ripeto e sulla seconda riga
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear


Codice: Seleziona tutto
    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
gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi Anthony47 » 27/11/10 00:33

L' errore ce l' hai su
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
oppure su
ActiveWorkbook.Worksheets(FF).Sort.SortFields.Clear con FF=1?
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 27/11/10 00:38

l'errore sta con ActiveWorkbook.Worksheets(FF).Sort.SortFields.Clear con FF=1 !

mentre se con "1" funziona benissimo, ma nn funziona sugli altri fogli.
gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi Anthony47 » 27/11/10 00:50

Quindi la macro che mi hai passato 20 minuti fa non e' quella giusta?

Fai cosi':
Togli
For FF=1 to 36

Metti
For FFF=1 to 36
FF=Format(FFF,"0")


poi prova; forse "gira", ma non funzionera'.

La cosa piu' saggia sarebbe inserire ancora (dopo le due che ho detto di mettere)
Sheets(FF).Select

e poi usare ActiveSheet invece di ActiveWorkbook.Worksheets(FF)
perche' altrimenti dovresti qualificare tutti i riferimenti; ad esempio su
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("C3:C27")
secondo te quali C3:C27 prende?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 27/11/10 01:09

non lo so se l'orario ma adesso non ci ho capito niente più ho aggiusto quello che hai scritto ma poi al posto di "1" devo mettere FF oppure FFF
alla fine della pagina devo scrivere NEXT FF?

puoi cortesemente aggiugere tu queste righe?
ciao e buona notte
gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi Anthony47 » 27/11/10 01:45

In testa:
For FF=1 to 36 'Forse ce l' hai gia
Sheets(Format(FF,"0")).Select '<<AGGIUNTO
'
'
'In coda:
Next FF 'Forse ce l' hai gia'

All' interno della macro sostituirai tutti i riferimenti ad ActiveWorkbook.Worksheets(FF) con Activesheet; es
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear diventera'
Activesheet.Sort.SortFields.Clear

Nota che rispetto a quanto suggerito prima ho cambiato approccio, eliminando il bisogno di una nuova variabile (voleva essere un modo per evidenziare le modifiche e non dover cambiare le istruzioni centrali della macro, cosa che pero' e' inevitabile).

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.

Spero che a mente fresca ti sia tutto chiaro.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: help formule e macro per programma fantacalcio

Postdi Flash30005 » 27/11/10 02:40

25 ore fa dicevo che l'errore era in questa riga di codice

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"


Anche senza il ciclo FF,
con ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear (macro originale inviata da Gigilatrottola)

Non sapendo cosa deve fare precisamente questa macro né tantomeno cosa faccia quella riga,
avevo chiesto spiegazioni ma, dopo un giorno, vedo, che stiamo allo stesso punto

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 27/11/10 11:03

metto in chiaro una cosa......io sono ignorante nel linguaggio bva (e penso che si sia notato), le mie prime macro le ho imparato leggendo questo forum e di conseguenza ancora nn so tutti i significati e linguaggi del vba e logicamente delle macro.
tutto quello che sta scritto nelle macro fatte da me nn ne capisco niente dato che le ho fatte tramite le registrazioni, di conseguenza se mi domandate qualcosa di più "tecnico" non riesco a capire niente.
ora vi spiego per bene la quello che vorrei fare con la macro:
questo è il file

http://rapidshare.com/files/433409722/p ... o_2010.xls

ogni partecipante al fantacalcio ogni domenica deve schierare 11 titolari e 7 panchinari su una rosa da 25 giocatori.
io su quella rosa per identificare gli 11 titolari nella colonna C metto le "T" per i panchinari metto i numeri da 1 a 7.
quindi la prima cosa che deve fare la macro è ordinare la colonna C prima per T e poi per 1 2 3 4 5 6 7.
quindi per la squadra 1 mi deve ordinare le celle che vanno da A3 a C27 (anche se per metterle in ordine devo selezionare dalla cella A2 a quella C27).
per la squadra 2 mi deve ordinare le celle D3-F27
per la squadra 3 mi deve ordinare le celle G3-I27 e questo per tutte le 10 squadre.

una volta ordinato mi deve copiare i VALORI delle celle A3 - B13 nelle celle X4 - Y14 (questi sono i titolari) e
le celle A14 - B20 nelle celle X18 - Y24 , questa per la squadra 1.
per la squadra 2 copiare i valori D3-E13 nelle celle AC4-AD14 (per i titolari) e D14-E20 nelle celle AC18-AD24 (per i panchinari)
tutto questo lo deve fare per tutte le 10 squadre.
una volta messo a punto tutto il foglio "1" e logicamente che funzioni tutto per bene, io copio il foglio num "1" e lo incollo nei restanti 35 fogli, e dovrebbe funzionare anche in quest'ultimi.
questo è quello che dovrebbe fare la macro. poi se al posto della macro dovrei fare qualche formula, accetto ben volentieri anche questa soluzione.


per anthony
oggi pomeriggio proverò queste modifiche e vi farò sapere......
gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 27/11/10 11:05

metto in chiaro una cosa......io sono ignorante nel linguaggio bva


e si vede già da qua :D :D :D :D :D
gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 27/11/10 11:30

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?

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.


Codice: Seleziona tutto
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
gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi Flash30005 » 27/11/10 14:48

Ciao Gigi...

Il Vba è uno "strumento" con il quale ottieni molto più velocemente e senza possibilità errore le azioni ripetute che, senza macro, saresti costretto ad eseguire manualmente.

Adesso, ancor prima di creare una macro oppure dopo averla creta (come hai fatto) ma ancor prima di chiedere come faccio a....
ti dovresti domandare quali sono i dati che devo copiare e dove? Quando devo fermare il ciclo?
Se tu lo domandi a noi (ho scaricato il tuo file nel quale vedo molti fogli copiati e tutti uguali) saremo costretti a farti delle domande e malgrado le tue risposte potemmo non arrivare alla soluzione, soluzione che ci puoi arrivare da solo dopo un'attenta analisi dei tuoi dati.
La domanda che ti devi porre è:
nella giornata classifica esiste un numero che determina (appunto) la giornata?
se si (es.: la 15) allora dovrò copiare i dati solo sul foglio 15, giusto?
oppure qual'è il primo foglio vuoto? il ciclo scansionerà i fogli da 1 a n. fogli finché li troverà già compilati e, il primo foglio vuoto, sarà il foglio destinazione, a questo punto la macro smetterà di funzionare.

Adesso è un po' più chiaro quello che devi far fare alla macro?
Se si, ti aiuteremo a mettere il codice all'interno del ciclo.

Fai sapere
ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 27/11/10 15:07

ciao falsh
il fatto che ci siano tanti fogli tutti uguali e perchè ci sono 36 giornate di fantacalcio,
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.
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.
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.

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.

ciao e a presto.
gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi Anthony47 » 27/11/10 19:05

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?
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.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 27/11/10 20:12

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......
quindi la modifica all'ultima macro è stata inutile?


ciao ragazzi e buon sabato a tutti-
gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi Anthony47 » 28/11/10 00:40

Forse e' il momento di fermare la trottola...
Probabilmente sono stato troppo presuntuoso a voler proporre qualcosa senza leggere i 90 post precedenti, pero' mi era proprio sembrato che l' obiettivo fosse eseguire la macro su tutti i fogli.

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......
Queste macro esistono gia' o sono l' oggetto della domanda?
E non puo' essere una unica macro che lavora solo sull' ActiveSheet, cioe' facendo sempre le stesse cose sul foglio al momento selezionato?

quindi la modifica all'ultima macro è stata inutile?
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.
Se invece fosse buona la seconda ipotesi fatta sopra (una unica macro che lavora sull' activesheet) allora dovrebbe bastare togliere il ciclo For FF /Next FF e la Sheets(Format(FF, "0")).Select e utilizzi le modifiche fatte mettendo ActiveSheet al posto di ActiveWorkbook.Worksheets("1").

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: help formule e macro per programma fantacalcio

Postdi Flash30005 » 28/11/10 03:26

gigilatrottola ha scritto:il fatto che ci siano tanti fogli tutti uguali e perchè ci sono 36 giornate di fantacalcio,

E questo è chiaro!

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.

Questo importa poco alla macro

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.

E' chiaro solo se stai parlando della prima giornata, come confermi, poi con quanto hai detto.. (Riporto qui sotto):
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.

Quindi Giornata1 scrive nel foglio1, Giornata2 scrive nel foglio2 etc etc.

Allora... Veniamo alla conclusione!
Da qualche parte (in una cella ad esempio) c'è questo dato? (Intendo il N° della giornata: 1, 2, 3 etc)?

Se si, non devi far altro che scrivere all'inizio della macro funzionante questo codice
FF = Worksheets("NomeDelFoglioCheContieneLaCellaCon_il_NumeroDiGiornata").Range("A1").value
(Se la cella A1 contiene il numero della giornata)
E lasciare la macro con scritto Worksheet(FF).... (come avevi fatto ma togliendo il ciclo For FF = 1 to... Next FF)

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.

Beh questo non saprei, lo vediamo dopo...

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: help formule e macro per programma fantacalcio

Postdi Anthony47 » 28/11/10 13:46

Se vuoi provare il suggerimento di Flash (vedi sopra), allora l' istruzione di compilazione di FF deve essere
Codice: Seleziona tutto
FF = Worksheets("NomeDelFoglioCheContieneLaCellaCon_il_NumeroDiGiornata").Range("A1").TEXT
(cioe' .Text e non .Value), altrimenti punti al foglio sbagliato.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 28/11/10 19:46

ciao e buona domenica a tutti........

ho fatto come da voi indicato però come sempre si ferma sulla seconda riga e cioè:
ActiveWorkbook.Worksheets("FF").Sort.SortFields.Clear
allora 2 sono le cose o sono troppo imbecille io oppure questa macro è intenzionata a farmi uscire di testa....
ora vi posto il file con la macro corretta e potete constatare voi stessi l'errore della macro.
ps nella cella S14 c'è scritto il numero di giornata.
pps una volta che funzionerà bene (almeno speriamo) io dovrò fare 36 macro dove andrò a cambiare il numero della worksheets?
FF = Worksheets("1").Range("S14").Text

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






buona serata a tutti...tranne alla macro :D
gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 28/11/10 19:48

gigilatrottola
Utente Senior
 
Post: 184
Iscritto il: 10/06/06 09:58

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "help formule e macro per programma fantacalcio":


Chi c’è in linea

Visitano il forum: patel, Zer0Kelvin e 26 ospiti