Dear mBak STDEV(i),
 
Kalau statement Me.Tab.TintAndShade = 0 di Excel 2003 bagaimana ya?
Di Excel 2007 dan 2010 jalan mulus, tapi di Excel 2003 berhenti di statement 
tsb.
Terima kasih (nanya mulu ........)
.
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
>
>
>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
>>------------------------------------------------ 
>>
>>

Kirim email ke