9 Messages
Digest #3501
Messages
Tue Jul 7, 2015 2:25 am (PDT) . Posted by:
"Dony Ramdhani" donyramdhani33
mohon maaf sebelumnya kalau pertanyaan pertama saya ada yang kurang, disini saya mau menanyakan, bagaimana membuat rumusan untuk reminder monitoring, soal2 yang ada sebelumnya terkait "reminder"; agak terlalu rumit buat saya, mungkin saya kiranya pencerahan dari kawan2 yg ada disiniterlampir file yang akan saya tanyakan seputar "reminder"; untuk di program excel
tks
tks
Tue Jul 7, 2015 5:43 pm (PDT) . Posted by:
"Nang Agus"
Berkedip?
coba buka pesan Billgates di sini
<https://msdn.microsoft.com/en-us/library/office/ff193220.aspx>
menurut saya lebih mudah dibuat berwarna saja dengan conditional formating
daripada menggunakan macro dengan membuat cell berkedip.
2015-07-07 14:52 GMT+07:00 Dony Ramdhani donyramdhani33@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> mohon maaf sebelumnya kalau pertanyaan pertama saya ada yang kurang,
> disini saya mau menanyakan, bagaimana membuat rumusan untuk reminder
> monitoring, soal2 yang ada sebelumnya terkait "reminder"; agak terlalu rumit
> buat saya, mungkin saya kiranya pencerahan dari kawan2 yg ada disini
> terlampir file yang akan saya tanyakan seputar "reminder"; untuk di program
> excel
>
> tks
>
>
>
coba buka pesan Billgates di sini
<https://msdn.microsoft.com/en-us/library/office/ff193220.aspx>
menurut saya lebih mudah dibuat berwarna saja dengan conditional formating
daripada menggunakan macro dengan membuat cell berkedip.
2015-07-07 14:52 GMT+07:00 Dony Ramdhani donyramdhani33@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> mohon maaf sebelumnya kalau pertanyaan pertama saya ada yang kurang,
> disini saya mau menanyakan, bagaimana membuat rumusan untuk reminder
> monitoring, soal2 yang ada sebelumnya terkait "reminder"
> buat saya, mungkin saya kiranya pencerahan dari kawan2 yg ada disini
> terlampir file yang akan saya tanyakan seputar "reminder"
> excel
>
> tks
>
>
>
Tue Jul 7, 2015 6:42 am (PDT) . Posted by:
dick_tha88
Mohon bantuanya master excel... kenapa data yg sy vlookup tidak muncul,, setelah di filter ?
sebelumnya terimakasih..
sebelumnya terimakasih.
Tue Jul 7, 2015 5:21 pm (PDT) . Posted by:
"Nang Agus"
Dear Dick,
Coba di E3 diketik '343 atau '344 atau '350
Jangan lupa menggunakan apostrop, atau tanda ' yang letaknya disebelah kiri
enter.
Mungkin perlu belajar lagi tentang tipe data di rumahnya Mr Kid di sini.
<http://b-excel.blogspot.com/2013/07/belajarvba-004-tipe-data-variabel.html>
salam
NangAgus
2015-07-07 20:33 GMT+07:00 dick_tha88@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Mohon bantuanya master excel... kenapa data yg sy vlookup tidak muncul,,
> setelah di filter ?
>
> sebelumnya terimakasih..
>
>
>
>
Coba di E3 diketik '343 atau '344 atau '350
Jangan lupa menggunakan apostrop, atau tanda ' yang letaknya disebelah kiri
enter.
Mungkin perlu belajar lagi tentang tipe data di rumahnya Mr Kid di sini.
<http://b-excel.blogspot.com/2013/07/belajarvba-004-tipe-data-variabel.html>
salam
NangAgus
2015-07-07 20:33 GMT+07:00 dick_tha88@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Mohon bantuanya master excel... kenapa data yg sy vlookup tidak muncul,,
> setelah di filter ?
>
> sebelumnya terimakasih.
>
>
>
>
Tue Jul 7, 2015 6:26 pm (PDT) . Posted by:
"Nang Agus" nangagoez
Mohon maaf ada kesalahan sediit, harusnya cekrip berbunyi:Dear mas Husnul
mungkin seperti ini:
Private Sub WARNABIASA()
Dim WARNABIASA
If Label7.ForeColor <> &H80FF& Then Label7.ForeColor = &H80FF&
If Label1.ForeColor <> &HC0C0C0 Then Label1.ForeColor = &HC0C0C0
If Label2.ForeColor <> &HC0C0C0 Then Label2.ForeColor = &HC0C0C0
If Label3.ForeColor <> &HC0C0C0 Then Label3.ForeColor = &HC0C0C0
If Label9.ForeColor <> &H80FF& Then Label9.ForeColor = &H80FF&
If Label15.ForeColor <> &H80FF& Then Label15.ForeColor = &H80FF&
If Label11.ForeColor <> &H80FF& Then Label11.ForeColor = &H80FF&
If Label10.ForeColor <> &H80FF& Then Label10.ForeColor = &H80FF&
If Label12.ForeColor <> &H80FF& Then Label12.ForeColor = &H80FF&
If Label13.ForeColor <> &H80FF& Then Label13.ForeColor = &H80FF&
If Label14.ForeColor <> &H80FF& Then Label14.ForeColor = &H80FF&
If Label17.ForeColor <> &H80FF& Then Label17.ForeColor = &H80FF&
If Label5.ForeColor <> &HFF00FF Then Label5.ForeColor = &HFF00FF
If Label4.ForeColor <> &HFF& Then Label4.ForeColor = &HFF&
End Sub
Pada Selasa, 7 Juli 2015 10:48, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear mas Husnul
mungkin seperti ini:
Private Sub WARNABIASA()
Dim WARNABIASA
If Label7.ForeColor <> &H80FF& Then Label7.ForeColor = &H80FF&
If Label1.ForeColor <> &HC0C0C0 Then Label1.ForeColor = &HC0C0C0
If Label2.ForeColor <> &HC0C0C0 Then Label2.ForeColor = &HC0C0C0
If Label3.ForeColor <> &HC0C0C0 Then Label3.ForeColor = &HC0C0C0
If Label9.ForeColor = &H80FF& Then Label9.ForeColor = &H80FF&
If Label15.ForeColor = &H80FF& Then Label15.ForeColor = &H80FF&
If Label11.ForeColor = &H80FF& Then Label11.ForeColor = &H80FF&
If Label10.ForeColor = &H80FF& Then Label10.ForeColor = &H80FF&
If Label12.ForeColor = &H80FF& Then Label12.ForeColor = &H80FF&
If Label13.ForeColor = &H80FF& Then Label13.ForeColor = &H80FF&
If Label14.ForeColor = &H80FF& Then Label14.ForeColor = &H80FF&
If Label17.ForeColor = &H80FF& Then Label17.ForeColor = &H80FF&
If Label5.ForeColor = &HFF00FF Then Label5.ForeColor = &HFF00FF
If Label4.ForeColor = &HFF& Then Label4.ForeColor = &HFF&
End Sub
salam
2015-07-06 6:03 GMT+07:00 HUSNUL FAIZIN husnulfaizin1807@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
mohon dicontohkan mr. kid..!
2015-07-06 4:26 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Wa'alaikumussalam wr wb
Hai Husnul,
Coba setiap pengaturan warna diubah menjadi bersusunan :
IF si object warnanya <> nomor warna ini THEN
si object warnanya = nomor warna ini
ENDIF
Nanti jumlah baris kodenya akan menjadi banyak. Untuk menyederhanankannya, bisa memanfaatkan SELECT CASE berdasar nama objectnya yang dikelompokkan per nomor warna.
Jika akan lebih simple lagi, bisa memanfaatkan prosedur ber-input variabel.
Cara lainnya adalah dengan membuat class object dengan with events beserta kelompok object nya. Supaya cukup dengan 3 prosedur events yang isinya kode-kode yang pendek.
Wassalamu'alaikum wr wb
Kid
2015-07-04 23:49 GMT+07:00 HUSNUL FAIZIN husnulfaizin1807@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamu'alaikum wr wb.
Mohon bantuan master koreksi dan penambahan script macro apa untuk membuat Tulisan di userform agar tidak kelihatan "Bergetar"; pada saat perpindahan mouse (mungkin karena pengaruh pergerakan mousenya). untuk lebih jelasnya terlampir userform yang dimaksud. terimakasih.
wassalam.
#yiv2118331717 #yiv2118331717 -- #yiv2118331717ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2118331717 #yiv2118331717ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2118331717 #yiv2118331717ygrp-mkp #yiv2118331717hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2118331717 #yiv2118331717ygrp-mkp #yiv2118331717ads {margin-bottom:10px;}#yiv2118331717 #yiv2118331717ygrp-mkp .yiv2118331717ad {padding:0 0;}#yiv2118331717 #yiv2118331717ygrp-mkp .yiv2118331717ad p {margin:0;}#yiv2118331717 #yiv2118331717ygrp-mkp .yiv2118331717ad a {color:#0000ff;text-decoration:none;}#yiv2118331717 #yiv2118331717ygrp-sponsor #yiv2118331717ygrp-lc {font-family:Arial;}#yiv2118331717 #yiv2118331717ygrp-sponsor #yiv2118331717ygrp-lc #yiv2118331717hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2118331717 #yiv2118331717ygrp-sponsor #yiv2118331717ygrp-lc .yiv2118331717ad {margin-bottom:10px;padding:0 0;}#yiv2118331717 #yiv2118331717actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2118331717 #yiv2118331717activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2118331717 #yiv2118331717activity span {font-weight:700;}#yiv2118331717 #yiv2118331717activity span:first-child {text-transform:uppercase;}#yiv2118331717 #yiv2118331717activity span a {color:#5085b6;text-decoration:none;}#yiv2118331717 #yiv2118331717activity span span {color:#ff7900;}#yiv2118331717 #yiv2118331717activity span .yiv2118331717underline {text-decoration:underline;}#yiv2118331717 .yiv2118331717attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2118331717 .yiv2118331717attach div a {text-decoration:none;}#yiv2118331717 .yiv2118331717attach img {border:none;padding-right:5px;}#yiv2118331717 .yiv2118331717attach label {display:block;margin-bottom:5px;}#yiv2118331717 .yiv2118331717attach label a {text-decoration:none;}#yiv2118331717 blockquote {margin:0 0 0 4px;}#yiv2118331717 .yiv2118331717bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2118331717 .yiv2118331717bold a {text-decoration:none;}#yiv2118331717 dd.yiv2118331717last p a {font-family:Verdana;font-weight:700;}#yiv2118331717 dd.yiv2118331717last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2118331717 dd.yiv2118331717last p span.yiv2118331717yshortcuts {margin-right:0;}#yiv2118331717 div.yiv2118331717attach-table div div a {text-decoration:none;}#yiv2118331717 div.yiv2118331717attach-table {width:400px;}#yiv2118331717 div.yiv2118331717file-title a, #yiv2118331717 div.yiv2118331717file-title a:active, #yiv2118331717 div.yiv2118331717file-title a:hover, #yiv2118331717 div.yiv2118331717file-title a:visited {text-decoration:none;}#yiv2118331717 div.yiv2118331717photo-title a, #yiv2118331717 div.yiv2118331717photo-title a:active, #yiv2118331717 div.yiv2118331717photo-title a:hover, #yiv2118331717 div.yiv2118331717photo-title a:visited {text-decoration:none;}#yiv2118331717 div#yiv2118331717ygrp-mlmsg #yiv2118331717ygrp-msg p a span.yiv2118331717yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2118331717 .yiv2118331717green {color:#628c2a;}#yiv2118331717 .yiv2118331717MsoNormal {margin:0 0 0 0;}#yiv2118331717 o {font-size:0;}#yiv2118331717 #yiv2118331717photos div {float:left;width:72px;}#yiv2118331717 #yiv2118331717photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2118331717 #yiv2118331717photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2118331717 #yiv2118331717reco-category {font-size:77%;}#yiv2118331717 #yiv2118331717reco-desc {font-size:77%;}#yiv2118331717 .yiv2118331717replbq {margin:4px;}#yiv2118331717 #yiv2118331717ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2118331717 #yiv2118331717ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2118331717 #yiv2118331717ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2118331717 #yiv2118331717ygrp-mlmsg select, #yiv2118331717 input, #yiv2118331717 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2118331717 #yiv2118331717ygrp-mlmsg pre, #yiv2118331717 code {font:115% monospace;}#yiv2118331717 #yiv2118331717ygrp-mlmsg * {line-height:1.22em;}#yiv2118331717 #yiv2118331717ygrp-mlmsg #yiv2118331717logo {padding-bottom:10px;}#yiv2118331717 #yiv2118331717ygrp-msg p a {font-family:Verdana;}#yiv2118331717 #yiv2118331717ygrp-msg p#yiv2118331717attach-count span {color:#1E66AE;font-weight:700;}#yiv2118331717 #yiv2118331717ygrp-reco #yiv2118331717reco-head {color:#ff7900;font-weight:700;}#yiv2118331717 #yiv2118331717ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2118331717 #yiv2118331717ygrp-sponsor #yiv2118331717ov li a {font-size:130%;text-decoration:none;}#yiv2118331717 #yiv2118331717ygrp-sponsor #yiv2118331717ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2118331717 #yiv2118331717ygrp-sponsor #yiv2118331717ov ul {margin:0;padding:0 0 0 8px;}#yiv2118331717 #yiv2118331717ygrp-text {font-family:Georgia;}#yiv2118331717 #yiv2118331717ygrp-text p {margin:0 0 1em 0;}#yiv2118331717 #yiv2118331717ygrp-text tt {font-size:120%;}#yiv2118331717 #yiv2118331717ygrp-vital ul li:last-child {border-right:none !important;}#yiv2118331717
mungkin seperti ini:
Private Sub WARNABIASA()
Dim WARNABIASA
If Label7.ForeColor <> &H80FF& Then Label7.ForeColor = &H80FF&
If Label1.ForeColor <> &HC0C0C0 Then Label1.ForeColor = &HC0C0C0
If Label2.ForeColor <> &HC0C0C0 Then Label2.ForeColor = &HC0C0C0
If Label3.ForeColor <> &HC0C0C0 Then Label3.ForeColor = &HC0C0C0
If Label9.ForeColor <> &H80FF& Then Label9.ForeColor = &H80FF&
If Label15.ForeColor <> &H80FF& Then Label15.ForeColor = &H80FF&
If Label11.ForeColor <> &H80FF& Then Label11.ForeColor = &H80FF&
If Label10.ForeColor <> &H80FF& Then Label10.ForeColor = &H80FF&
If Label12.ForeColor <> &H80FF& Then Label12.ForeColor = &H80FF&
If Label13.ForeColor <> &H80FF& Then Label13.ForeColor = &H80FF&
If Label14.ForeColor <> &H80FF& Then Label14.ForeColor = &H80FF&
If Label17.ForeColor <> &H80FF& Then Label17.ForeColor = &H80FF&
If Label5.ForeColor <> &HFF00FF Then Label5.ForeColor = &HFF00FF
If Label4.ForeColor <> &HFF& Then Label4.ForeColor = &HFF&
End Sub
Pada Selasa, 7 Juli 2015 10:48, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear mas Husnul
mungkin seperti ini:
Private Sub WARNABIASA()
Dim WARNABIASA
If Label7.ForeColor <> &H80FF& Then Label7.ForeColor = &H80FF&
If Label1.ForeColor <> &HC0C0C0 Then Label1.ForeColor = &HC0C0C0
If Label2.ForeColor <> &HC0C0C0 Then Label2.ForeColor = &HC0C0C0
If Label3.ForeColor <> &HC0C0C0 Then Label3.ForeColor = &HC0C0C0
If Label9.ForeColor = &H80FF& Then Label9.ForeColor = &H80FF&
If Label15.ForeColor = &H80FF& Then Label15.ForeColor = &H80FF&
If Label11.ForeColor = &H80FF& Then Label11.ForeColor = &H80FF&
If Label10.ForeColor = &H80FF& Then Label10.ForeColor = &H80FF&
If Label12.ForeColor = &H80FF& Then Label12.ForeColor = &H80FF&
If Label13.ForeColor = &H80FF& Then Label13.ForeColor = &H80FF&
If Label14.ForeColor = &H80FF& Then Label14.ForeColor = &H80FF&
If Label17.ForeColor = &H80FF& Then Label17.ForeColor = &H80FF&
If Label5.ForeColor = &HFF00FF Then Label5.ForeColor = &HFF00FF
If Label4.ForeColor = &HFF& Then Label4.ForeColor = &HFF&
End Sub
salam
2015-07-06 6:03 GMT+07:00 HUSNUL FAIZIN husnulfaizin1807@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
mohon dicontohkan mr. kid..!
2015-07-06 4:26 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Wa'alaikumussalam wr wb
Hai Husnul,
Coba setiap pengaturan warna diubah menjadi bersusunan :
IF si object warnanya <> nomor warna ini THEN
si object warnanya = nomor warna ini
ENDIF
Nanti jumlah baris kodenya akan menjadi banyak. Untuk menyederhanankannya, bisa memanfaatkan SELECT CASE berdasar nama objectnya yang dikelompokkan per nomor warna.
Jika akan lebih simple lagi, bisa memanfaatkan prosedur ber-input variabel.
Cara lainnya adalah dengan membuat class object dengan with events beserta kelompok object nya. Supaya cukup dengan 3 prosedur events yang isinya kode-kode yang pendek.
Wassalamu'alaikum wr wb
Kid
2015-07-04 23:49 GMT+07:00 HUSNUL FAIZIN husnulfaizin1807@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamu'
Mohon bantuan master koreksi dan penambahan script macro apa untuk membuat Tulisan di userform agar tidak kelihatan "Bergetar"
wassalam.
#yiv2118331717 #yiv2118331717 -- #yiv2118331717ygrp-
Tue Jul 7, 2015 8:22 pm (PDT) . Posted by:
"HUSNUL FAIZIN"
mohon maaf master Nang Bagus setelah saya tuliskan macro diatas masih
terjadi beberapa masalah:
1. mengalami debug ketika mouse digerakkan keluar are userform (event
mousemove).
2. tidak mengalami perubahan warna jika pake tanda <> pada ForeColor
tapi jika diganti
pake tanda =, maka bisa berganti (tapi masalah lagi jika mousenya
pindah menu,
maka warna tidak dapat kembali ke default (mohon solusi).
3. dan jika bisa mohon contoh penerapan penjelasan solusi (ke2 dan
ke3) yang diberikan
oleh mr. kid
Mohon maaf banyak pertanyaan
Wassalam.
On 7/7/15, Nang Agus nangagus@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Dear mas Husnul
>
> mungkin seperti ini:
> Private Sub WARNABIASA()
> Dim WARNABIASA
> If Label7.ForeColor <> &H80FF& Then Label7.ForeColor = &H80FF&
> If Label1.ForeColor <> &HC0C0C0 Then Label1.ForeColor = &HC0C0C0
> If Label2.ForeColor <> &HC0C0C0 Then Label2.ForeColor = &HC0C0C0
> If Label3.ForeColor <> &HC0C0C0 Then Label3.ForeColor = &HC0C0C0
> If Label9.ForeColor = &H80FF& Then Label9.ForeColor = &H80FF&
> If Label15.ForeColor = &H80FF& Then Label15.ForeColor = &H80FF&
> If Label11.ForeColor = &H80FF& Then Label11.ForeColor = &H80FF&
> If Label10.ForeColor = &H80FF& Then Label10.ForeColor = &H80FF&
> If Label12.ForeColor = &H80FF& Then Label12.ForeColor = &H80FF&
> If Label13.ForeColor = &H80FF& Then Label13.ForeColor = &H80FF&
> If Label14.ForeColor = &H80FF& Then Label14.ForeColor = &H80FF&
> If Label17.ForeColor = &H80FF& Then Label17.ForeColor = &H80FF&
> If Label5.ForeColor = &HFF00FF Then Label5.ForeColor = &HFF00FF
> If Label4.ForeColor = &HFF& Then Label4.ForeColor = &HFF&
> End Sub
>
> salam
>
> 2015-07-06 6:03 GMT+07:00 HUSNUL FAIZIN husnulfaizin1807@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> mohon dicontohkan mr. kid..!
>>
>> 2015-07-06 4:26 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Wa'alaikumussalam wr wb
>>>
>>> Hai Husnul,
>>>
>>> Coba setiap pengaturan warna diubah menjadi bersusunan :
>>> IF si object warnanya <> nomor warna ini THEN
>>> si object warnanya = nomor warna ini
>>> ENDIF
>>>
>>> Nanti jumlah baris kodenya akan menjadi banyak. Untuk
>>> menyederhanankannya, bisa memanfaatkan SELECT CASE berdasar nama
>>> objectnya
>>> yang dikelompokkan per nomor warna.
>>>
>>> Jika akan lebih simple lagi, bisa memanfaatkan prosedur ber-input
>>> variabel.
>>> Cara lainnya adalah dengan membuat class object dengan with events
>>> beserta kelompok object nya. Supaya cukup dengan 3 prosedur events yang
>>> isinya kode-kode yang pendek.
>>>
>>> Wassalamu'alaikum wr wb
>>> Kid
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2015-07-04 23:49 GMT+07:00 HUSNUL FAIZIN husnulfaizin1807@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Assalamu'alaikum wr wb.
>>>> Mohon bantuan master koreksi dan penambahan script macro apa untuk
>>>> membuat Tulisan di userform agar tidak kelihatan "Bergetar"; pada saat
>>>> perpindahan mouse (mungkin karena pengaruh pergerakan mousenya). untuk
>>>> lebih jelasnya terlampir userform yang dimaksud. terimakasih.
>>>> wassalam.
>>>>
>>>>
>>>
>>
>>
>
terjadi beberapa masalah:
1. mengalami debug ketika mouse digerakkan keluar are userform (event
mousemove).
2. tidak mengalami perubahan warna jika pake tanda <> pada ForeColor
tapi jika diganti
pake tanda =, maka bisa berganti (tapi masalah lagi jika mousenya
pindah menu,
maka warna tidak dapat kembali ke default (mohon solusi).
3. dan jika bisa mohon contoh penerapan penjelasan solusi (ke2 dan
ke3) yang diberikan
oleh mr. kid
Mohon maaf banyak pertanyaan
Wassalam.
On 7/7/15, Nang Agus nangagus@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Dear mas Husnul
>
> mungkin seperti ini:
> Private Sub WARNABIASA()
> Dim WARNABIASA
> If Label7.ForeColor <> &H80FF& Then Label7.ForeColor = &H80FF&
> If Label1.ForeColor <> &HC0C0C0 Then Label1.ForeColor = &HC0C0C0
> If Label2.ForeColor <> &HC0C0C0 Then Label2.ForeColor = &HC0C0C0
> If Label3.ForeColor <> &HC0C0C0 Then Label3.ForeColor = &HC0C0C0
> If Label9.ForeColor = &H80FF& Then Label9.ForeColor = &H80FF&
> If Label15.ForeColor = &H80FF& Then Label15.ForeColor = &H80FF&
> If Label11.ForeColor = &H80FF& Then Label11.ForeColor = &H80FF&
> If Label10.ForeColor = &H80FF& Then Label10.ForeColor = &H80FF&
> If Label12.ForeColor = &H80FF& Then Label12.ForeColor = &H80FF&
> If Label13.ForeColor = &H80FF& Then Label13.ForeColor = &H80FF&
> If Label14.ForeColor = &H80FF& Then Label14.ForeColor = &H80FF&
> If Label17.ForeColor = &H80FF& Then Label17.ForeColor = &H80FF&
> If Label5.ForeColor = &HFF00FF Then Label5.ForeColor = &HFF00FF
> If Label4.ForeColor = &HFF& Then Label4.ForeColor = &HFF&
> End Sub
>
> salam
>
> 2015-07-06 6:03 GMT+07:00 HUSNUL FAIZIN husnulfaizin1807@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> mohon dicontohkan mr. kid..!
>>
>> 2015-07-06 4:26 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Wa'alaikumussalam wr wb
>>>
>>> Hai Husnul,
>>>
>>> Coba setiap pengaturan warna diubah menjadi bersusunan :
>>> IF si object warnanya <> nomor warna ini THEN
>>> si object warnanya = nomor warna ini
>>> ENDIF
>>>
>>> Nanti jumlah baris kodenya akan menjadi banyak. Untuk
>>> menyederhanankannya, bisa memanfaatkan SELECT CASE berdasar nama
>>> objectnya
>>> yang dikelompokkan per nomor warna.
>>>
>>> Jika akan lebih simple lagi, bisa memanfaatkan prosedur ber-input
>>> variabel.
>>> Cara lainnya adalah dengan membuat class object dengan with events
>>> beserta kelompok object nya. Supaya cukup dengan 3 prosedur events yang
>>> isinya kode-kode yang pendek.
>>>
>>> Wassalamu'alaikum wr wb
>>> Kid
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2015-07-04 23:49 GMT+07:00 HUSNUL FAIZIN husnulfaizin1807@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>
Tue Jul 7, 2015 8:25 pm (PDT) . Posted by:
"Berni Karanza" karanza.berni
Dear NangAgus,
Terima kasih banyak penjelasannya, masalahnya udah clear, spasinya yg
diseragamkan dengan subtitute atau replace.
Salam,
Berni
On Tuesday, July 7, 2015, Nang Agus nangagus@gmail.com
<javascript:_e(%7B%7D,'cvml','nangagus@gmail.com');> [belajar-excel] <
belajar-excel@yahoogroups.com
<javascript:_e(%7B%7D,'cvml','belajar-excel@yahoogroups.com');>> wrote:
>
>
> Dear Berni,
> untuk blank space ada bermacam-macam, ada kok penjelasannya di wikipedia
> <https://en.wikipedia.org/wiki/Whitespace_character>.
> coba di ketik rumus pada file yang dikirimkan:
> =CODE(MID(D12,8,1))
> dan formula:
> =CODE(MID(G6,8,1))
> untuk formula yang pertama menghasilkan 160 sedangkan formula kedua
> menghasilkan 32,
> ini berarti walaupun tampak dimata sama-sama spasi, tetapi oleh komputer
> terlihat sangat berbeda.
> spasi di D12 dibuat menggunakan alt+0160 atau alt+255, sedangkan spasi di
> G6 menggunakan tombol spasi di keyboard atau alt+32.
> agar vlookup dapat bekerja mka di G6, jika membutuhkan spasi tekan alt+255
> atau alt+0160, mau lihat karakter selengkapnya? silahkan jalan-jalan ke
> sini <http://www.irongeek.com/alt-numpad-ascii-key-combos-and-chart.html>
> salam
> NangAgus
>
> 2015-07-07 14:00 GMT+07:00 Berni Karanza karanza.berni@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear NangAgus
>>
>> Terimakasih responnya, perbedaannya ada di blank space itu apakah
>> maksudnya jumlah spasi yang tidak sama?, soalnya kalo saya hitung jumlahnya
>> udah sama, juga udah pake fungsi TRIM( ) buat ngilangin spasinya, kalo saya
>> copy Salah satu cell tersebut ke cell lainnya, agaknya menyulitkan, karena
>> aktual data sebenarnya cell yang dijadikan lookup value ada banyak, mohon
>> pencerahannya.
>>
>> Salam
>>
>> Berni
>>
>> On Smoh July 5, 2015, Nang Agus nangagus@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com> wrote:
>>
>>>
>>>
>>> Dear Karanza,
>>>
>>> lookup tersebut #NA karena isi cell G6 dan D12 tidak sama.
>>> coba copy salah satu cell tersebut ke cell lainnya, maka vlookup akan
>>> berjalan dengan baik. ( misal Copy G6 ke D 12 atau copy D12 ke G6)
>>> yang membedakan kedua cell tersebut adalah blank space, silahkan diubah
>>> sesuai keinginan.
>>> salam
>>> NangAgus
>>>
>>> 2015-07-02 7:19 GMT+07:00 Berni Karanza karanza.berni@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Dear rekan-rekan,
>>>>
>>>> Mohon bantuan penjelasan dan solusinya kenapa lookup value seperti pada
>>>> lampiran berikut tidak ditemukan di table array?
>>>>
>>>> NB: Source table array adalah hasil export database ke format xls.
>>>>
>>>> Terima kasih.
>>>>
>>>> salam
>>>>
>>>> Berni
>>>>
>>>>
>>>
>
>
Terima kasih banyak penjelasannya, masalahnya udah clear, spasinya yg
diseragamkan dengan subtitute atau replace.
Salam,
Berni
On Tuesday, July 7, 2015, Nang Agus nangagus@gmail.com
<javascript:_e(%7B%7D,'cvml','nangagus@gmail.com');> [belajar-excel] <
belajar-excel@yahoogroups.com
<javascript:_e(%7B%7D,'cvml','belajar-excel@yahoogroups.com');>> wrote:
>
>
> Dear Berni,
> untuk blank space ada bermacam-macam, ada kok penjelasannya di wikipedia
> <https://en.wikipedia.org/wiki/Whitespace_character>.
> coba di ketik rumus pada file yang dikirimkan:
> =CODE(MID(D12,8,1))
> dan formula:
> =CODE(MID(G6,8,1))
> untuk formula yang pertama menghasilkan 160 sedangkan formula kedua
> menghasilkan 32,
> ini berarti walaupun tampak dimata sama-sama spasi, tetapi oleh komputer
> terlihat sangat berbeda.
> spasi di D12 dibuat menggunakan alt+0160 atau alt+255, sedangkan spasi di
> G6 menggunakan tombol spasi di keyboard atau alt+32.
> agar vlookup dapat bekerja mka di G6, jika membutuhkan spasi tekan alt+255
> atau alt+0160, mau lihat karakter selengkapnya? silahkan jalan-jalan ke
> sini <http://www.irongeek.com/alt-numpad-ascii-key-combos-and-chart.html>
> salam
> NangAgus
>
> 2015-07-07 14:00 GMT+07:00 Berni Karanza karanza.berni@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear NangAgus
>>
>> Terimakasih responnya, perbedaannya ada di blank space itu apakah
>> maksudnya jumlah spasi yang tidak sama?, soalnya kalo saya hitung jumlahnya
>> udah sama, juga udah pake fungsi TRIM( ) buat ngilangin spasinya, kalo saya
>> copy Salah satu cell tersebut ke cell lainnya, agaknya menyulitkan, karena
>> aktual data sebenarnya cell yang dijadikan lookup value ada banyak, mohon
>> pencerahannya.
>>
>> Salam
>>
>> Berni
>>
>> On Smoh July 5, 2015, Nang Agus nangagus@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com> wrote:
>>
>>>
>>>
>>> Dear Karanza,
>>>
>>> lookup tersebut #NA karena isi cell G6 dan D12 tidak sama.
>>> coba copy salah satu cell tersebut ke cell lainnya, maka vlookup akan
>>> berjalan dengan baik. ( misal Copy G6 ke D 12 atau copy D12 ke G6)
>>> yang membedakan kedua cell tersebut adalah blank space, silahkan diubah
>>> sesuai keinginan.
>>> salam
>>> NangAgus
>>>
>>> 2015-07-02 7:19 GMT+07:00 Berni Karanza karanza.berni@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>
>
Tue Jul 7, 2015 11:52 pm (PDT) . Posted by:
"ris ha" har1sn.excel
Aduh jadi g enak nih..., masih butuh kok pak Agus, kerjaan lagi banyak, terutama bikin aplikasinya bikin pusing. Terima kasih atas respon para master semua, semoga dibulan suci ini semua solusi yang diberikan para master mendapatkan balasan berlipat ganda, dan dimudahkan semua urusan, sebagaimana para master memudahkan urusan para member lainnya. Amin...
On Monday, June 29, 2015 1:08 PM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Ikutan lagi ah,... mumpung masih Puasa (kok ikutan seperti mas Kid).
he.. he.. he..
meskipun yang mempunyai masalah Mas Haris sudah tidak membutuhkan
lagi, semoga berguna untuk member lainnya.
Threat yang pertama dilihat dahulu satu kolom, setelah selesai satu
kolom langsung dibaca kolom selanjutnya.....
untuk formula yang ini:
{=IFERROR(INDEX(DataCuti!$B$3:$B$15;INT(SMALL(IF(MONTH(RekapCuti!C$3)&YEAR(RekapCuti!C$3)=MONTH(DataCuti!$C$3:$J$15)&YEAR(DataCuti!$C$3:$J$15);ROW($1:$13)*100+COLUMN($A:$H);"");$A5)/100));"")}
membaca dahulu satu baris, setelah satu baris selesai dilanjutkan pada
baris kedua dan seterusnya sampai baris terakhir.
Perbedaan dengan formula terdahulu adalah ROW($1:$13) ditulis dahulu
dari pada COLUMN($A:$H) dan membacanya baris menggunakan INT,
sedangkan untuk mengambil baris pada formula sebelumnya menggunakan
MOD.
Salam
Thole Agus
On 6/27/15, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Wa'alaikumussalam wr wb
>
> ikutan ah...
> walau array formulanya tidak sependek milik mas Nang Agus...
>
> pokoke ikut urun, mumpung Ramadhan
>
> jangan diketawain karena saking panjangnya ya...pliiss...
> sampai 300an karakter nih... wkwkwk.. (yang boleh ngetawain cuman Kid loh
> ya...)
> Begini array formulanya...
> =IFERROR(INDEX(DataCuti!$B$3:$B$15&TEXT(MMULT(1*(TEXT(DataCuti!$C$3:$N$15,"YYYYMM")=TEXT(B$3,"YYYYMM")),TRANSPOSE(COLUMN(DataCuti!$C$2:$N$2)^0)),"[>1]
> (0);;"),SMALL(IF(MMULT(1*(TEXT(DataCuti!$C$3:$N$15,"YYYYMM")=TEXT(B$3,"YYYYMM")),TRANSPOSE(COLUMN(DataCuti!$C$2:$N$2)^0)),DataCuti!$A$3:$A$15),$A5)),"")
>
> hehehe... harap maklum...
>
> Biar manteb, pakai lampiran juga ah...
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
> 2015-06-27 17:04 GMT+10:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Walaikumsalam warahmatullah,
>> Mas Haris coba gunakan formula:
>>
>> {=IFERROR(INDEX(DataCuti!$B$3:$B$15;MOD(SMALL(IF(MONTH(RekapCuti!B$3)&YEAR(RekapCuti!B$3)=MONTH(DataCuti!$C$3:$J$15)&YEAR(DataCuti!$C$3:$J$15);COLUMN($A:$H)*100+ROW($1:$13);"");$A5);100));"")}
>> array formula.
>> silahkan lihat lampiran.
>>
>> wasasalamualaikumwarahmatullah
>> Kenang
>>
>>
>> 2015-06-26 14:07 GMT+07:00 ris ha har1sn.excel@yahoo.com [belajar-excel]
>> <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Assalamu'alaikum...
>>> Mohon bantuan para master excel semua. Saya hendak menampilkan nama
>>> orang berdasarkan bulan pada sheets DataCuti.
>>>
>>> Hasil yang diharapkan seperti pada RekapCuti. File terlampir
>>>
>>> Terima kasih atas solusinya
>>>
>>> Salam
>>> Haris
>>>
>>>
>>
>>
>
#yiv2688289694 #yiv2688289694 -- #yiv2688289694ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2688289694 #yiv2688289694ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2688289694 #yiv2688289694ygrp-mkp #yiv2688289694hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2688289694 #yiv2688289694ygrp-mkp #yiv2688289694ads {margin-bottom:10px;}#yiv2688289694 #yiv2688289694ygrp-mkp .yiv2688289694ad {padding:0 0;}#yiv2688289694 #yiv2688289694ygrp-mkp .yiv2688289694ad p {margin:0;}#yiv2688289694 #yiv2688289694ygrp-mkp .yiv2688289694ad a {color:#0000ff;text-decoration:none;}#yiv2688289694 #yiv2688289694ygrp-sponsor #yiv2688289694ygrp-lc {font-family:Arial;}#yiv2688289694 #yiv2688289694ygrp-sponsor #yiv2688289694ygrp-lc #yiv2688289694hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2688289694 #yiv2688289694ygrp-sponsor #yiv2688289694ygrp-lc .yiv2688289694ad {margin-bottom:10px;padding:0 0;}#yiv2688289694 #yiv2688289694actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2688289694 #yiv2688289694activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2688289694 #yiv2688289694activity span {font-weight:700;}#yiv2688289694 #yiv2688289694activity span:first-child {text-transform:uppercase;}#yiv2688289694 #yiv2688289694activity span a {color:#5085b6;text-decoration:none;}#yiv2688289694 #yiv2688289694activity span span {color:#ff7900;}#yiv2688289694 #yiv2688289694activity span .yiv2688289694underline {text-decoration:underline;}#yiv2688289694 .yiv2688289694attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2688289694 .yiv2688289694attach div a {text-decoration:none;}#yiv2688289694 .yiv2688289694attach img {border:none;padding-right:5px;}#yiv2688289694 .yiv2688289694attach label {display:block;margin-bottom:5px;}#yiv2688289694 .yiv2688289694attach label a {text-decoration:none;}#yiv2688289694 blockquote {margin:0 0 0 4px;}#yiv2688289694 .yiv2688289694bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2688289694 .yiv2688289694bold a {text-decoration:none;}#yiv2688289694 dd.yiv2688289694last p a {font-family:Verdana;font-weight:700;}#yiv2688289694 dd.yiv2688289694last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2688289694 dd.yiv2688289694last p span.yiv2688289694yshortcuts {margin-right:0;}#yiv2688289694 div.yiv2688289694attach-table div div a {text-decoration:none;}#yiv2688289694 div.yiv2688289694attach-table {width:400px;}#yiv2688289694 div.yiv2688289694file-title a, #yiv2688289694 div.yiv2688289694file-title a:active, #yiv2688289694 div.yiv2688289694file-title a:hover, #yiv2688289694 div.yiv2688289694file-title a:visited {text-decoration:none;}#yiv2688289694 div.yiv2688289694photo-title a, #yiv2688289694 div.yiv2688289694photo-title a:active, #yiv2688289694 div.yiv2688289694photo-title a:hover, #yiv2688289694 div.yiv2688289694photo-title a:visited {text-decoration:none;}#yiv2688289694 div#yiv2688289694ygrp-mlmsg #yiv2688289694ygrp-msg p a span.yiv2688289694yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2688289694 .yiv2688289694green {color:#628c2a;}#yiv2688289694 .yiv2688289694MsoNormal {margin:0 0 0 0;}#yiv2688289694 o {font-size:0;}#yiv2688289694 #yiv2688289694photos div {float:left;width:72px;}#yiv2688289694 #yiv2688289694photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2688289694 #yiv2688289694photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2688289694 #yiv2688289694reco-category {font-size:77%;}#yiv2688289694 #yiv2688289694reco-desc {font-size:77%;}#yiv2688289694 .yiv2688289694replbq {margin:4px;}#yiv2688289694 #yiv2688289694ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2688289694 #yiv2688289694ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2688289694 #yiv2688289694ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2688289694 #yiv2688289694ygrp-mlmsg select, #yiv2688289694 input, #yiv2688289694 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2688289694 #yiv2688289694ygrp-mlmsg pre, #yiv2688289694 code {font:115% monospace;}#yiv2688289694 #yiv2688289694ygrp-mlmsg * {line-height:1.22em;}#yiv2688289694 #yiv2688289694ygrp-mlmsg #yiv2688289694logo {padding-bottom:10px;}#yiv2688289694 #yiv2688289694ygrp-msg p a {font-family:Verdana;}#yiv2688289694 #yiv2688289694ygrp-msg p#yiv2688289694attach-count span {color:#1E66AE;font-weight:700;}#yiv2688289694 #yiv2688289694ygrp-reco #yiv2688289694reco-head {color:#ff7900;font-weight:700;}#yiv2688289694 #yiv2688289694ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2688289694 #yiv2688289694ygrp-sponsor #yiv2688289694ov li a {font-size:130%;text-decoration:none;}#yiv2688289694 #yiv2688289694ygrp-sponsor #yiv2688289694ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2688289694 #yiv2688289694ygrp-sponsor #yiv2688289694ov ul {margin:0;padding:0 0 0 8px;}#yiv2688289694 #yiv2688289694ygrp-text {font-family:Georgia;}#yiv2688289694 #yiv2688289694ygrp-text p {margin:0 0 1em 0;}#yiv2688289694 #yiv2688289694ygrp-text tt {font-size:120%;}#yiv2688289694 #yiv2688289694ygrp-vital ul li:last-child {border-right:none !important;}#yiv2688289694
On Monday, June 29, 2015 1:08 PM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Ikutan lagi ah,... mumpung masih Puasa (kok ikutan seperti mas Kid).
he.. he.. he..
meskipun yang mempunyai masalah Mas Haris sudah tidak membutuhkan
lagi, semoga berguna untuk member lainnya.
Threat yang pertama dilihat dahulu satu kolom, setelah selesai satu
kolom langsung dibaca kolom selanjutnya.....
untuk formula yang ini:
{=IFERROR(INDEX(DataCuti!$B$3:$B$15;INT(SMALL(IF(MONTH(RekapCuti!C$3)&YEAR(RekapCuti!C$3)=MONTH(DataCuti!$C$3:$J$15)&YEAR(DataCuti!$C$3:$J$15);ROW($1:$13)*100+COLUMN($A:$H);"");$A5)/100));"")}
membaca dahulu satu baris, setelah satu baris selesai dilanjutkan pada
baris kedua dan seterusnya sampai baris terakhir.
Perbedaan dengan formula terdahulu adalah ROW($1:$13) ditulis dahulu
dari pada COLUMN($A:$H) dan membacanya baris menggunakan INT,
sedangkan untuk mengambil baris pada formula sebelumnya menggunakan
MOD.
Salam
Thole Agus
On 6/27/15, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Wa'alaikumussalam wr wb
>
> ikutan ah...
> walau array formulanya tidak sependek milik mas Nang Agus...
>
> pokoke ikut urun, mumpung Ramadhan
>
> jangan diketawain karena saking panjangnya ya...pliiss...
> sampai 300an karakter nih... wkwkwk.. (yang boleh ngetawain cuman Kid loh
> ya...)
> Begini array formulanya...
> =IFERROR(INDEX(DataCuti!$B$3:$B$15&TEXT(MMULT(1*(TEXT(DataCuti!$C$3:$N$15,"YYYYMM")=TEXT(B$3,"YYYYMM")),TRANSPOSE(COLUMN(DataCuti!$C$2:$N$2)^0)),"[>1]
> (0);;"),SMALL(IF(MMULT(1*(TEXT(DataCuti!$C$3:$N$15,"YYYYMM")=TEXT(B$3,"YYYYMM")),TRANSPOSE(COLUMN(DataCuti!$C$2:$N$2)^0)),DataCuti!$A$3:$A$15),$A5)),"")
>
> hehehe... harap maklum...
>
> Biar manteb, pakai lampiran juga ah...
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
> 2015-06-27 17:04 GMT+10:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Walaikumsalam warahmatullah,
>> Mas Haris coba gunakan formula:
>>
>> {=IFERROR(INDEX(DataCuti!$B$3:$B$15;MOD(SMALL(IF(MONTH(RekapCuti!B$3)&YEAR(RekapCuti!B$3)=MONTH(DataCuti!$C$3:$J$15)&YEAR(DataCuti!$C$3:$J$15);COLUMN($A:$H)*100+ROW($1:$13);"");$A5);100));"")}
>> array formula.
>> silahkan lihat lampiran.
>>
>> wasasalamualaikumwarahmatullah
>> Kenang
>>
>>
>> 2015-06-26 14:07 GMT+07:00 ris ha har1sn.excel@yahoo.com [belajar-excel]
>> <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Assalamu'
>>> Mohon bantuan para master excel semua. Saya hendak menampilkan nama
>>> orang berdasarkan bulan pada sheets DataCuti.
>>>
>>> Hasil yang diharapkan seperti pada RekapCuti. File terlampir
>>>
>>> Terima kasih atas solusinya
>>>
>>> Salam
>>> Haris
>>>
>>>
>>
>>
>
#yiv2688289694 #yiv2688289694 -- #yiv2688289694ygrp-
Wed Jul 8, 2015 2:04 am (PDT) . Posted by:
"DD"
Dear MR Kid,
Saking sibuknya baru gabung lg nih,...
Terimakasih Mr atas masukannya. SUKSES...
Salam,
DD
From: 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 05 Juli 2015 06:13
To: BeExcel
Subject: Re: [belajar-excel] Makro Kirim Email
Hai DD,
Coba ubah bagian :
If Trim(FileCell) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value
End If
End If
menjadi :
If Len(Dir(Trim(FileCell.Value))) <> 0 Then
.Attachments.Add trim(FileCell.Value)
End If
Wassalam,
Kid
On Fri, Jul 3, 2015 at 5:23 PM, DD pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Dear Para Master,
Mohon koreksinya terkait makro dbi :
Sub Send_Files()
'Working in Excel 2000-2013
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim cell As Range
Dim FileCell As Range
Dim rng As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set sh = Sheets("Sheet1")
Set OutApp = CreateObject("Outlook.Application";)
For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)
'Enter the path/file names in the C:Z column in each row
Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1")
If cell.Value Like "?*@?*.?*" And _
Application.WorksheetFunction.CountA(rng) > 0 Then
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = cell.Value
.CC = Cells(cell.Row, 1).Range("d1:d1")
.Subject = Cells(cell.Row, 1).Range("e1:e1")
.Body = "" & cell.Offset(0, -1).Value
For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value
End If
End If
Next FileCell
.Send 'Or use .Display
End With
Set OutMail = Nothing
End If
Next cell
Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
Makro ini adalah untuk kirim email otomatis dengan lampirannya, kadang berjalan sesuai keinginan kadang tidak.
Kalau lagi bengkok ada pesan debug dan makronya seperti diatas dengan satu baris berwarna kuning.
Mohon solusinya.
Salam,
DD
_____
This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
Saking sibuknya baru gabung lg nih,...
Terimakasih Mr atas masukannya. SUKSES...
Salam,
DD
From: 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 05 Juli 2015 06:13
To: BeExcel
Subject: Re: [belajar-excel] Makro Kirim Email
Hai DD,
Coba ubah bagian :
If Trim(FileCell) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value
End If
End If
menjadi :
If Len(Dir(Trim(FileCell.Value))) <> 0 Then
.Attachments.Add trim(FileCell.Value)
End If
Wassalam,
Kid
On Fri, Jul 3, 2015 at 5:23 PM, DD pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Dear Para Master,
Mohon koreksinya terkait makro dbi :
Sub Send_Files()
'Working in Excel 2000-2013
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim cell As Range
Dim FileCell As Range
Dim rng As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set sh = Sheets("
Set OutApp = CreateObject(
For Each cell In sh.Columns("
'Enter the path/file names in the C:Z column in each row
Set rng = sh.Cells(cell.
If cell.Value Like "?*@?*.
Application.
Set OutMail = OutApp.CreateItem(
With OutMail
.to = cell.Value
.CC = Cells(cell.Row, 1).Range("
.Subject = Cells(cell.Row, 1).Range("
.Body = "" & cell.Offset(
For Each FileCell In rng.SpecialCells(
If Trim(FileCell) <> "" Then
If Dir(FileCell.
.Attachments.
End If
End If
Next FileCell
.Send 'Or use .Display
End With
Set OutMail = Nothing
End If
Next cell
Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
Makro ini adalah untuk kirim email otomatis dengan lampirannya, kadang berjalan sesuai keinginan kadang tidak.
Kalau lagi bengkok ada pesan debug dan makronya seperti diatas dengan satu baris berwarna kuning.
Mohon solusinya.
Salam,
DD
_____
This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar