LinkBack URL
About LinkBacks
Sub KleurInCell()
If ActiveCell.Value = "> 0 " Then
ActiveCell.
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
End Sub
Sub KleurInCell()
If ActiveCell.Value = "> 0 " Then
ActiveCell.
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
End Sub
Could beOriginally Posted by bo123
Sub KleurInCell()
Please Login or Register to view this content.
Please Login or Register to view this content.
Last edited by davesexcel; 04-08-2008 at 07:48 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
,
Bookmarks