Bisa dengan memberi cek nama sheet pada event di workbook-nya untuk
melewatkan proses pewarnaan.
Private Sub Worksheet_Deactivate(*byval sh as object*)
Dim Kolor, r As Long
if *sh.name*<>sheets(1).name then
Kolor = 16711935
Me.Tab.Color = xlAutomatic
For r = 6 To 38
If Range("R" & r) > 0 Then
Me.Tab.Color = Kolor
Exit For
End If
Next
endif
End Sub
Wassalam.
Kid.
2011/4/22 Herry Sutjipto <herry...@yahoo.com>
>
>
> Dear mBak STDEV(i),
> Ternyata prtediksi mBak STDEV(i) tidak meleset.
> Saya perlu di sheet pertama kriterianya berbeda, yaitu di range R6:R38
> "Jika dalam range tersebut nilainya ada yang > 0, maka background sheetmane
> nya diberi warna PINK"
> Saya coba kumpulan statement spt di bawah saya letak kan di sheet tsb,
> ternyata terpengaruh oleh kumpulan stament yang berada di sheet
> ThisWorkBook.
>
> Private Sub Worksheet_Deactivate()
> Dim Kolor, r As Long
> Kolor = 16711935
> Me.Tab.Color = xlAutomatic
> For r = 6 To 38
> If Range("R" & r) > 0 Then
> Me.Tab.Color = Kolor
>
> Exit For
> End If
> Next
> End Sub
>
> Mohon petunjuknya mBak STDEV(i) (bu guru).
>
> Regards
> Herry Sutji[to
>
>
> *From:* STDEV(i) <setiyowati.d...@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, April 19, 2011 3:54 PM
> *Subject:* Re: Fw: [belajar-excel] Memberi warna sheet-name
>
>
> lho belum dengar to ??
> sebagai suster ngesot di rs kecil di bluewater...
>
> sambil "nyuntikin orang lewat" kan bisa mainan milis...
> nanti kalo bagian IT nya marah-marah, tinggal 'dijak tawuran' saja..
>
> lagi pula "suster" itu liburnya tiap pekan = 3½ hari... enak lho..
>
> maaf sudah OOT / brenti sampai di sini..
>
>
>
> On Tue, Apr 19, 2011 at 3:45 PM, Herry Sutjipto <herry...@yahoo.com>wrote:
>
> Dear mBak STDEV(i),
> Mbak kerja dimana sih ???? dan kok sempat2nya melayani publik?
> Terima kaaaaaasssssiiiiiiiihhhhhhh.
> Regards
> Herry Sutji[to
>
> From: STDEV(i) <setiyowati.d...@gmail.com>
> Sent: Tuesday, April 19, 2011 3:27 PM
>
> 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...
>
>
>
>
>
