Condicional de colores con vba para columnas

[jorgealv]

Hola,

 

Estoy tratando de hacer una macro incremental para cada columna de semana.

La columna A son los codigos unicos y por cada codigo hay dos datos de sales y fcst

 

conn la siguiente condicional:

1.    Si no tenemos Sales pero sí Fcst se pone ambos en rojo > Si en la celda de Sales = 0 y Fcst si tiene dato > Rojo

2.    Si tenemos Sales pero está por debajo de Fcst se pone ambos en naranja  > Si en la celda de Sales> celda Fcst > Naranja

3.    Si tenemos Sales y es la misma cantidad que el Fcst se pone ambos en verde

4.    Si tenemos Sales y el Fcst es inferior a este o es 0 se pone ambos en morado.

 

Gracias.

cond. excel.xlsxFetching info...

[Antoni]

Prueba esta macro, vale para cualquier cantidad de filas/columnas.

Const Naranja As Long = 6403322
Const Morado As Long = 11423218
Const Verde As Long = 4896057
Const Rojo As Long = 6709491
'--
Sub Resaltes()
Dim Sales As Range, Fcst As Range
Application.ScreenUpdating = False
'--
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Step 2
   For y = 4 To Cells(1, Columns.Count).End(xlToLeft).Column
      '--
      Set Fcst = Cells(x, y)
      Set Sales = Cells(x, y).Offset(1)
      '--
      Sales.Interior.ColorIndex = xlNone
      Fcst.Interior.ColorIndex = xlNone
      '--
      If Sales <> "" Then
         If Round(Sales) = 0 And Round(Fcst) > 0 Then
            Sales.Interior.Color = Rojo
            Fcst.Interior.Color = Rojo
         End If
         '--
         If Round(Sales) <> 0 And Round(Sales) < Round(Fcst) Then
            Sales.Interior.Color = Naranja
            Fcst.Interior.Color = Naranja
         End If
         '--
         If Round(Sales) = Round(Fcst) Then
            Sales.Interior.Color = Verde
            Fcst.Interior.Color = Verde
         End If
         '--
         If Round(Sales) <> 0 And Round(Fcst) < Round(Sales) Then
            Sales.Interior.Color = Morado
            Fcst.Interior.Color = Morado
         End If
         '--
      End If
   Next
Next
End Sub