p; r)) Then
> sh.Tab.Color = 65535
>
> Exit For
> End If
> Next r
>End If
> End Sub
>
> Regards
> Herry Sutjipto
> From: Herry Sutjipto
> To: "belajar-excel@yahoogroups.com"
> Sent: Friday, April 22, 2011 8:5
("M" & r) > 0 And IsEmpty(sh.Range("P" & r)) Then
>> sh.Tab.Color = 65535
>>
>> Exit For
>> End If
>> Next r
>>End If
>> End Sub
>>
>> Regards
>> Herry Sutjipto
>>
t; Setelah "bendanya" dikirim kok malah nggak ada beritanya?
>
> Regards
> Herry Sutjipto
>
>
> workbooknya saya kirim agar mr Kid bisa mengevaluasinya
>
> From: Mr. Kid
> To: belajar-excel@yahoogroups.com
> Sent: Friday, April 22, 2011 8:54 AM
> Subject:
Dear Pak Herry
saya masih berpendapat, semoga tidak salah, bahwa
Loop r = 6 to 36 maupun r = 5 to 58, mengunjungi setiap cell di range
di kolom R ataupun M dan P tetap dpat digantikan dengan
WorksheetFunction.COUNTIF
coding yg tadi itu menimbulkan error karena *dicari berkali kali dgn loop*
di
Range("M" & r) > 0 And IsEmpty(sh.Range("P" & r)) Then
> sh.Tab.Color = 65535
>
> Exit For
> End If
> Next r
> End If
> End Sub
>
> Regards
> Herry Sutjipto
> *From:* Herry Sutjipto
> *To:* "b
aya kirim agar mr Kid bisa mengevaluasinya
>
> *From:* Mr. Kid
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, April 22, 2011 8:54 AM
>
> *Subject:* Re: Fw: [belajar-excel] Memberi warna sheet-name
>
>
> karena di sheet (2) dst seterusnya backgroud sheetnam
nd Sub
Regards
Herry Sutjipto
From: Herry Sutjipto
To: "belajar-excel@yahoogroups.com"
Sent: Friday, April 22, 2011 8:57 AM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
Baik workbook nya saya lampirkan
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Friday, A
r)) ; r = 5 to 38
>
> Regards,
> herry s
> *From:* Mr. Kid
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, April 22, 2011 8:34 AM
>
> *Subject:* Re: Fw: [belajar-excel] Memberi warna sheet-name
>
>
> kenapa harus di loop sejumlah sheet yg ada di workbook?
>
>
il 22, 2011 8:34 AM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
kenapa harus di loop sejumlah sheet yg ada di workbook?
kid
On Fri, Apr 22, 2011 at 08:13, STDEV(i) wrote:
>mungkin bisa diperngkas menjadi spt ini
>mohon maaf kalau salah, karena dibuatnya di notepad,
:34 AM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
maaf salah tulis perlu dikoreksi,
tertulis:
"(mencarinilai kosong di range R6:R38 atau M5:M38 tidak perlu pakai Looping)"
seharusnya"
"(mencari adakah nilai POSITIP di range R6:R38 atau M5:M38 tidak perlu
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 di
bu Guru STDEV(i)
compile error di ".CountIf"
Regards
Herry Sutjipto
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Friday, April 22, 2011 8:13 AM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
mungkin bisa diperngkas menjadi spt ini
mohon maaf kalau sal
kenapa harus di loop sejumlah sheet yg ada di workbook?
kid
On Fri, Apr 22, 2011 at 08:13, STDEV(i) 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 pe
maaf salah tulis perlu dikoreksi,
tertulis:
"(mencari* nilai kosong *di range R6:R38 atau M5:M38 tidak perlu pakai
Looping)"
seharusnya"
"(mencari adakah *nilai POSITIP* di range R6:R38 atau M5:M38 tidak perlu
pakai Looping)"
tepatnya :
If .CountIf(sh.Range("R6:R38"), ">0") > 0 Then
jika di
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 = 3
: Friday, April 22, 2011 5:47 AM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
Wassalam.
Kid.
2011/4/22 Herry Sutjipto
>Dear mBak STDEV(i),
>
>Ternyata prtediksi mBak STDEV(i) tidak meleset.
>Saya perlu di sheet pertama kriterianya berbeda, yaitu di range R6:R38 "J
Kolor
>
> Exit For
> End If
>Next
> End Sub
>
> Mohon petunjuknya mBak STDEV(i) (bu guru).
>
> Regards
> Herry Sutji[to
>
>
> *From:* STDEV(i)
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, April 19, 2011 3:54 PM
> *Subject:* Re:
ab.Color = Kolor
Exit For
End If
Next
End Sub
Mohon petunjuknya mBak STDEV(i) (bu guru).
Regards
Herry Sutji[to
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 19, 2011 3:54 PM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
lho belu
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
Dear mBak STDEV(i),
Mbak kerja dimana sih dan kok sempat2nya melayani publik?
Terima kaashhh.
Regards
Herry Sutji[to
From: STDEV(i)
Sent: Tuesday, April 19, 2011 3:27 PM
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim r As Long
Sh.Tab.Color = xlAut
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
Kebetulan warnanya cuman satu macam kuning saja
jadi di taruknya di ThisWorkBook?
Tadi nggak usah dihapus . dikasih tanda petik saja!
From: STDEV(i)
Sent: Tuesday, April 19, 2011 2:57 PM
wah bapak kok ndak pegang textbook sama sekali ya
kalau tahu bahwa sheetnya mau dibuat banyak
t
he ... he ... he ... he .
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 19, 2011 2:47 PM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
tidak ada keberanian untuk menghapus baris itu??
dan lihat hasilnya ??
2011/4/19 Herry Sutjipto
Dear mBak STDEV
wah bapak kok ndak pegang textbook sama sekali ya
kalau *tahu* bahwa sheetnya mau dibauat banyak
tentunya bisa dipikirkan hal lain, misal
makro hanya dibuat sbg *satu prosedur* saja, ditulis di level module
ThisWorkBook
jika tiap sheet punya arutan warna Tab berbeda; Bp harus punya daftarnya
Wadoh ...
Jadi harus setiap sheet ..
Wah .. wah
Kalau sheetnya ada 31 jadi bengkak filenya?
BTW ... terima kasih.
Herry Sutjipto
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 19, 2011 1:54 PM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
tidak ada keberanian untuk menghapus baris itu??
dan lihat hasilnya ??
2011/4/19 Herry Sutjipto
> 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
, 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.
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)
> *To:* belajar-excel@yahoogroups.com
> *Sent:*
day, 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 l
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
> Dear mbak STDEV(i),
> Saya kirim ulang,
> Conditional
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 di
rry Sutjipto
> *From:* STDEV(i)
> *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
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 3
33 matches
Mail list logo
