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
>
> *From:* STDEV(i) <setiyowati.d...@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, April 19, 2011 12:44 PM
> *Subject:* Re: Fw: [belajar-excel] Memberi warna sheet-name
>
>
> Mohon dijelaskan saja
> KONDITIONAL nya itu seperti apa
> Apa yg menjadi syarat sebuah cell diberi warna lain
> di lampiran kita kelamaan kalau harus mencari cari dulu
> walaupun dulu pernah dibicarakan, orang bisa lupa..
>
>
> 2011/4/19 Herry Sutjipto <herry...@yahoo.com>
>
> Dear mbak STDEV(i),
> Saya kirim ulang,
> Conditional Formating nya seperti yang saya tanyakan kemarin.
> Terlampir saya kirim ulang attachment nya
> Terima kasih.
>
> Regards
> Herry Sutjipto
>
> mods note:-------------------------------------
> lampiran tidak dapat disertakan karena sizenya
> melebihi jatah yg diatur dlm peraturan milis
> ------------------------------------------------
>
>
