iyya ya... kenapa ada loop nya ya??
lagi pula nilai counter (lSheet) sepanjang loop tidak pernah digunakan
seharusna memang harus lihat keadaan workbook dulu ya, baru bertindak..
kalau ndak salah ada perubahan woerkbook, sejak dikatakan bahwa
di sheet lain perlu warna lain, dan workbook belum dilampirkan
( kita menunggu "bendanya" dulu deh..) rapi size-nya jangan lebih dari jatah
On Fri, Apr 22, 2011 at 8:34 AM, Mr. Kid <mr.nm...@gmail.com> wrote:
> kenapa harus di loop sejumlah sheet yg ada di workbook?
>
> kid
>
>
> On Fri, Apr 22, 2011 at 08:13, STDEV(i) <setiyowati.d...@gmail.com> wrote:
>
>>
>>
>> mungkin bisa diperngkas menjadi spt ini
>> mohon maaf kalau salah, karena dibuatnya di notepad, tanpa dicoba di
>> workbook
>> (mencari nilai kosong di range R6:R38 atau M5:M38 tidak perlu pakai
>> Looping)
>>
>> Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
>> Dim lSheet As Long
>> sh.Tab.ColorIndex = 35
>> With WorksheetFunction
>> For lSheet = 1 To Sheets.Count
>> If sh.Name = Sheets(1).Name Then
>> If .CountIf(sh.Range("R6:R38"), ">0") > 0 _
>> Then sh.Tab.Color = 16711935
>> Else
>> If .CountIf(sh.Range("M5:M8"), ">0") > 0 _
>> Then sh.Tab.Color = 65535
>> End If
>> Next lSheet
>> End With
>> End Sub
>>
>>
>>
