Wadoh .......
Jadi harus setiap sheet ......
Wah .. wah ....
Kalau sheetnya ada 31 jadi bengkak filenya?
BTW ... terima kasih.
Herry Sutjipto
From: STDEV(i) <setiyowati.d...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 19, 2011 1:54 PM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
nah begini 'kan langsung ada BAHAN nya
(bukan cari bahan dulu) he he, maaf..
ditulis di module Sheet3 (270111)
Private Sub Worksheet_Deactivate()
Dim Kolor, r As Long
Kolor = 16711935
Me.Tab.Color = xlAutomatic
For r = 5 To 38
If Range("O" & r) > 0 And IsEmpty(Range("P" & r)) Then
Me.Tab.Color = Kolor
Exit For
End If
Next
Me.Tab.TintAndShade = 0
End Sub
dtulis di module Sheet2 (030111)
Private Sub Worksheet_Deactivate()
Dim Kolor, r As Long
Kolor = 65535
Me.Tab.Color = xlAutomatic
For r = 5 To 38
If Range("O" & r) > 0 And IsEmpty(Range("P" & r)) Then
Me.Tab.Color = Kolor
Exit For
End If
Next
Me.Tab.TintAndShade = 0
End Sub
2011/4/19 Herry Sutjipto <herry...@yahoo.com>
Injih mbak,
>Jika =AND($O5>0;ISBLANK($P5)) maka dicell P5:P38 diberi warna kuning.
>Jika di cell P5:P38 ada yang berwarna kuning, maka sheetname diberi warna
>kuning.
>Kira cukup jelas nggak ya ?????
>Terima kasih.
>
>Herry Sutjipto
