Macro para colorear celdas por semana según mes
Para Dante Amor:
Como debo hacerlo para que cambien los colores por semana según el mes, osea que se mantenga el mismo para las 4 o 5 semanas según corresponda que este dentro del mes:
(Color fuente)
semana 1-4 : enero ( color 8)
Semana 5-8 : febrero (color 4)
Semana 9-13 :marzo (color 40)
Semana 14-17 : abril (color 37)
Semana 18-21 : mayo (color 39)
Semana 22-26 : junio (color 43)
Semana 27-30 : julio (color 22)
Semana 31-34 : agosto (color 46)
Semana 35-39 : septiembre (color 50)
Semana 40-43 : octubre (color 26)
Semana 44-47 : noviembre (color 31)
Semana 48-52 : diciembre (color 45)
Por favor si me puedes ayudar se agradecería.
H o l a:
Envíame tu archivo y me explicas con ejemplos exactamente qué quieres pintar.
No te recomiendo que se pinten las celdas en base a un número de semana, ya que un número de semana, dependiendo del año, puede ser de un mes o de otro mes.
Lo mejor es que pongas el mes y en base a ese mes se pinten las celdas.
Te anexo la macro actualizada
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante AMor
If Not Intersect(Target, Range("A15")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
If Val(Target.Value) > 52 Then Exit Sub
num = Val(Target.Value)
Select Case num
Case 1 To 4: wcol = 8
Case 5 To 8: wcol = 4
Case 9 To 13: wcol = 40
Case 14 To 17: wcol = 37
Case 18 To 21: wcol = 39
Case 22 To 26: wcol = 43
Case 27 To 30: wcol = 22
Case 31 To 34: wcol = 46
Case 35 To 39: wcol = 50
Case 40 To 43: wcol = 26
Case 44 To 47: wcol = 31
Case 48 To 52: wcol = 45
End Select
Range("B14, C14, D14, E14, F14, H14, I14, J14, K14, L14, N14, O14, P14, Q14, R14, T14, U14, V14, W14, X14, Z14, AA14, AB14, AC14, AD14, AF15, AG15, AH15, AI15, AJ15, AL15, AM15, AN15, AO15, AP15, AR15, AS15. AT15, AU15, AV15, AX15, AY15, AZ15, BA15. BB15"). Interior.ColorIndex = wcol
Range("BD15, BE15, BF15, BG15, BH15").Interior.ColorIndex = wcol
End If
End Sub
¡Muchas Gracias! Ahora podré continuar con mi tarea, acabas de solucionar el obstáculo más grande que se me cruzo en el camino!
