Elsa Matilde respondió:
Te dejo solo la rutina que necesitaba del ajuste: Private Sub Borrarcolordiagrama() 'x Elsamatilde ' Borrar color del Gantt anterior Range("b1:CC15").Select 'indicar la mayor col posible Selection.Interior.ColorIndex = xlNone ' Diagrama de Gantt Dim...
perseo58 respondió:
En esto, cada maestrillo tiene su librillo. Esto que tu quieres hacer yo lo hago con esta macro: Sub Macro2() 1 If ActiveCell.Value <> "" Then If ActiveCell.Value < 30 Then ActiveCell.Font.Bold = True ActiveCell.Font.Color = RGB(256, 0, 0) Else...