di Statix » 25/04/09 19:55
Ciao pietrol tutto ok,avevo sbagliato a digitare una sub e per questo non ci riuscivo,
grazie.
ho quest'altro macro la vorrei ottimizzare
- Codice: Seleziona tutto
Sub Seleziona_Ruota()
Sheets("BiRuote").Select
Range("BC5").Value = Range("A7").Value
Range("BK5").Value = Range("A7").Value
Range("BS5").Value = Range("A7").Value
Range("CA5").Value = Range("A7").Value
Range("CI5").Value = Range("A7").Value
'Bari
If Range("$D$4").Value = True Then
Range("BD5").Value = Range("D7").Value
Range("BL5").Value = Range("E7").Value
Range("BT5").Value = Range("F7").Value
Range("CB5").Value = Range("G7").Value
Range("CJ5").Value = Range("H7").Value
Range("Q2").Value = Range("D7").Value
Range("S2").Value = Range("E7").Value
Range("U2").Value = Range("F7").Value
Range("W2").Value = Range("G7").Value
Range("Y2").Value = Range("H7").Value
End If
'Cagliari
If Range("$E$4").Value = True Then
Range("BD5").Value = Range("I7").Value
Range("BL5").Value = Range("J7").Value
Range("BT5").Value = Range("K7").Value
Range("CB5").Value = Range("L7").Value
Range("CJ5").Value = Range("M7").Value
Range("Q2").Value = Range("I7").Value
Range("S2").Value = Range("J7").Value
Range("U2").Value = Range("K7").Value
Range("W2").Value = Range("L7").Value
Range("Y2").Value = Range("M7").Value
End If
'Firenze
If Range("$F$4").Value = True Then
Range("BD5").Value = Range("N7").Value
Range("BL5").Value = Range("O7").Value
Range("BT5").Value = Range("P7").Value
Range("CB5").Value = Range("Q7").Value
Range("CJ5").Value = Range("R7").Value
Range("Q2").Value = Range("N7").Value
Range("S2").Value = Range("O7").Value
Range("U2").Value = Range("P7").Value
Range("W2").Value = Range("Q7").Value
Range("Y2").Value = Range("R7").Value
End If
'Genova
If Range("$G$4").Value = True Then
Range("BD5").Value = Range("S7").Value
Range("BL5").Value = Range("T7").Value
Range("BT5").Value = Range("U7").Value
Range("CB5").Value = Range("V7").Value
Range("CJ5").Value = Range("W7").Value
Range("Q2").Value = Range("S7").Value
Range("S2").Value = Range("T7").Value
Range("U2").Value = Range("U7").Value
Range("W2").Value = Range("V7").Value
Range("Y2").Value = Range("W7").Value
End If
'Milano
If Range("$H$4").Value = True Then
Range("BD5").Value = Range("X7").Value
Range("BL5").Value = Range("Y7").Value
Range("BT5").Value = Range("Z7").Value
Range("CB5").Value = Range("AA7").Value
Range("CJ5").Value = Range("AB7").Value
Range("Q2").Value = Range("X7").Value
Range("S2").Value = Range("Y7").Value
Range("U2").Value = Range("Z7").Value
Range("W2").Value = Range("AA7").Value
Range("Y2").Value = Range("AB7").Value
End If
'Napoli
If Range("$I$4").Value = True Then
Range("BD5").Value = Range("AC7").Value
Range("BL5").Value = Range("AD7").Value
Range("BT5").Value = Range("AE7").Value
Range("CB5").Value = Range("AF7").Value
Range("CJ5").Value = Range("AG7").Value
Range("Q2").Value = Range("AC7").Value
Range("S2").Value = Range("AD7").Value
Range("U2").Value = Range("AE7").Value
Range("W2").Value = Range("AF7").Value
Range("Y2").Value = Range("AG7").Value
End If
'Palermo
If Range("$J$4").Value = True Then
Range("BD5").Value = Range("AH7").Value
Range("BL5").Value = Range("AI7").Value
Range("BT5").Value = Range("AJ7").Value
Range("CB5").Value = Range("AK7").Value
Range("CJ5").Value = Range("AL7").Value
Range("Q2").Value = Range("AH7").Value
Range("S2").Value = Range("AI7").Value
Range("U2").Value = Range("AJ7").Value
Range("W2").Value = Range("AK7").Value
Range("Y2").Value = Range("AL7").Value
End If
'Roma
If Range("$K$4").Value = True Then
Range("BD5").Value = Range("AM7").Value
Range("BL5").Value = Range("AN7").Value
Range("BT5").Value = Range("AO7").Value
Range("CB5").Value = Range("AP7").Value
Range("CJ5").Value = Range("AQ7").Value
Range("Q2").Value = Range("AM7").Value
Range("S2").Value = Range("AN7").Value
Range("U2").Value = Range("AO7").Value
Range("W2").Value = Range("AP7").Value
Range("Y2").Value = Range("AQ7").Value
End If
'Torino
If Range("$L$4").Value = True Then
Range("BD5").Value = Range("AR7").Value
Range("BL5").Value = Range("AS7").Value
Range("BT5").Value = Range("AT7").Value
Range("CB5").Value = Range("AU7").Value
Range("CJ5").Value = Range("AV7").Value
Range("Q2").Value = Range("AR7").Value
Range("S2").Value = Range("AS7").Value
Range("U2").Value = Range("AT7").Value
Range("W2").Value = Range("AU7").Value
Range("Y2").Value = Range("AV7").Value
End If
'Venezia
If Range("$M$4").Value = True Then
Range("BD5").Value = Range("AW7").Value
Range("BL5").Value = Range("AX7").Value
Range("BT5").Value = Range("AY7").Value
Range("CB5").Value = Range("AZ7").Value
Range("CJ5").Value = Range("BA7").Value
Range("Q2").Value = Range("AW7").Value
Range("S2").Value = Range("AX7").Value
Range("U2").Value = Range("AY7").Value
Range("W2").Value = Range("AZ7").Value
Range("Y2").Value = Range("BA7").Value
End If
'Nazionale
If Range("$N$4").Value = True Then
Range("BD5").Value = Range("AW4").Value
Range("BL5").Value = Range("AX4").Value
Range("BT5").Value = Range("AY4").Value
Range("CB5").Value = Range("AZ4").Value
Range("CJ5").Value = Range("BA4").Value
Range("Q2").Value = Range("AW4").Value
Range("S2").Value = Range("AX4").Value
Range("U2").Value = Range("AY4").Value
Range("W2").Value = Range("AZ4").Value
Range("Y2").Value = Range("BA4").Value
End If
Range("A2").Select
End Sub
Statix
Windows 10,
Office 2013,
Registrazione