Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim r As Long
Sh.Tab.Color = xlAutomatic
For r = 5 To 38
If Sh.Range("O" & r) > 0 And IsEmpty(Sh.Range("P" & r)) Then
Sh.Tab.Color = 65535
Exit For
End If
Next
End Sub
dua prosedur yg pernah dibuat di tiap module sheet 2 dan sheet 3
dihapus saja...
2011/4/19 Herry Sutjipto <herry...@yahoo.com>
> Kebetulan warnanya cuman satu macam kuning saja ....
> jadi di taruknya di ThisWorkBook?
> Tadi nggak usah dihapus ..... dikasih tanda petik saja!
>
>
>
