Necesito hacer que Excel ejecute más rápido el código así que necesito optimizarlo.
Private Sub CommandButton1_Click()
Dim fecha As Date, mes As String
fecha = "1/1/" & Sheets("QUADRANT").Range("B9")
fechaFin = "31/12/" & Sheets("QUADRANT").Range("B9")
mesNum = -1
For i = fecha To fechaFin
mesNum1 = Month(i)
If mesNum1 <> mesNum2 Then
mesNum2 = mesNum1
If mesNum2 = 1 Then
mes = "GENER"
ElseIf mesNum2 = 2 Then
mes = "FEBRER"
ElseIf mesNum2 = 3 Then
mes = "MARÇ"
ElseIf mesNum2 = 4 Then
mes = "ABRIL"
ElseIf mesNum2 = 5 Then
mes = "MAIG"
ElseIf mesNum2 = 6 Then
mes = "JUNY"
ElseIf mesNum2 = 7 Then
mes = "JULIOL"
ElseIf mesNum2 = 8 Then
mes = "AGOST"
ElseIf mesNum2 = 9 Then
mes = "SETEMBRE"
ElseIf mesNum2 = 10 Then
mes = "OCTUBRE"
ElseIf mesNum2 = 11 Then
mes = "NOVEMBRE"
ElseIf mesNum2 = 12 Then
mes = "DESEMBRE"
End If
Esta parte parece que se puede resumir mucho más de lo que está.
Nota: Los meses están en catalán.
Sheets(mes).Range("A6:P300").Clear
Sheets(mes).Range("6:300").RowHeight = 20
End If
y = 4 + 7 * Month(i)
x = 3 + Day(i)
If Sheets("QUADRANT").Cells(y - 1, x).Font.ColorIndex = 7 Or Weekday(i, vbMonday) = 6 Or Weekday(i, vbMonday) = 7 Then
Sheets("MACROS").Range("B28:Q35").Copy
Sheets(mes).Range("A" & 6 + (Day(i) - 1) * 9).PasteSpecial Paste:=xlPasteAll
Else
Sheets("MACROS").Range("B18:Q25").Copy
Sheets(mes).Range("A" & 6 + (Day(i) - 1) * 9).PasteSpecial Paste:=xlPasteAll
End If
If Weekday(i, vbMonday) = 1 Then
Sheets(mes).Range("A" & 6 + (Day(i) - 1) * 9).Value = "Lunes"
ElseIf Weekday(i, vbMonday) = 2 Then
Sheets(mes).Range("A" & 6 + (Day(i) - 1) * 9).Value = "Martes"
ElseIf Weekday(i, vbMonday) = 3 Then
Sheets(mes).Range("A" & 6 + (Day(i) - 1) * 9).Value = "Miercoles"
ElseIf Weekday(i, vbMonday) = 4 Then
Sheets(mes).Range("A" & 6 + (Day(i) - 1) * 9).Value = "Jueves"
ElseIf Weekday(i, vbMonday) = 5 Then
Sheets(mes).Range("A" & 6 + (Day(i) - 1) * 9).Value = "Viernes"
ElseIf Weekday(i, vbMonday) = 6 Then
Sheets(mes).Range("A" & 6 + (Day(i) - 1) * 9).Value = "Sabado"
ElseIf Weekday(i, vbMonday) = 7 Then
Sheets(mes).Range("A" & 6 + (Day(i) - 1) * 9).Value = "Domingo"
End If
Esta parte del final es la que creo que se puede resumir más.
Format(i, "mmmm")
en este caso.