Dear mBak STDEV(i),
Waduh ..... padahal pewarnaan cell tsb memang dengan Conditional Formating.
Jadi ..... nggak ada jalan lain kecuali secara manual?
Wah .. wah ... kalu gitu perlu dilaporkan ke Bambang Gentolet (BG).
Regards
Herry Sutjipto
From: STDEV(i) <setiyowati.d...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Saturday, April 16, 2011 3:03 PM
Subject: Re: [belajar-excel] Memberi warna sheet-name
script ini tidak berlaku jika pewarnaan cell karena Conditional Formatting
Private Sub Worksheet_Deactivate()
Dim Kolor, r As Long
Kolor = Me.Range("P5").Interior.Color
For r = 5 To 38
If Not Range("P" & r).Interior.Color = Kolor Then
Me.Tab.Color = vbWhite
Exit Sub
End If
Next
Me.Tab.Color = Kolor
Me.Tab.TintAndShade = 0
End Sub
2011/4/16 Herry Sutjipto <herry...@yahoo.com>
>Dear All,
>
>Bagaimana memberi warna di sheet name berdasarkan cell tertentu.
>Contoh apabila warna cell P5:P38 sama semua warnanya, maka di sheet name
>diberi warna sama dengan warna cell P5:P38
>Tetapi bila pada cell P5:P38 ada yang berwarna kuning, diberi warna kuning.
>Contoh terlampir.
>Terima kasih sebelumnya.
>
>Regards
>Herry Sutjipto
