sylvester-ponte
Verenigingslid
- Lid geworden
- 19 apr 2007
- Berichten
- 6.541
Code:
If WorksheetFunction.IsEven(n) Then
' .ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) 'rood !!!!!!!!!!!!!!!!!! werkt niet
.Select: Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)' werkt wel
Else
' .ShapeRange.Fill.ForeColor.RGB = RGB(0, 176, 80) 'groen !!!!!!!!!!!!!!
.Select: Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 176, 80)
End If