Creazione macro per operazione ripetitiva

Hai un problema con Excel?

Nuova discussione
Creazione macro per operazione ripetitiva
di Il cesar (utente non iscritto) data: 23/09/2013 17:16:07
Salve,
sono nuovo di questo forum e spero vivamente che possiate aiutarmi.
Cercherò di essere conciso.
Sotto trovate il codice dell'operazione che devo ripetere. In pratica uso la funzione conta.più.se su alcune colonne di uno stesso file. Lo faccio per valutare determinati intervalli temporali, ed il risultato ottenuto lo devo andare a scrivere il risultato in una tabella in un altro file.

Il problema è che devo farlo per più file ed andare a scrivere il risultato sempre nella stessa tabella.
Penso che sia possibile farlo con un codice, ma non riesco a crearlo... (sono abbastanza scarso in materia )

Grazie in anticipo per la vostra disponibilità
    Workbooks.Open Filename:= _
        "Z:WCMaggiornamento cartellinistato cartellini Transfert tierre v1.xlsm"
    Windows("Riassunto cartellini saf env").Activate
    Range("C23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/1/2011"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/12/2011"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("D23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/1/2011"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/12/2011"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
   Windows("Riassunto cartellini saf env").Activate
    Range("E23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/1/2012"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/12/2012"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("F23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/1/2012"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/12/2012"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
  
    Windows("Riassunto cartellini saf env").Activate
    Range("G23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/1/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/1/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("H23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/1/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/1/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"

       Windows("Riassunto cartellini saf env").Activate
    Range("I23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/2/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=28/2/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("J23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/2/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=28/2/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
   
   Windows("Riassunto cartellini saf env").Activate
    Range("K23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/3/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/3/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("L23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/3/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/3/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
  Windows("Riassunto cartellini saf env").Activate
    Range("M23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/4/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=30/4/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("N23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/4/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=30/4/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
 
 Windows("Riassunto cartellini saf env").Activate
    Range("O23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/5/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/5/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("P23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/5/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/5/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
   Windows("Riassunto cartellini saf env").Activate
    Range("Q23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/6/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/5/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("R23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/6/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/5/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
   
  Windows("Riassunto cartellini saf env").Activate
    Range("S23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/7/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/7/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("T23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/7/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/7/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
   Windows("Riassunto cartellini saf env").Activate
    Range("U23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/8/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/8/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("V23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/8/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/8/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("W23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/9/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=30/9/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("X23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/9/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=30/9/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
     Windows("Riassunto cartellini saf env").Activate
    Range("Y23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/10/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/10/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("Z23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/10/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/10/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("AA23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/11/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=30/11/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("AB23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/11/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=30/11/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("AC23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/12/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/12/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"")"
    Windows("Riassunto cartellini saf env").Activate
    Range("AD23").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTIFS('[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,"">=1/12/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C6,""<=31/12/2013"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C16,""=1"",'[stato cartellini Transfert tierre v1.xlsm]Foglio1'!C9,""<>"")"
   Windows("stato cartellini Transfert tierre v1.xlsm").Activate
    ActiveWindow.Close
Vuoi Approfondire?