15 Messages
Digest #3590
2b
Bls: [belajar-excel] warnai font dengan CF atau macro [1 Attachment] by "wendi surdinal" syawal28
2c
Bls: [belajar-excel] warnai font dengan CF atau macro [1 Attachment] by "Husnul Faizin" husnulfaizin
Messages
Tue Oct 6, 2015 3:11 am (PDT) . Posted by:
"Walsoyo"
Terimakasih
6 Okt 2015 09.54, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> menulis:
>
>
> Pinjem formulany mas Nang yang berbunyi :
> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
>
> tampak bahwa kasusnya :
> 1. mencocokkan inputan dengan data sesuai bunyi awalan inputan :
> (E2=LEFT($A$3:$A$10;LEN(E2)))
> 2. formula dikhususkan untuk inputan yang ada isinya
> (LEN(E2)>0)
> 3. melakukan Sum terhadap suatu data
> ($B$3:$B$10)
> 4. kriteria 1 dan 2 harus terpenuhi
> *
>
> Tampaknya bisa disusun sebagai berikut :
> 3 dan 4. melakukan Sum berkriteria. Artinya bisa menggunakan SumIF atau
> SumIFs
> SumIF( $B$3:$B$10 )
> 2. formula dikhususkan untuk inputan yang ada isinya. Artinya perlu
> pengkondisian :
> IF( LEN(E2)>0 ; benar , salah )
> atau cukup dengan : (karena di Excel, nilai bukan 0 adalah setara TRUE)
> IF( LEN(E2) ; benar ; salah )
> yang kira-kira setelah dimasukkan yang nomor 3 dan 4 menjadi :
> IF( LEN(E2) ; SumIF( $B$3:$B$10 ) ; "" ) -> misal kalau
> inputan tidak ada isinya, cell hasil diisi nullstring
> 1. kriteria mencocokkan mengikuti awalan inputan data
> $A$3:$A$10 ; E2 & "*"
> yang kalau dimasukkan sebagai kriterianya SumIF akan menjadi :
> IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; ""
> )
>
> Maka bunyi formula akhirnya adalah :
> =IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; "" )
>
> Jangan lupa pesan mas Nang yang berbunyi :
> Jika komputer regional setting bahasa inggris ubah ; menjadi ,
>
> ;)
>
> Wassalam,
> Kid
>
>
>
>
> 2015-10-06 9:36 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Coba gunakan:
>> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
>> Jika komputer regional setting bahas inggris ubah ; menjadi ,
>>
>> jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi numerik
>>
>> 2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Dear BeExceller,
>>>
>>> tolong dibantu bagaimana mengganti formula pada file terlampir agar
>>> formula dapat ditarik kebawah. Terimakasih atas bantuannya
>>>
>>>
>>
>
>
6 Okt 2015 09.54, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> menulis:
>
>
> Pinjem formulany mas Nang yang berbunyi :
> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
>
> tampak bahwa kasusnya :
> 1. mencocokkan inputan dengan data sesuai bunyi awalan inputan :
> (E2=LEFT($A$3:$A$10;LEN(E2)))
> 2. formula dikhususkan untuk inputan yang ada isinya
> (LEN(E2)>0)
> 3. melakukan Sum terhadap suatu data
> ($B$3:$B$10)
> 4. kriteria 1 dan 2 harus terpenuhi
> *
>
> Tampaknya bisa disusun sebagai berikut :
> 3 dan 4. melakukan Sum berkriteria. Artinya bisa menggunakan SumIF atau
> SumIFs
> SumIF( $B$3:$B$10 )
> 2. formula dikhususkan untuk inputan yang ada isinya. Artinya perlu
> pengkondisian :
> IF( LEN(E2)>0 ; benar , salah )
> atau cukup dengan : (karena di Excel, nilai bukan 0 adalah setara TRUE)
> IF( LEN(E2) ; benar ; salah )
> yang kira-kira setelah dimasukkan yang nomor 3 dan 4 menjadi :
> IF( LEN(E2) ; SumIF( $B$3:$B$10 ) ; "" ) -> misal kalau
> inputan tidak ada isinya, cell hasil diisi nullstring
> 1. kriteria mencocokkan mengikuti awalan inputan data
> $A$3:$A$10 ; E2 & "*"
> yang kalau dimasukkan sebagai kriterianya SumIF akan menjadi :
> IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; ""
> )
>
> Maka bunyi formula akhirnya adalah :
> =IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; "" )
>
> Jangan lupa pesan mas Nang yang berbunyi :
> Jika komputer regional setting bahasa inggris ubah ; menjadi ,
>
> ;)
>
> Wassalam,
> Kid
>
>
>
>
> 2015-10-06 9:36 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Coba gunakan:
>> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
>> Jika komputer regional setting bahas inggris ubah ; menjadi ,
>>
>> jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi numerik
>>
>> 2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Dear BeExceller,
>>>
>>> tolong dibantu bagaimana mengganti formula pada file terlampir agar
>>> formula dapat ditarik kebawah. Terimakasih atas bantuannya
>>>
>>>
>>
>
>
Tue Oct 6, 2015 3:13 am (PDT) . Posted by:
"Walsoyo"
Bagaimana jika dikolom c ada kriteria jenis. Yang dijumlah adalah yang jenisnya a saja
6 Okt 2015 12.55, "Walsoyo" <soyomakmur@gmail.com mailto:soyomakmur@gmail.com> menulis:
Terimakasih
6 Okt 2015 09.54, "'Mr. Kid' mr.nmkid@gmail.com mailto:mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com> menulis:
Pinjem formulany mas Nang yang berbunyi :
=SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
tampak bahwa kasusnya :
1. mencocokkan inputan dengan data sesuai bunyi awalan inputan :
(E2=LEFT($A$3:$A$10;LEN(E2))) 2. formula dikhususkan untuk inputan yang ada isinya
(LEN(E2)>0)
3. melakukan Sum terhadap suatu data
($B$3:$B$10)
4. kriteria 1 dan 2 harus terpenuhi
*
Tampaknya bisa disusun sebagai berikut :
3 dan 4. melakukan Sum berkriteria. Artinya bisa menggunakan SumIF atau SumIFs
SumIF( $B$3:$B$10 )
2. formula dikhususkan untuk inputan yang ada isinya. Artinya perlu pengkondisian :
IF( LEN(E2)>0 ; benar , salah )
atau cukup dengan : (karena di Excel, nilai bukan 0 adalah setara TRUE)
IF( LEN(E2) ; benar ; salah )
yang kira-kira setelah dimasukkan yang nomor 3 dan 4 menjadi :
IF( LEN(E2) ; SumIF( $B$3:$B$10 ) ; "" ) -> misal kalau inputan tidak ada isinya, cell hasil diisi nullstring
1. kriteria mencocokkan mengikuti awalan inputan data
$A$3:$A$10 ; E2 & "*"
yang kalau dimasukkan sebagai kriterianya SumIF akan menjadi :
IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; "" )
Maka bunyi formula akhirnya adalah :
=IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; "" )
Jangan lupa pesan mas Nang yang berbunyi :
Jika komputer regional setting bahasa inggris ubah ; menjadi ,
;)
Wassalam,
Kid
2015-10-06 9:36 GMT+07:00 Nang Agus nangagus@gmail.com mailto:nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com>:
Coba gunakan:
=SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
Jika komputer regional setting bahas inggris ubah ; menjadi ,
jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi numerik
2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com mailto:soyomakmur@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com>:
Dear BeExceller,
tolong dibantu bagaimana mengganti formula pada file terlampir agar formula dapat ditarik kebawah. Terimakasih atas bantuannya
6 Okt 2015 12.55, "Walsoyo" <soyomakmur@gmail.com mailto:soyomakmur@gmail.com> menulis:
Terimakasih
6 Okt 2015 09.54, "'Mr. Kid' mr.nmkid@gmail.com mailto:mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com> menulis:
Pinjem formulany mas Nang yang berbunyi :
=SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
tampak bahwa kasusnya :
1. mencocokkan inputan dengan data sesuai bunyi awalan inputan :
(E2=LEFT($A$3:$A$10;LEN(E2))) 2. formula dikhususkan untuk inputan yang ada isinya
(LEN(E2)>0)
3. melakukan Sum terhadap suatu data
($B$3:$B$10)
4. kriteria 1 dan 2 harus terpenuhi
*
Tampaknya bisa disusun sebagai berikut :
3 dan 4. melakukan Sum berkriteria. Artinya bisa menggunakan SumIF atau SumIFs
SumIF( $B$3:$B$10 )
2. formula dikhususkan untuk inputan yang ada isinya. Artinya perlu pengkondisian :
IF( LEN(E2)>0 ; benar , salah )
atau cukup dengan : (karena di Excel, nilai bukan 0 adalah setara TRUE)
IF( LEN(E2) ; benar ; salah )
yang kira-kira setelah dimasukkan yang nomor 3 dan 4 menjadi :
IF( LEN(E2) ; SumIF( $B$3:$B$10 ) ; "" ) -> misal kalau inputan tidak ada isinya, cell hasil diisi nullstring
1. kriteria mencocokkan mengikuti awalan inputan data
$A$3:$A$10 ; E2 & "*"
yang kalau dimasukkan sebagai kriterianya SumIF akan menjadi :
IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; "" )
Maka bunyi formula akhirnya adalah :
=IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; "" )
Jangan lupa pesan mas Nang yang berbunyi :
Jika komputer regional setting bahasa inggris ubah ; menjadi ,
;)
Wassalam,
Kid
2015-10-06 9:36 GMT+07:00 Nang Agus nangagus@gmail.com mailto:nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com>:
Coba gunakan:
=SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
Jika komputer regional setting bahas inggris ubah ; menjadi ,
jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi numerik
2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com mailto:soyomakmur@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com>:
Dear BeExceller,
tolong dibantu bagaimana mengganti formula pada file terlampir agar formula dapat ditarik kebawah. Terimakasih atas bantuannya
Tue Oct 6, 2015 3:13 am (PDT) . Posted by:
"Walsoyo"
Terimaksih semua. Formula sudah jadi, pakai sumifs. L
6 Okt 2015 13.18, "Walsoyo" <soyomakmur@gmail.com> menulis:
> Ini lampiranya
> 6 Okt 2015 13.16, "Walsoyo" <soyomakmur@gmail.com> menulis:
>
>> Bagaimana jika dikolom c ada kriteria jenis. Yang dijumlah adalah yang
>> jenisnya a saja
>> 6 Okt 2015 12.55, "Walsoyo" <soyomakmur@gmail.com> menulis:
>>
>>> Terimakasih
>>> 6 Okt 2015 09.54, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
>>> belajar-excel@yahoogroups.com> menulis:
>>>
>>>>
>>>>
>>>> Pinjem formulany mas Nang yang berbunyi :
>>>> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
>>>>
>>>> tampak bahwa kasusnya :
>>>> 1. mencocokkan inputan dengan data sesuai bunyi awalan inputan :
>>>> (E2=LEFT($A$3:$A$10;LEN(E2)))
>>>> 2. formula dikhususkan untuk inputan yang ada isinya
>>>> (LEN(E2)>0)
>>>> 3. melakukan Sum terhadap suatu data
>>>> ($B$3:$B$10)
>>>> 4. kriteria 1 dan 2 harus terpenuhi
>>>> *
>>>>
>>>> Tampaknya bisa disusun sebagai berikut :
>>>> 3 dan 4. melakukan Sum berkriteria. Artinya bisa menggunakan SumIF atau
>>>> SumIFs
>>>> SumIF( $B$3:$B$10 )
>>>> 2. formula dikhususkan untuk inputan yang ada isinya. Artinya perlu
>>>> pengkondisian :
>>>> IF( LEN(E2)>0 ; benar , salah )
>>>> atau cukup dengan : (karena di Excel, nilai bukan 0 adalah setara
>>>> TRUE)
>>>> IF( LEN(E2) ; benar ; salah )
>>>> yang kira-kira setelah dimasukkan yang nomor 3 dan 4 menjadi :
>>>> IF( LEN(E2) ; SumIF( $B$3:$B$10 ) ; "" ) -> misal kalau
>>>> inputan tidak ada isinya, cell hasil diisi nullstring
>>>> 1. kriteria mencocokkan mengikuti awalan inputan data
>>>> $A$3:$A$10 ; E2 & "*"
>>>> yang kalau dimasukkan sebagai kriterianya SumIF akan menjadi :
>>>> IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; ""
>>>> )
>>>>
>>>> Maka bunyi formula akhirnya adalah :
>>>> =IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; ""
>>>> )
>>>>
>>>> Jangan lupa pesan mas Nang yang berbunyi :
>>>> Jika komputer regional setting bahasa inggris ubah ; menjadi ,
>>>>
>>>> ;)
>>>>
>>>> Wassalam,
>>>> Kid
>>>>
>>>>
>>>>
>>>>
>>>> 2015-10-06 9:36 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel]
>>>> <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Coba gunakan:
>>>>> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
>>>>> Jika komputer regional setting bahas inggris ubah ; menjadi ,
>>>>>
>>>>> jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi
>>>>> numerik
>>>>>
>>>>> 2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> Dear BeExceller,
>>>>>>
>>>>>> tolong dibantu bagaimana mengganti formula pada file terlampir agar
>>>>>> formula dapat ditarik kebawah. Terimakasih atas bantuannya
>>>>>>
>>>>>>
>>>>>
>>>>
>>>>
>>>
6 Okt 2015 13.18, "Walsoyo" <soyomakmur@gmail.com> menulis:
> Ini lampiranya
> 6 Okt 2015 13.16, "Walsoyo" <soyomakmur@gmail.com> menulis:
>
>> Bagaimana jika dikolom c ada kriteria jenis. Yang dijumlah adalah yang
>> jenisnya a saja
>> 6 Okt 2015 12.55, "Walsoyo" <soyomakmur@gmail.com> menulis:
>>
>>> Terimakasih
>>> 6 Okt 2015 09.54, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
>>> belajar-excel@yahoogroups.com> menulis:
>>>
>>>>
>>>>
>>>> Pinjem formulany mas Nang yang berbunyi :
>>>> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
>>>>
>>>> tampak bahwa kasusnya :
>>>> 1. mencocokkan inputan dengan data sesuai bunyi awalan inputan :
>>>> (E2=LEFT($A$3:$A$10;LEN(E2)))
>>>> 2. formula dikhususkan untuk inputan yang ada isinya
>>>> (LEN(E2)>0)
>>>> 3. melakukan Sum terhadap suatu data
>>>> ($B$3:$B$10)
>>>> 4. kriteria 1 dan 2 harus terpenuhi
>>>> *
>>>>
>>>> Tampaknya bisa disusun sebagai berikut :
>>>> 3 dan 4. melakukan Sum berkriteria. Artinya bisa menggunakan SumIF atau
>>>> SumIFs
>>>> SumIF( $B$3:$B$10 )
>>>> 2. formula dikhususkan untuk inputan yang ada isinya. Artinya perlu
>>>> pengkondisian :
>>>> IF( LEN(E2)>0 ; benar , salah )
>>>> atau cukup dengan : (karena di Excel, nilai bukan 0 adalah setara
>>>> TRUE)
>>>> IF( LEN(E2) ; benar ; salah )
>>>> yang kira-kira setelah dimasukkan yang nomor 3 dan 4 menjadi :
>>>> IF( LEN(E2) ; SumIF( $B$3:$B$10 ) ; "" ) -> misal kalau
>>>> inputan tidak ada isinya, cell hasil diisi nullstring
>>>> 1. kriteria mencocokkan mengikuti awalan inputan data
>>>> $A$3:$A$10 ; E2 & "*"
>>>> yang kalau dimasukkan sebagai kriterianya SumIF akan menjadi :
>>>> IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; ""
>>>> )
>>>>
>>>> Maka bunyi formula akhirnya adalah :
>>>> =IF( LEN(E2) ; SumIF( $A$3:$A$10 ; E2 & "*" ; $B$3:$B$10 ) ; ""
>>>> )
>>>>
>>>> Jangan lupa pesan mas Nang yang berbunyi :
>>>> Jika komputer regional setting bahasa inggris ubah ; menjadi ,
>>>>
>>>> ;)
>>>>
>>>> Wassalam,
>>>> Kid
>>>>
>>>>
>>>>
>>>>
>>>> 2015-10-06 9:36 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel]
>>>> <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Coba gunakan:
>>>>> =SUMPRODUCT((E2=LEFT($A$3:$A$10;LEN(E2)))*($B$3:$B$10)*(LEN(E2)>0))
>>>>> Jika komputer regional setting bahas inggris ubah ; menjadi ,
>>>>>
>>>>> jangan lupa angka di E2 dan di E9 diubah menjadi text jangan diisi
>>>>> numerik
>>>>>
>>>>> 2015-10-06 7:32 GMT+07:00 Walsoyo soyomakmur@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
Tue Oct 6, 2015 3:12 am (PDT) . Posted by:
"Husnul Faizin" husnulfaizin
Assalamu'alaikum.
Yth. Master Be-Xcel
Mohon Bantuan para master Be-xcel pemberian warna font dengan CF atau script macro:
Solusi yang di inginkan:
1) Kalimat Nilai " Tujuh Puluh " atau sesuai KKM di cell "B5" dan yang lebih besar dari nilai KKM akan terkondisi berwarna "Biru"
2) Kalimat Nilai yang lebih rendah dari "Tujuh Puluh" misalkan kalimat yang dimulai dari kata "Enam puluh sembilan" atau yang
lebih rendah; akan terkondisi berwarna "Merah".
Berikut lampiran filenya
Terimakasih sebelumnya!
Salam
HF
Yth. Master Be-Xcel
Mohon Bantuan para master Be-xcel pemberian warna font dengan CF atau script macro:
Solusi yang di inginkan:
1) Kalimat Nilai " Tujuh Puluh " atau sesuai KKM di cell "B5" dan yang lebih besar dari nilai KKM akan terkondisi berwarna "Biru"
2) Kalimat Nilai yang lebih rendah dari "Tujuh Puluh" misalkan kalimat yang dimulai dari kata "Enam puluh sembilan" atau yang
lebih rendah; akan terkondisi berwarna "Merah"
Berikut lampiran filenya
Terimakasih sebelumnya!
Salam
HF
Tue Oct 6, 2015 7:37 am (PDT) . Posted by:
"wendi surdinal" syawal28
coba dengan versi ini pak huznul faizin
Pada Selasa, 6 Oktober 2015 17:12, "Husnul Faizin husnulfaizin@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamu'alaikum.
Yth. Master Be-Xcel
Mohon Bantuan para master Be-xcel pemberian warna font dengan CF atau script macro:
Solusi yang di inginkan:
1) Kalimat Nilai " Tujuh Puluh " atau sesuai KKM di cell "B5" dan yang lebih besar dari nilai KKM akan terkondisi berwarna "Biru"
2) Kalimat Nilai yang lebih rendah dari "Tujuh Puluh" misalkan kalimat yang dimulai dari kata "Enam puluh sembilan" atau yang
lebih rendah; akan terkondisi berwarna "Merah".
Berikut lampiran filenya
Terimakasih sebelumnya!
Salam
HF #yiv4147164219 #yiv4147164219 -- #yiv4147164219ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4147164219 #yiv4147164219ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4147164219 #yiv4147164219ygrp-mkp #yiv4147164219hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4147164219 #yiv4147164219ygrp-mkp #yiv4147164219ads {margin-bottom:10px;}#yiv4147164219 #yiv4147164219ygrp-mkp .yiv4147164219ad {padding:0 0;}#yiv4147164219 #yiv4147164219ygrp-mkp .yiv4147164219ad p {margin:0;}#yiv4147164219 #yiv4147164219ygrp-mkp .yiv4147164219ad a {color:#0000ff;text-decoration:none;}#yiv4147164219 #yiv4147164219ygrp-sponsor #yiv4147164219ygrp-lc {font-family:Arial;}#yiv4147164219 #yiv4147164219ygrp-sponsor #yiv4147164219ygrp-lc #yiv4147164219hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4147164219 #yiv4147164219ygrp-sponsor #yiv4147164219ygrp-lc .yiv4147164219ad {margin-bottom:10px;padding:0 0;}#yiv4147164219 #yiv4147164219actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4147164219 #yiv4147164219activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4147164219 #yiv4147164219activity span {font-weight:700;}#yiv4147164219 #yiv4147164219activity span:first-child {text-transform:uppercase;}#yiv4147164219 #yiv4147164219activity span a {color:#5085b6;text-decoration:none;}#yiv4147164219 #yiv4147164219activity span span {color:#ff7900;}#yiv4147164219 #yiv4147164219activity span .yiv4147164219underline {text-decoration:underline;}#yiv4147164219 .yiv4147164219attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4147164219 .yiv4147164219attach div a {text-decoration:none;}#yiv4147164219 .yiv4147164219attach img {border:none;padding-right:5px;}#yiv4147164219 .yiv4147164219attach label {display:block;margin-bottom:5px;}#yiv4147164219 .yiv4147164219attach label a {text-decoration:none;}#yiv4147164219 blockquote {margin:0 0 0 4px;}#yiv4147164219 .yiv4147164219bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4147164219 .yiv4147164219bold a {text-decoration:none;}#yiv4147164219 dd.yiv4147164219last p a {font-family:Verdana;font-weight:700;}#yiv4147164219 dd.yiv4147164219last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4147164219 dd.yiv4147164219last p span.yiv4147164219yshortcuts {margin-right:0;}#yiv4147164219 div.yiv4147164219attach-table div div a {text-decoration:none;}#yiv4147164219 div.yiv4147164219attach-table {width:400px;}#yiv4147164219 div.yiv4147164219file-title a, #yiv4147164219 div.yiv4147164219file-title a:active, #yiv4147164219 div.yiv4147164219file-title a:hover, #yiv4147164219 div.yiv4147164219file-title a:visited {text-decoration:none;}#yiv4147164219 div.yiv4147164219photo-title a, #yiv4147164219 div.yiv4147164219photo-title a:active, #yiv4147164219 div.yiv4147164219photo-title a:hover, #yiv4147164219 div.yiv4147164219photo-title a:visited {text-decoration:none;}#yiv4147164219 div#yiv4147164219ygrp-mlmsg #yiv4147164219ygrp-msg p a span.yiv4147164219yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4147164219 .yiv4147164219green {color:#628c2a;}#yiv4147164219 .yiv4147164219MsoNormal {margin:0 0 0 0;}#yiv4147164219 o {font-size:0;}#yiv4147164219 #yiv4147164219photos div {float:left;width:72px;}#yiv4147164219 #yiv4147164219photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4147164219 #yiv4147164219photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4147164219 #yiv4147164219reco-category {font-size:77%;}#yiv4147164219 #yiv4147164219reco-desc {font-size:77%;}#yiv4147164219 .yiv4147164219replbq {margin:4px;}#yiv4147164219 #yiv4147164219ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4147164219 #yiv4147164219ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4147164219 #yiv4147164219ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4147164219 #yiv4147164219ygrp-mlmsg select, #yiv4147164219 input, #yiv4147164219 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4147164219 #yiv4147164219ygrp-mlmsg pre, #yiv4147164219 code {font:115% monospace;}#yiv4147164219 #yiv4147164219ygrp-mlmsg * {line-height:1.22em;}#yiv4147164219 #yiv4147164219ygrp-mlmsg #yiv4147164219logo {padding-bottom:10px;}#yiv4147164219 #yiv4147164219ygrp-msg p a {font-family:Verdana;}#yiv4147164219 #yiv4147164219ygrp-msg p#yiv4147164219attach-count span {color:#1E66AE;font-weight:700;}#yiv4147164219 #yiv4147164219ygrp-reco #yiv4147164219reco-head {color:#ff7900;font-weight:700;}#yiv4147164219 #yiv4147164219ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4147164219 #yiv4147164219ygrp-sponsor #yiv4147164219ov li a {font-size:130%;text-decoration:none;}#yiv4147164219 #yiv4147164219ygrp-sponsor #yiv4147164219ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4147164219 #yiv4147164219ygrp-sponsor #yiv4147164219ov ul {margin:0;padding:0 0 0 8px;}#yiv4147164219 #yiv4147164219ygrp-text {font-family:Georgia;}#yiv4147164219 #yiv4147164219ygrp-text p {margin:0 0 1em 0;}#yiv4147164219 #yiv4147164219ygrp-text tt {font-size:120%;}#yiv4147164219 #yiv4147164219ygrp-vital ul li:last-child {border-right:none !important;}#yiv4147164219
Pada Selasa, 6 Oktober 2015 17:12, "Husnul Faizin husnulfaizin@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamu'
Yth. Master Be-Xcel
Mohon Bantuan para master Be-xcel pemberian warna font dengan CF atau script macro:
Solusi yang di inginkan:
1) Kalimat Nilai " Tujuh Puluh " atau sesuai KKM di cell "B5" dan yang lebih besar dari nilai KKM akan terkondisi berwarna "Biru"
2) Kalimat Nilai yang lebih rendah dari "Tujuh Puluh" misalkan kalimat yang dimulai dari kata "Enam puluh sembilan" atau yang
lebih rendah; akan terkondisi berwarna "Merah"
Berikut lampiran filenya
Terimakasih sebelumnya!
Salam
HF #yiv4147164219 #yiv4147164219 -- #yiv4147164219ygrp-
Tue Oct 6, 2015 4:07 pm (PDT) . Posted by:
"Husnul Faizin" husnulfaizin
Terimakasih mas wendi, tetapi yang saya maksud pengkondisian kalimat teks atau hurufnya, mas..!
Pada Selasa, 6 Oktober 2015 21:38, "wendi surdinal syawal28@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
coba dengan versi ini pak huznul faizin
Pada Selasa, 6 Oktober 2015 17:12, "Husnul Faizin husnulfaizin@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamu'alaikum.
Yth. Master Be-Xcel
Mohon Bantuan para master Be-xcel pemberian warna font dengan CF atau script macro:
Solusi yang di inginkan:
1) Kalimat Nilai " Tujuh Puluh " atau sesuai KKM di cell "B5" dan yang lebih besar dari nilai KKM akan terkondisi berwarna "Biru"
2) Kalimat Nilai yang lebih rendah dari "Tujuh Puluh" misalkan kalimat yang dimulai dari kata "Enam puluh sembilan" atau yang
lebih rendah; akan terkondisi berwarna "Merah".
Berikut lampiran filenya
Terimakasih sebelumnya!
Salam
HF
#yiv7203465449 #yiv7203465449 -- #yiv7203465449ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7203465449 #yiv7203465449ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7203465449 #yiv7203465449ygrp-mkp #yiv7203465449hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7203465449 #yiv7203465449ygrp-mkp #yiv7203465449ads {margin-bottom:10px;}#yiv7203465449 #yiv7203465449ygrp-mkp .yiv7203465449ad {padding:0 0;}#yiv7203465449 #yiv7203465449ygrp-mkp .yiv7203465449ad p {margin:0;}#yiv7203465449 #yiv7203465449ygrp-mkp .yiv7203465449ad a {color:#0000ff;text-decoration:none;}#yiv7203465449 #yiv7203465449ygrp-sponsor #yiv7203465449ygrp-lc {font-family:Arial;}#yiv7203465449 #yiv7203465449ygrp-sponsor #yiv7203465449ygrp-lc #yiv7203465449hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7203465449 #yiv7203465449ygrp-sponsor #yiv7203465449ygrp-lc .yiv7203465449ad {margin-bottom:10px;padding:0 0;}#yiv7203465449 #yiv7203465449actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7203465449 #yiv7203465449activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7203465449 #yiv7203465449activity span {font-weight:700;}#yiv7203465449 #yiv7203465449activity span:first-child {text-transform:uppercase;}#yiv7203465449 #yiv7203465449activity span a {color:#5085b6;text-decoration:none;}#yiv7203465449 #yiv7203465449activity span span {color:#ff7900;}#yiv7203465449 #yiv7203465449activity span .yiv7203465449underline {text-decoration:underline;}#yiv7203465449 .yiv7203465449attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7203465449 .yiv7203465449attach div a {text-decoration:none;}#yiv7203465449 .yiv7203465449attach img {border:none;padding-right:5px;}#yiv7203465449 .yiv7203465449attach label {display:block;margin-bottom:5px;}#yiv7203465449 .yiv7203465449attach label a {text-decoration:none;}#yiv7203465449 blockquote {margin:0 0 0 4px;}#yiv7203465449 .yiv7203465449bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7203465449 .yiv7203465449bold a {text-decoration:none;}#yiv7203465449 dd.yiv7203465449last p a {font-family:Verdana;font-weight:700;}#yiv7203465449 dd.yiv7203465449last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7203465449 dd.yiv7203465449last p span.yiv7203465449yshortcuts {margin-right:0;}#yiv7203465449 div.yiv7203465449attach-table div div a {text-decoration:none;}#yiv7203465449 div.yiv7203465449attach-table {width:400px;}#yiv7203465449 div.yiv7203465449file-title a, #yiv7203465449 div.yiv7203465449file-title a:active, #yiv7203465449 div.yiv7203465449file-title a:hover, #yiv7203465449 div.yiv7203465449file-title a:visited {text-decoration:none;}#yiv7203465449 div.yiv7203465449photo-title a, #yiv7203465449 div.yiv7203465449photo-title a:active, #yiv7203465449 div.yiv7203465449photo-title a:hover, #yiv7203465449 div.yiv7203465449photo-title a:visited {text-decoration:none;}#yiv7203465449 div#yiv7203465449ygrp-mlmsg #yiv7203465449ygrp-msg p a span.yiv7203465449yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7203465449 .yiv7203465449green {color:#628c2a;}#yiv7203465449 .yiv7203465449MsoNormal {margin:0 0 0 0;}#yiv7203465449 o {font-size:0;}#yiv7203465449 #yiv7203465449photos div {float:left;width:72px;}#yiv7203465449 #yiv7203465449photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7203465449 #yiv7203465449photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7203465449 #yiv7203465449reco-category {font-size:77%;}#yiv7203465449 #yiv7203465449reco-desc {font-size:77%;}#yiv7203465449 .yiv7203465449replbq {margin:4px;}#yiv7203465449 #yiv7203465449ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7203465449 #yiv7203465449ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7203465449 #yiv7203465449ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7203465449 #yiv7203465449ygrp-mlmsg select, #yiv7203465449 input, #yiv7203465449 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7203465449 #yiv7203465449ygrp-mlmsg pre, #yiv7203465449 code {font:115% monospace;}#yiv7203465449 #yiv7203465449ygrp-mlmsg * {line-height:1.22em;}#yiv7203465449 #yiv7203465449ygrp-mlmsg #yiv7203465449logo {padding-bottom:10px;}#yiv7203465449 #yiv7203465449ygrp-msg p a {font-family:Verdana;}#yiv7203465449 #yiv7203465449ygrp-msg p#yiv7203465449attach-count span {color:#1E66AE;font-weight:700;}#yiv7203465449 #yiv7203465449ygrp-reco #yiv7203465449reco-head {color:#ff7900;font-weight:700;}#yiv7203465449 #yiv7203465449ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7203465449 #yiv7203465449ygrp-sponsor #yiv7203465449ov li a {font-size:130%;text-decoration:none;}#yiv7203465449 #yiv7203465449ygrp-sponsor #yiv7203465449ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7203465449 #yiv7203465449ygrp-sponsor #yiv7203465449ov ul {margin:0;padding:0 0 0 8px;}#yiv7203465449 #yiv7203465449ygrp-text {font-family:Georgia;}#yiv7203465449 #yiv7203465449ygrp-text p {margin:0 0 1em 0;}#yiv7203465449 #yiv7203465449ygrp-text tt {font-size:120%;}#yiv7203465449 #yiv7203465449ygrp-vital ul li:last-child {border-right:none !important;}#yiv7203465449
Pada Selasa, 6 Oktober 2015 21:38, "wendi surdinal syawal28@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
coba dengan versi ini pak huznul faizin
Pada Selasa, 6 Oktober 2015 17:12, "Husnul Faizin husnulfaizin@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamu'
Yth. Master Be-Xcel
Mohon Bantuan para master Be-xcel pemberian warna font dengan CF atau script macro:
Solusi yang di inginkan:
1) Kalimat Nilai " Tujuh Puluh " atau sesuai KKM di cell "B5" dan yang lebih besar dari nilai KKM akan terkondisi berwarna "Biru"
2) Kalimat Nilai yang lebih rendah dari "Tujuh Puluh" misalkan kalimat yang dimulai dari kata "Enam puluh sembilan" atau yang
lebih rendah; akan terkondisi berwarna "Merah"
Berikut lampiran filenya
Terimakasih sebelumnya!
Salam
HF
#yiv7203465449 #yiv7203465449 -- #yiv7203465449ygrp-
Tue Oct 6, 2015 3:13 am (PDT) . Posted by:
"Ivan Sebastian" layonardo
terima kasih atas bantuannya pak suyono...kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantu perbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebih banyak... thx.. data saya lampirkan...
Pada Selasa, 6 Oktober 2015 7:34, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Pagi Pak Ivan Coba ditambahin fungsi counta dan ditambah 8 sebagai colompertama pengisian data. Sub Rectangle6_Click() Range("h2:ae8").ClearContents Application.ScreenUpdating = False Dim lastRow As Long, i As Long, j As Long Dim jml As Integer lastRow = 597 j = 1 For x = 2 To 7 For i = 1 To lastRow If InStr(Sheets(2).Range("B" & i).Value,Cells(x, 2).Value) Then jml =Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8), Cells(x,31))) jml = jml + 8 Sheets(2).Cells(i, 3).CopyDestination:=Sheets(3).Cells(x, jml) j = j + 1 End If Next i Next x Application.ScreenUpdating = True End Sub Salam Yono From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya...[1 Attachment] hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuktombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaikisupaya jadi sempurna...file saya lampirkan... thx #yiv7782064680 #yiv7782064680 -- #yiv7782064680ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7782064680 #yiv7782064680ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7782064680 #yiv7782064680ygrp-mkp #yiv7782064680hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7782064680 #yiv7782064680ygrp-mkp #yiv7782064680ads {margin-bottom:10px;}#yiv7782064680 #yiv7782064680ygrp-mkp .yiv7782064680ad {padding:0 0;}#yiv7782064680 #yiv7782064680ygrp-mkp .yiv7782064680ad p {margin:0;}#yiv7782064680 #yiv7782064680ygrp-mkp .yiv7782064680ad a {color:#0000ff;text-decoration:none;}#yiv7782064680 #yiv7782064680ygrp-sponsor #yiv7782064680ygrp-lc {font-family:Arial;}#yiv7782064680 #yiv7782064680ygrp-sponsor #yiv7782064680ygrp-lc #yiv7782064680hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7782064680 #yiv7782064680ygrp-sponsor #yiv7782064680ygrp-lc .yiv7782064680ad {margin-bottom:10px;padding:0 0;}#yiv7782064680 #yiv7782064680actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7782064680 #yiv7782064680activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7782064680 #yiv7782064680activity span {font-weight:700;}#yiv7782064680 #yiv7782064680activity span:first-child {text-transform:uppercase;}#yiv7782064680 #yiv7782064680activity span a {color:#5085b6;text-decoration:none;}#yiv7782064680 #yiv7782064680activity span span {color:#ff7900;}#yiv7782064680 #yiv7782064680activity span .yiv7782064680underline {text-decoration:underline;}#yiv7782064680 .yiv7782064680attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7782064680 .yiv7782064680attach div a {text-decoration:none;}#yiv7782064680 .yiv7782064680attach img {border:none;padding-right:5px;}#yiv7782064680 .yiv7782064680attach label {display:block;margin-bottom:5px;}#yiv7782064680 .yiv7782064680attach label a {text-decoration:none;}#yiv7782064680 blockquote {margin:0 0 0 4px;}#yiv7782064680 .yiv7782064680bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7782064680 .yiv7782064680bold a {text-decoration:none;}#yiv7782064680 dd.yiv7782064680last p a {font-family:Verdana;font-weight:700;}#yiv7782064680 dd.yiv7782064680last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7782064680 dd.yiv7782064680last p span.yiv7782064680yshortcuts {margin-right:0;}#yiv7782064680 div.yiv7782064680attach-table div div a {text-decoration:none;}#yiv7782064680 div.yiv7782064680attach-table {width:400px;}#yiv7782064680 div.yiv7782064680file-title a, #yiv7782064680 div.yiv7782064680file-title a:active, #yiv7782064680 div.yiv7782064680file-title a:hover, #yiv7782064680 div.yiv7782064680file-title a:visited {text-decoration:none;}#yiv7782064680 div.yiv7782064680photo-title a, #yiv7782064680 div.yiv7782064680photo-title a:active, #yiv7782064680 div.yiv7782064680photo-title a:hover, #yiv7782064680 div.yiv7782064680photo-title a:visited {text-decoration:none;}#yiv7782064680 div#yiv7782064680ygrp-mlmsg #yiv7782064680ygrp-msg p a span.yiv7782064680yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7782064680 .yiv7782064680green {color:#628c2a;}#yiv7782064680 .yiv7782064680MsoNormal {margin:0 0 0 0;}#yiv7782064680 o {font-size:0;}#yiv7782064680 #yiv7782064680photos div {float:left;width:72px;}#yiv7782064680 #yiv7782064680photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7782064680 #yiv7782064680photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7782064680 #yiv7782064680reco-category {font-size:77%;}#yiv7782064680 #yiv7782064680reco-desc {font-size:77%;}#yiv7782064680 .yiv7782064680replbq {margin:4px;}#yiv7782064680 #yiv7782064680ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7782064680 #yiv7782064680ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7782064680 #yiv7782064680ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7782064680 #yiv7782064680ygrp-mlmsg select, #yiv7782064680 input, #yiv7782064680 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7782064680 #yiv7782064680ygrp-mlmsg pre, #yiv7782064680 code {font:115% monospace;}#yiv7782064680 #yiv7782064680ygrp-mlmsg * {line-height:1.22em;}#yiv7782064680 #yiv7782064680ygrp-mlmsg #yiv7782064680logo {padding-bottom:10px;}#yiv7782064680 #yiv7782064680ygrp-msg p a {font-family:Verdana;}#yiv7782064680 #yiv7782064680ygrp-msg p#yiv7782064680attach-count span {color:#1E66AE;font-weight:700;}#yiv7782064680 #yiv7782064680ygrp-reco #yiv7782064680reco-head {color:#ff7900;font-weight:700;}#yiv7782064680 #yiv7782064680ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7782064680 #yiv7782064680ygrp-sponsor #yiv7782064680ov li a {font-size:130%;text-decoration:none;}#yiv7782064680 #yiv7782064680ygrp-sponsor #yiv7782064680ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7782064680 #yiv7782064680ygrp-sponsor #yiv7782064680ov ul {margin:0;padding:0 0 0 8px;}#yiv7782064680 #yiv7782064680ygrp-text {font-family:Georgia;}#yiv7782064680 #yiv7782064680ygrp-text p {margin:0 0 1em 0;}#yiv7782064680 #yiv7782064680ygrp-text tt {font-size:120%;}#yiv7782064680 #yiv7782064680ygrp-vital ul li:last-child {border-right:none !important;}#yiv7782064680
Pada Selasa, 6 Oktober 2015 7:34, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Pagi Pak Ivan Coba ditambahin fungsi counta dan ditambah 8 sebagai colompertama pengisian data. Sub Rectangle6_Click() Range("h2:ae8").ClearContents Application.ScreenUpdating = False Dim lastRow As Long, i As Long, j As Long Dim jml As Integer lastRow = 597 j = 1 For x = 2 To 7 For i = 1 To lastRow If InStr(Sheets(2).Range("B" & i).Value,Cells(x, 2).Value) Then jml =Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8), Cells(x,31))) jml = jml + 8 Sheets(2).Cells(i, 3).CopyDestination:=Sheets(3).Cells(x, jml) j = j + 1 End If Next i Next x Application.ScreenUpdating = True End Sub Salam Yono From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya...[1 Attachment] hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuktombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaikisupaya jadi sempurna...file saya lampirkan... thx #yiv7782064680 #yiv7782064680 -- #yiv7782064680ygrp-
Tue Oct 6, 2015 4:28 am (PDT) . Posted by:
"SUYONO"
Coba diganti seperti ini pak, semoga sesuai keinginan.
Sub Rectangle7_Click()
Dim lastRow As Long, i As Long, j As Long
Dim idxrow As Integer
Dim jml As Integer
Dim item As String
Dim getVal As Integer
Range("I2:P473").ClearContents
lastRow = 597
For i = 1 To lastRow
item = Sheets("CETAK NOTA").Cells(i, 2).Value
If idxItem(item) > 1 Then
getVal = Sheets("CETAK NOTA").Cells(i, 3).Value
idxrow = idxItem(item)
jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow, 9), Cells(idxrow, 16)))
jml = jml + 9
Sheets("REKAP FULL").Cells(idxrow, jml).Value = getVal
End If
Next i
End Sub
'======================================
'fungsi untuk mencari indek item.
'======================================
Public Function idxItem(item As String) As Integer
On Error GoTo Err
idxItem = Application.WorksheetFunction.Match(item, Sheets("REKAP FULL").Columns("C:C"), 0)
Exit Function
Err:
idxItem = 0
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
terima kasih atas bantuannya pak suyono...
kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantu perbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebih banyak... thx.. data saya lampirkan...
Pada Selasa, 6 Oktober 2015 7:34, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Pagi Pak Ivan
Coba ditambahin fungsi counta dan ditambah 8 sebagai colom pertama pengisian data.
Sub Rectangle6_Click()
Range("h2:ae8").ClearContents
Application.ScreenUpdating = False
Dim lastRow As Long, i As Long, j As Long
Dim jml As Integer
lastRow = 597
j = 1
For x = 2 To 7
For i = 1 To lastRow
If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then
jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8), Cells(x, 31)))
jml = jml + 8
Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml)
j = j + 1
End If
Next i
Next x
Application.ScreenUpdating = True
End Sub
Salam
Yono
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuk tombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaiki supaya jadi sempurna...file saya lampirkan... thx
Sub Rectangle7_Click()
Dim lastRow As Long, i As Long, j As Long
Dim idxrow As Integer
Dim jml As Integer
Dim item As String
Dim getVal As Integer
Range("I2:P473").ClearContents
lastRow = 597
For i = 1 To lastRow
item = Sheets("CETAK NOTA").Cells(i, 2).Value
If idxItem(item) > 1 Then
getVal = Sheets("CETAK NOTA").Cells(i, 3).Value
idxrow = idxItem(item)
jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow, 9), Cells(idxrow, 16)))
jml = jml + 9
Sheets("REKAP FULL").Cells(idxrow, jml).Value = getVal
End If
Next i
End Sub
'======================================
'fungsi untuk mencari indek item.
'======================================
Public Function idxItem(item As String) As Integer
On Error GoTo Err
idxItem = Application.WorksheetFunction.Match(item, Sheets("REKAP FULL").Columns("C:C"), 0)
Exit Function
Err:
idxItem = 0
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
terima kasih atas bantuannya pak suyono...
kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantu perbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebih banyak... thx.. data saya lampirkan...
Pada Selasa, 6 Oktober 2015 7:34, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Pagi Pak Ivan
Coba ditambahin fungsi counta dan ditambah 8 sebagai colom pertama pengisian data.
Sub Rectangle6_Click()
Range("h2:ae8").ClearContents
Application.ScreenUpdating = False
Dim lastRow As Long, i As Long, j As Long
Dim jml As Integer
lastRow = 597
j = 1
For x = 2 To 7
For i = 1 To lastRow
If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then
jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8), Cells(x, 31)))
jml = jml + 8
Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml)
j = j + 1
End If
Next i
Next x
Application.ScreenUpdating = True
End Sub
Salam
Yono
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuk tombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaiki supaya jadi sempurna...file saya lampirkan... thx
Tue Oct 6, 2015 4:49 am (PDT) . Posted by:
"Ivan Sebastian" layonardo
sudah saya coba hasilnya... sub or function not defined... kayaknya ada yg salah nih..
Pada Selasa, 6 Oktober 2015 18:28, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Coba diganti seperti ini pak, semoga sesuai keinginan. Sub Rectangle7_Click() Dim lastRow As Long, i As Long, j As Long Dim idxrow As Integer Dim jml As Integer Dim item As String Dim getVal As Integer Range("I2:P473").ClearContents lastRow = 597 For i = 1 To lastRow item = Sheets("CETAK NOTA").Cells(i, 2).Value If idxItem(item) > 1 Then getVal = Sheets("CETAK NOTA").Cells(i,3).Value idxrow = idxItem(item) jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow,9), Cells(idxrow, 16))) jml = jml + 9 Sheets("REKAP FULL").Cells(idxrow, jml).Value= getVal End If Next i End Sub '====================================== 'fungsi untuk mencari indek item. '====================================== Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makrovbanya... [1 Attachment] terima kasih atas bantuannya pak suyono... kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantuperbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebihbanyak... thx.. data saya lampirkan... Pada Selasa, 6 Oktober 2015 7:34,"SUYONO reza.suyono@lge.com [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Pagi Pak Ivan Coba ditambahin fungsi counta danditambah 8 sebagai colom pertama pengisian data. Sub Rectangle6_Click() Range("h2:ae8").ClearContents Application.ScreenUpdating = False Dim lastRow As Long, i As Long, j AsLong Dim jml As Integer lastRow = 597 j = 1 For x = 2 To 7 For i = 1 To lastRow If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8),Cells(x, 31))) jml = jml + 8 Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml) j = j + 1 End If Next i Next x Application.ScreenUpdating = True End Sub Salam Yono From: belajar-excel@yahoogroups.com[mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya...[1 Attachment] hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuktombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaikisupaya jadi sempurna...file saya lampirkan... thx #yiv7393016130 #yiv7393016130 -- #yiv7393016130ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7393016130 #yiv7393016130ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7393016130 #yiv7393016130ygrp-mkp #yiv7393016130hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7393016130 #yiv7393016130ygrp-mkp #yiv7393016130ads {margin-bottom:10px;}#yiv7393016130 #yiv7393016130ygrp-mkp .yiv7393016130ad {padding:0 0;}#yiv7393016130 #yiv7393016130ygrp-mkp .yiv7393016130ad p {margin:0;}#yiv7393016130 #yiv7393016130ygrp-mkp .yiv7393016130ad a {color:#0000ff;text-decoration:none;}#yiv7393016130 #yiv7393016130ygrp-sponsor #yiv7393016130ygrp-lc {font-family:Arial;}#yiv7393016130 #yiv7393016130ygrp-sponsor #yiv7393016130ygrp-lc #yiv7393016130hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7393016130 #yiv7393016130ygrp-sponsor #yiv7393016130ygrp-lc .yiv7393016130ad {margin-bottom:10px;padding:0 0;}#yiv7393016130 #yiv7393016130actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7393016130 #yiv7393016130activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7393016130 #yiv7393016130activity span {font-weight:700;}#yiv7393016130 #yiv7393016130activity span:first-child {text-transform:uppercase;}#yiv7393016130 #yiv7393016130activity span a {color:#5085b6;text-decoration:none;}#yiv7393016130 #yiv7393016130activity span span {color:#ff7900;}#yiv7393016130 #yiv7393016130activity span .yiv7393016130underline {text-decoration:underline;}#yiv7393016130 .yiv7393016130attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7393016130 .yiv7393016130attach div a {text-decoration:none;}#yiv7393016130 .yiv7393016130attach img {border:none;padding-right:5px;}#yiv7393016130 .yiv7393016130attach label {display:block;margin-bottom:5px;}#yiv7393016130 .yiv7393016130attach label a {text-decoration:none;}#yiv7393016130 blockquote {margin:0 0 0 4px;}#yiv7393016130 .yiv7393016130bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7393016130 .yiv7393016130bold a {text-decoration:none;}#yiv7393016130 dd.yiv7393016130last p a {font-family:Verdana;font-weight:700;}#yiv7393016130 dd.yiv7393016130last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7393016130 dd.yiv7393016130last p span.yiv7393016130yshortcuts {margin-right:0;}#yiv7393016130 div.yiv7393016130attach-table div div a {text-decoration:none;}#yiv7393016130 div.yiv7393016130attach-table {width:400px;}#yiv7393016130 div.yiv7393016130file-title a, #yiv7393016130 div.yiv7393016130file-title a:active, #yiv7393016130 div.yiv7393016130file-title a:hover, #yiv7393016130 div.yiv7393016130file-title a:visited {text-decoration:none;}#yiv7393016130 div.yiv7393016130photo-title a, #yiv7393016130 div.yiv7393016130photo-title a:active, #yiv7393016130 div.yiv7393016130photo-title a:hover, #yiv7393016130 div.yiv7393016130photo-title a:visited {text-decoration:none;}#yiv7393016130 div#yiv7393016130ygrp-mlmsg #yiv7393016130ygrp-msg p a span.yiv7393016130yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7393016130 .yiv7393016130green {color:#628c2a;}#yiv7393016130 .yiv7393016130MsoNormal {margin:0 0 0 0;}#yiv7393016130 o {font-size:0;}#yiv7393016130 #yiv7393016130photos div {float:left;width:72px;}#yiv7393016130 #yiv7393016130photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7393016130 #yiv7393016130photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7393016130 #yiv7393016130reco-category {font-size:77%;}#yiv7393016130 #yiv7393016130reco-desc {font-size:77%;}#yiv7393016130 .yiv7393016130replbq {margin:4px;}#yiv7393016130 #yiv7393016130ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7393016130 #yiv7393016130ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7393016130 #yiv7393016130ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7393016130 #yiv7393016130ygrp-mlmsg select, #yiv7393016130 input, #yiv7393016130 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7393016130 #yiv7393016130ygrp-mlmsg pre, #yiv7393016130 code {font:115% monospace;}#yiv7393016130 #yiv7393016130ygrp-mlmsg * {line-height:1.22em;}#yiv7393016130 #yiv7393016130ygrp-mlmsg #yiv7393016130logo {padding-bottom:10px;}#yiv7393016130 #yiv7393016130ygrp-msg p a {font-family:Verdana;}#yiv7393016130 #yiv7393016130ygrp-msg p#yiv7393016130attach-count span {color:#1E66AE;font-weight:700;}#yiv7393016130 #yiv7393016130ygrp-reco #yiv7393016130reco-head {color:#ff7900;font-weight:700;}#yiv7393016130 #yiv7393016130ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7393016130 #yiv7393016130ygrp-sponsor #yiv7393016130ov li a {font-size:130%;text-decoration:none;}#yiv7393016130 #yiv7393016130ygrp-sponsor #yiv7393016130ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7393016130 #yiv7393016130ygrp-sponsor #yiv7393016130ov ul {margin:0;padding:0 0 0 8px;}#yiv7393016130 #yiv7393016130ygrp-text {font-family:Georgia;}#yiv7393016130 #yiv7393016130ygrp-text p {margin:0 0 1em 0;}#yiv7393016130 #yiv7393016130ygrp-text tt {font-size:120%;}#yiv7393016130 #yiv7393016130ygrp-vital ul li:last-child {border-right:none !important;}#yiv7393016130
Pada Selasa, 6 Oktober 2015 18:28, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Coba diganti seperti ini pak, semoga sesuai keinginan. Sub Rectangle7_Click() Dim lastRow As Long, i As Long, j As Long Dim idxrow As Integer Dim jml As Integer Dim item As String Dim getVal As Integer Range("I2:P473").ClearContents lastRow = 597 For i = 1 To lastRow item = Sheets("CETAK NOTA").Cells(i, 2).Value If idxItem(item) > 1 Then getVal = Sheets("CETAK NOTA").Cells(i,3).Value idxrow = idxItem(item) jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow,9), Cells(idxrow, 16))) jml = jml + 9 Sheets("REKAP FULL").Cells(idxrow, jml).Value= getVal End If Next i End Sub '====================================== 'fungsi untuk mencari indek item. '====================================== Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makrovbanya... [1 Attachment] terima kasih atas bantuannya pak suyono... kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantuperbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebihbanyak... thx.. data saya lampirkan... Pada Selasa, 6 Oktober 2015 7:34,"SUYONO reza.suyono@lge.com [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Pagi Pak Ivan Coba ditambahin fungsi counta danditambah 8 sebagai colom pertama pengisian data. Sub Rectangle6_Click() Range("h2:ae8").ClearContents Application.ScreenUpdating = False Dim lastRow As Long, i As Long, j AsLong Dim jml As Integer lastRow = 597 j = 1 For x = 2 To 7 For i = 1 To lastRow If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8),Cells(x, 31))) jml = jml + 8 Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml) j = j + 1 End If Next i Next x Application.ScreenUpdating = True End Sub Salam Yono From: belajar-excel@yahoogroups.com[mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya...[1 Attachment] hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuktombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaikisupaya jadi sempurna...file saya lampirkan... thx #yiv7393016130 #yiv7393016130 -- #yiv7393016130ygrp-
Tue Oct 6, 2015 5:08 am (PDT) . Posted by:
"Ivan Sebastian" layonardo
ups ternyata saya yg salah pak suyono... terima kasih bantuannya... cocok sesuai yg saya harapkan...
rumus yg ini lupa saya copy...pantes aja hasilnya error... hahaha.. makasih pak.. top rumusnya..
Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function
Pada Selasa, 6 Oktober 2015 18:45, Ivan Sebastian <layonardo@yahoo.co.id> menulis:
sudah saya coba hasilnya... sub or function not defined... kayaknya ada yg salah nih..
Pada Selasa, 6 Oktober 2015 18:28, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Coba diganti seperti ini pak, semoga sesuai keinginan. Sub Rectangle7_Click() Dim lastRow As Long, i As Long, j As Long Dim idxrow As Integer Dim jml As Integer Dim item As String Dim getVal As Integer Range("I2:P473").ClearContents lastRow = 597 For i = 1 To lastRow item = Sheets("CETAK NOTA").Cells(i, 2).Value If idxItem(item) > 1 Then getVal = Sheets("CETAK NOTA").Cells(i,3).Value idxrow = idxItem(item) jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow,9), Cells(idxrow, 16))) jml = jml + 9 Sheets("REKAP FULL").Cells(idxrow, jml).Value= getVal End If Next i End Sub '====================================== 'fungsi untuk mencari indek item. '====================================== Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makrovbanya... [1 Attachment] terima kasih atas bantuannya pak suyono... kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantuperbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebihbanyak... thx.. data saya lampirkan... Pada Selasa, 6 Oktober 2015 7:34,"SUYONO reza.suyono@lge.com [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Pagi Pak Ivan Coba ditambahin fungsi counta danditambah 8 sebagai colom pertama pengisian data. Sub Rectangle6_Click() Range("h2:ae8").ClearContents Application.ScreenUpdating = False Dim lastRow As Long, i As Long, j AsLong Dim jml As Integer lastRow = 597 j = 1 For x = 2 To 7 For i = 1 To lastRow If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8),Cells(x, 31))) jml = jml + 8 Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml) j = j + 1 End If Next i Next x Application.ScreenUpdating = True End Sub Salam Yono From: belajar-excel@yahoogroups.com[mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya...[1 Attachment] hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuktombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaikisupaya jadi sempurna...file saya lampirkan... thx #yiv9622847210 -- #yiv9622847210ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9622847210 #yiv9622847210ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9622847210 #yiv9622847210ygrp-mkp #yiv9622847210hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9622847210 #yiv9622847210ygrp-mkp #yiv9622847210ads {margin-bottom:10px;}#yiv9622847210 #yiv9622847210ygrp-mkp .yiv9622847210ad {padding:0 0;}#yiv9622847210 #yiv9622847210ygrp-mkp .yiv9622847210ad p {margin:0;}#yiv9622847210 #yiv9622847210ygrp-mkp .yiv9622847210ad a {color:#0000ff;text-decoration:none;}#yiv9622847210 #yiv9622847210ygrp-sponsor #yiv9622847210ygrp-lc {font-family:Arial;}#yiv9622847210 #yiv9622847210ygrp-sponsor #yiv9622847210ygrp-lc #yiv9622847210hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9622847210 #yiv9622847210ygrp-sponsor #yiv9622847210ygrp-lc .yiv9622847210ad {margin-bottom:10px;padding:0 0;}#yiv9622847210 #yiv9622847210actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9622847210 #yiv9622847210activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9622847210 #yiv9622847210activity span {font-weight:700;}#yiv9622847210 #yiv9622847210activity span:first-child {text-transform:uppercase;}#yiv9622847210 #yiv9622847210activity span a {color:#5085b6;text-decoration:none;}#yiv9622847210 #yiv9622847210activity span span {color:#ff7900;}#yiv9622847210 #yiv9622847210activity span .yiv9622847210underline {text-decoration:underline;}#yiv9622847210 .yiv9622847210attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9622847210 .yiv9622847210attach div a {text-decoration:none;}#yiv9622847210 .yiv9622847210attach img {border:none;padding-right:5px;}#yiv9622847210 .yiv9622847210attach label {display:block;margin-bottom:5px;}#yiv9622847210 .yiv9622847210attach label a {text-decoration:none;}#yiv9622847210 blockquote {margin:0 0 0 4px;}#yiv9622847210 .yiv9622847210bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9622847210 .yiv9622847210bold a {text-decoration:none;}#yiv9622847210 dd.yiv9622847210last p a {font-family:Verdana;font-weight:700;}#yiv9622847210 dd.yiv9622847210last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9622847210 dd.yiv9622847210last p span.yiv9622847210yshortcuts {margin-right:0;}#yiv9622847210 div.yiv9622847210attach-table div div a {text-decoration:none;}#yiv9622847210 div.yiv9622847210attach-table {width:400px;}#yiv9622847210 div.yiv9622847210file-title a, #yiv9622847210 div.yiv9622847210file-title a:active, #yiv9622847210 div.yiv9622847210file-title a:hover, #yiv9622847210 div.yiv9622847210file-title a:visited {text-decoration:none;}#yiv9622847210 div.yiv9622847210photo-title a, #yiv9622847210 div.yiv9622847210photo-title a:active, #yiv9622847210 div.yiv9622847210photo-title a:hover, #yiv9622847210 div.yiv9622847210photo-title a:visited {text-decoration:none;}#yiv9622847210 div#yiv9622847210ygrp-mlmsg #yiv9622847210ygrp-msg p a span.yiv9622847210yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9622847210 .yiv9622847210green {color:#628c2a;}#yiv9622847210 .yiv9622847210MsoNormal {margin:0 0 0 0;}#yiv9622847210 o {font-size:0;}#yiv9622847210 #yiv9622847210photos div {float:left;width:72px;}#yiv9622847210 #yiv9622847210photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9622847210 #yiv9622847210photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9622847210 #yiv9622847210reco-category {font-size:77%;}#yiv9622847210 #yiv9622847210reco-desc {font-size:77%;}#yiv9622847210 .yiv9622847210replbq {margin:4px;}#yiv9622847210 #yiv9622847210ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9622847210 #yiv9622847210ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9622847210 #yiv9622847210ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9622847210 #yiv9622847210ygrp-mlmsg select, #yiv9622847210 input, #yiv9622847210 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9622847210 #yiv9622847210ygrp-mlmsg pre, #yiv9622847210 code {font:115% monospace;}#yiv9622847210 #yiv9622847210ygrp-mlmsg * {line-height:1.22em;}#yiv9622847210 #yiv9622847210ygrp-mlmsg #yiv9622847210logo {padding-bottom:10px;}#yiv9622847210 #yiv9622847210ygrp-msg p a {font-family:Verdana;}#yiv9622847210 #yiv9622847210ygrp-msg p#yiv9622847210attach-count span {color:#1E66AE;font-weight:700;}#yiv9622847210 #yiv9622847210ygrp-reco #yiv9622847210reco-head {color:#ff7900;font-weight:700;}#yiv9622847210 #yiv9622847210ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9622847210 #yiv9622847210ygrp-sponsor #yiv9622847210ov li a {font-size:130%;text-decoration:none;}#yiv9622847210 #yiv9622847210ygrp-sponsor #yiv9622847210ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9622847210 #yiv9622847210ygrp-sponsor #yiv9622847210ov ul {margin:0;padding:0 0 0 8px;}#yiv9622847210 #yiv9622847210ygrp-text {font-family:Georgia;}#yiv9622847210 #yiv9622847210ygrp-text p {margin:0 0 1em 0;}#yiv9622847210 #yiv9622847210ygrp-text tt {font-size:120%;}#yiv9622847210 #yiv9622847210ygrp-vital ul li:last-child {border-right:none !important;}#yiv9622847210
rumus yg ini lupa saya copy...pantes aja hasilnya error... hahaha.. makasih pak.. top rumusnya..
Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function
Pada Selasa, 6 Oktober 2015 18:45, Ivan Sebastian <layonardo@yahoo.co.id> menulis:
sudah saya coba hasilnya... sub or function not defined... kayaknya ada yg salah nih..
Pada Selasa, 6 Oktober 2015 18:28, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Coba diganti seperti ini pak, semoga sesuai keinginan. Sub Rectangle7_Click() Dim lastRow As Long, i As Long, j As Long Dim idxrow As Integer Dim jml As Integer Dim item As String Dim getVal As Integer Range("I2:P473").ClearContents lastRow = 597 For i = 1 To lastRow item = Sheets("CETAK NOTA").Cells(i, 2).Value If idxItem(item) > 1 Then getVal = Sheets("CETAK NOTA").Cells(i,3).Value idxrow = idxItem(item) jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow,9), Cells(idxrow, 16))) jml = jml + 9 Sheets("REKAP FULL").Cells(idxrow, jml).Value= getVal End If Next i End Sub '====================================== 'fungsi untuk mencari indek item. '====================================== Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makrovbanya... [1 Attachment] terima kasih atas bantuannya pak suyono... kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantuperbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebihbanyak... thx.. data saya lampirkan... Pada Selasa, 6 Oktober 2015 7:34,"SUYONO reza.suyono@lge.com [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Pagi Pak Ivan Coba ditambahin fungsi counta danditambah 8 sebagai colom pertama pengisian data. Sub Rectangle6_Click() Range("h2:ae8").ClearContents Application.ScreenUpdating = False Dim lastRow As Long, i As Long, j AsLong Dim jml As Integer lastRow = 597 j = 1 For x = 2 To 7 For i = 1 To lastRow If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8),Cells(x, 31))) jml = jml + 8 Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml) j = j + 1 End If Next i Next x Application.ScreenUpdating = True End Sub Salam Yono From: belajar-excel@yahoogroups.com[mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya...[1 Attachment] hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuktombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaikisupaya jadi sempurna...file saya lampirkan... thx #yiv9622847210 -- #yiv9622847210ygrp-
Tue Oct 6, 2015 10:22 am (PDT) . Posted by:
"Ivan Sebastian" layonardo
pak ada yg mau saya tanyakan lagi nih...detailnya saya tulis difilenya... mohon bantuannya lagi... thx..
Pada Selasa, 6 Oktober 2015 19:08, "Ivan Sebastian layonardo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
ups ternyata saya yg salah pak suyono... terima kasih bantuannya... cocok sesuai yg saya harapkan...
rumus yg ini lupa saya copy...pantes aja hasilnya error... hahaha.. makasih pak.. top rumusnya..
Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function
Pada Selasa, 6 Oktober 2015 18:45, Ivan Sebastian <layonardo@yahoo.co.id> menulis:
sudah saya coba hasilnya... sub or function not defined... kayaknya ada yg salah nih..
Pada Selasa, 6 Oktober 2015 18:28, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Coba diganti seperti ini pak, semoga sesuai keinginan. Sub Rectangle7_Click() Dim lastRow As Long, i As Long, j As Long Dim idxrow As Integer Dim jml As Integer Dim item As String Dim getVal As Integer Range("I2:P473").ClearContents lastRow = 597 For i = 1 To lastRow item = Sheets("CETAK NOTA").Cells(i, 2).Value If idxItem(item) > 1 Then getVal = Sheets("CETAK NOTA").Cells(i,3).Value idxrow = idxItem(item) jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow,9), Cells(idxrow, 16))) jml = jml + 9 Sheets("REKAP FULL").Cells(idxrow, jml).Value= getVal End If Next i End Sub '====================================== 'fungsi untuk mencari indek item. '====================================== Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makrovbanya... [1 Attachment] terima kasih atas bantuannya pak suyono... kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantuperbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebihbanyak... thx.. data saya lampirkan... Pada Selasa, 6 Oktober 2015 7:34,"SUYONO reza.suyono@lge.com [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Pagi Pak Ivan Coba ditambahin fungsi counta danditambah 8 sebagai colom pertama pengisian data. Sub Rectangle6_Click() Range("h2:ae8").ClearContents Application.ScreenUpdating = False Dim lastRow As Long, i As Long, j AsLong Dim jml As Integer lastRow = 597 j = 1 For x = 2 To 7 For i = 1 To lastRow If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8),Cells(x, 31))) jml = jml + 8 Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml) j = j + 1 End If Next i Next x Application.ScreenUpdating = True End Sub Salam Yono From: belajar-excel@yahoogroups.com[mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya...[1 Attachment] hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuktombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaikisupaya jadi sempurna...file saya lampirkan... thx
#yiv0888023191 #yiv0888023191 -- #yiv0888023191ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0888023191 #yiv0888023191ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0888023191 #yiv0888023191ygrp-mkp #yiv0888023191hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0888023191 #yiv0888023191ygrp-mkp #yiv0888023191ads {margin-bottom:10px;}#yiv0888023191 #yiv0888023191ygrp-mkp .yiv0888023191ad {padding:0 0;}#yiv0888023191 #yiv0888023191ygrp-mkp .yiv0888023191ad p {margin:0;}#yiv0888023191 #yiv0888023191ygrp-mkp .yiv0888023191ad a {color:#0000ff;text-decoration:none;}#yiv0888023191 #yiv0888023191ygrp-sponsor #yiv0888023191ygrp-lc {font-family:Arial;}#yiv0888023191 #yiv0888023191ygrp-sponsor #yiv0888023191ygrp-lc #yiv0888023191hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0888023191 #yiv0888023191ygrp-sponsor #yiv0888023191ygrp-lc .yiv0888023191ad {margin-bottom:10px;padding:0 0;}#yiv0888023191 #yiv0888023191actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0888023191 #yiv0888023191activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0888023191 #yiv0888023191activity span {font-weight:700;}#yiv0888023191 #yiv0888023191activity span:first-child {text-transform:uppercase;}#yiv0888023191 #yiv0888023191activity span a {color:#5085b6;text-decoration:none;}#yiv0888023191 #yiv0888023191activity span span {color:#ff7900;}#yiv0888023191 #yiv0888023191activity span .yiv0888023191underline {text-decoration:underline;}#yiv0888023191 .yiv0888023191attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0888023191 .yiv0888023191attach div a {text-decoration:none;}#yiv0888023191 .yiv0888023191attach img {border:none;padding-right:5px;}#yiv0888023191 .yiv0888023191attach label {display:block;margin-bottom:5px;}#yiv0888023191 .yiv0888023191attach label a {text-decoration:none;}#yiv0888023191 blockquote {margin:0 0 0 4px;}#yiv0888023191 .yiv0888023191bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0888023191 .yiv0888023191bold a {text-decoration:none;}#yiv0888023191 dd.yiv0888023191last p a {font-family:Verdana;font-weight:700;}#yiv0888023191 dd.yiv0888023191last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0888023191 dd.yiv0888023191last p span.yiv0888023191yshortcuts {margin-right:0;}#yiv0888023191 div.yiv0888023191attach-table div div a {text-decoration:none;}#yiv0888023191 div.yiv0888023191attach-table {width:400px;}#yiv0888023191 div.yiv0888023191file-title a, #yiv0888023191 div.yiv0888023191file-title a:active, #yiv0888023191 div.yiv0888023191file-title a:hover, #yiv0888023191 div.yiv0888023191file-title a:visited {text-decoration:none;}#yiv0888023191 div.yiv0888023191photo-title a, #yiv0888023191 div.yiv0888023191photo-title a:active, #yiv0888023191 div.yiv0888023191photo-title a:hover, #yiv0888023191 div.yiv0888023191photo-title a:visited {text-decoration:none;}#yiv0888023191 div#yiv0888023191ygrp-mlmsg #yiv0888023191ygrp-msg p a span.yiv0888023191yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0888023191 .yiv0888023191green {color:#628c2a;}#yiv0888023191 .yiv0888023191MsoNormal {margin:0 0 0 0;}#yiv0888023191 o {font-size:0;}#yiv0888023191 #yiv0888023191photos div {float:left;width:72px;}#yiv0888023191 #yiv0888023191photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0888023191 #yiv0888023191photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0888023191 #yiv0888023191reco-category {font-size:77%;}#yiv0888023191 #yiv0888023191reco-desc {font-size:77%;}#yiv0888023191 .yiv0888023191replbq {margin:4px;}#yiv0888023191 #yiv0888023191ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0888023191 #yiv0888023191ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0888023191 #yiv0888023191ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0888023191 #yiv0888023191ygrp-mlmsg select, #yiv0888023191 input, #yiv0888023191 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0888023191 #yiv0888023191ygrp-mlmsg pre, #yiv0888023191 code {font:115% monospace;}#yiv0888023191 #yiv0888023191ygrp-mlmsg * {line-height:1.22em;}#yiv0888023191 #yiv0888023191ygrp-mlmsg #yiv0888023191logo {padding-bottom:10px;}#yiv0888023191 #yiv0888023191ygrp-msg p a {font-family:Verdana;}#yiv0888023191 #yiv0888023191ygrp-msg p#yiv0888023191attach-count span {color:#1E66AE;font-weight:700;}#yiv0888023191 #yiv0888023191ygrp-reco #yiv0888023191reco-head {color:#ff7900;font-weight:700;}#yiv0888023191 #yiv0888023191ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0888023191 #yiv0888023191ygrp-sponsor #yiv0888023191ov li a {font-size:130%;text-decoration:none;}#yiv0888023191 #yiv0888023191ygrp-sponsor #yiv0888023191ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0888023191 #yiv0888023191ygrp-sponsor #yiv0888023191ov ul {margin:0;padding:0 0 0 8px;}#yiv0888023191 #yiv0888023191ygrp-text {font-family:Georgia;}#yiv0888023191 #yiv0888023191ygrp-text p {margin:0 0 1em 0;}#yiv0888023191 #yiv0888023191ygrp-text tt {font-size:120%;}#yiv0888023191 #yiv0888023191ygrp-vital ul li:last-child {border-right:none !important;}#yiv0888023191
Pada Selasa, 6 Oktober 2015 19:08, "Ivan Sebastian layonardo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
ups ternyata saya yg salah pak suyono... terima kasih bantuannya... cocok sesuai yg saya harapkan...
rumus yg ini lupa saya copy...pantes aja hasilnya error... hahaha.. makasih pak.. top rumusnya..
Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function
Pada Selasa, 6 Oktober 2015 18:45, Ivan Sebastian <layonardo@yahoo.co.id> menulis:
sudah saya coba hasilnya... sub or function not defined... kayaknya ada yg salah nih..
Pada Selasa, 6 Oktober 2015 18:28, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Coba diganti seperti ini pak, semoga sesuai keinginan. Sub Rectangle7_Click() Dim lastRow As Long, i As Long, j As Long Dim idxrow As Integer Dim jml As Integer Dim item As String Dim getVal As Integer Range("I2:P473").ClearContents lastRow = 597 For i = 1 To lastRow item = Sheets("CETAK NOTA").Cells(i, 2).Value If idxItem(item) > 1 Then getVal = Sheets("CETAK NOTA").Cells(i,3).Value idxrow = idxItem(item) jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow,9), Cells(idxrow, 16))) jml = jml + 9 Sheets("REKAP FULL").Cells(idxrow, jml).Value= getVal End If Next i End Sub '====================================== 'fungsi untuk mencari indek item. '====================================== Public Function idxItem(item As String) As Integer On Error GoTo Err idxItem = Application.WorksheetFunction.Match(item,Sheets("REKAP FULL").Columns("C:C"), 0) Exit Function Err: idxItem = 0 End Function From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makrovbanya... [1 Attachment] terima kasih atas bantuannya pak suyono... kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantuperbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebihbanyak... thx.. data saya lampirkan... Pada Selasa, 6 Oktober 2015 7:34,"SUYONO reza.suyono@lge.com [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Pagi Pak Ivan Coba ditambahin fungsi counta danditambah 8 sebagai colom pertama pengisian data. Sub Rectangle6_Click() Range("h2:ae8").ClearContents Application.ScreenUpdating = False Dim lastRow As Long, i As Long, j AsLong Dim jml As Integer lastRow = 597 j = 1 For x = 2 To 7 For i = 1 To lastRow If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8),Cells(x, 31))) jml = jml + 8 Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml) j = j + 1 End If Next i Next x Application.ScreenUpdating = True End Sub Salam Yono From: belajar-excel@yahoogroups.com[mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya...[1 Attachment] hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuktombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaikisupaya jadi sempurna...file saya lampirkan... thx
#yiv0888023191 #yiv0888023191 -- #yiv0888023191ygrp-
Tue Oct 6, 2015 6:23 pm (PDT) . Posted by:
"SUYONO"
Hehe.., coba seperti ini.
Sub Rectangle7_Click()
Dim lastRow As Long, i As Long, j As Long
Dim idxrow As Integer
Dim jml As Integer
Dim item As String
Dim getVal As Integer
Dim satuan As String
Range("I2:P473").ClearContents
lastRow = 597
For i = 1 To lastRow
item = Sheets("CETAK NOTA").Cells(i, 2).Value
satuan = Sheets("CETAK NOTA").Cells(i, 4).Value
If idxItem(item) > 1 Then
getVal = Sheets("CETAK NOTA").Cells(i, 3).Value
idxrow = idxItem(item)
jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow, 9), Cells(idxrow, 16)))
jml = jml + 9
Sheets("REKAP FULL").Cells(idxrow, jml).Value = getVal
Call Warna_Satuan(satuan, Sheets("REKAP FULL").Cells(idxrow, jml))
End If
Next i
End Sub
Sub Warna_Satuan(satuan As String, rng As Range)
With rng.Font
Select Case satuan
Case "pcs"
.Color = -16776961
.TintAndShade = 0
Case "DOS"
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
'jika ada satuan lain bisa ditambahkan disini.
End Select
End With
End Sub
Public Function idxItem(item As String) As Integer
On Error GoTo Err
idxItem = Application.WorksheetFunction.Match(item, Sheets("REKAP FULL").Columns("C:C"), 0)
Exit Function
Err:
idxItem = 0
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 9:55 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
pak ada yg mau saya tanyakan lagi nih...
detailnya saya tulis difilenya... mohon bantuannya lagi... thx..
Pada Selasa, 6 Oktober 2015 19:08, "Ivan Sebastian layonardo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
ups ternyata saya yg salah pak suyono... terima kasih bantuannya... cocok sesuai yg saya harapkan...
rumus yg ini lupa saya copy...pantes aja hasilnya error... hahaha.. makasih pak.. top rumusnya..
Public Function idxItem(item As String) As Integer
On Error GoTo Err
idxItem = Application.WorksheetFunction.Match(item, Sheets("REKAP FULL").Columns("C:C"), 0)
Exit Function
Err:
idxItem = 0
End Function
Pada Selasa, 6 Oktober 2015 18:45, Ivan Sebastian <layonardo@yahoo.co.id> menulis:
sudah saya coba hasilnya... sub or function not defined... kayaknya ada yg salah nih..
Pada Selasa, 6 Oktober 2015 18:28, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Coba diganti seperti ini pak, semoga sesuai keinginan.
Sub Rectangle7_Click()
Dim lastRow As Long, i As Long, j As Long
Dim idxrow As Integer
Dim jml As Integer
Dim item As String
Dim getVal As Integer
Range("I2:P473").ClearContents
lastRow = 597
For i = 1 To lastRow
item = Sheets("CETAK NOTA").Cells(i, 2).Value
If idxItem(item) > 1 Then
getVal = Sheets("CETAK NOTA").Cells(i, 3).Value
idxrow = idxItem(item)
jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow, 9), Cells(idxrow, 16)))
jml = jml + 9
Sheets("REKAP FULL").Cells(idxrow, jml).Value = getVal
End If
Next i
End Sub
'======================================
'fungsi untuk mencari indek item.
'======================================
Public Function idxItem(item As String) As Integer
On Error GoTo Err
idxItem = Application.WorksheetFunction.Match(item, Sheets("REKAP FULL").Columns("C:C"), 0)
Exit Function
Err:
idxItem = 0
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
terima kasih atas bantuannya pak suyono...
kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantu perbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebih banyak... thx.. data saya lampirkan...
Pada Selasa, 6 Oktober 2015 7:34, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Pagi Pak Ivan
Coba ditambahin fungsi counta dan ditambah 8 sebagai colom pertama pengisian data.
Sub Rectangle6_Click()
Range("h2:ae8").ClearContents
Application.ScreenUpdating = False
Dim lastRow As Long, i As Long, j As Long
Dim jml As Integer
lastRow = 597
j = 1
For x = 2 To 7
For i = 1 To lastRow
If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then
jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8), Cells(x, 31)))
jml = jml + 8
Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml)
j = j + 1
End If
Next i
Next x
Application.ScreenUpdating = True
End Sub
Salam
Yono
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuk tombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaiki supaya jadi sempurna...file saya lampirkan... thx
Sub Rectangle7_Click()
Dim lastRow As Long, i As Long, j As Long
Dim idxrow As Integer
Dim jml As Integer
Dim item As String
Dim getVal As Integer
Dim satuan As String
Range("I2:P473").ClearContents
lastRow = 597
For i = 1 To lastRow
item = Sheets("CETAK NOTA").Cells(i, 2).Value
satuan = Sheets("CETAK NOTA").Cells(i, 4).Value
If idxItem(item) > 1 Then
getVal = Sheets("CETAK NOTA").Cells(i, 3).Value
idxrow = idxItem(item)
jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow, 9), Cells(idxrow, 16)))
jml = jml + 9
Sheets("REKAP FULL").Cells(idxrow, jml).Value = getVal
Call Warna_Satuan(satuan, Sheets("REKAP FULL").Cells(idxrow, jml))
End If
Next i
End Sub
Sub Warna_Satuan(satuan As String, rng As Range)
With rng.Font
Select Case satuan
Case "pcs"
.Color = -16776961
.TintAndShade = 0
Case "DOS"
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
'jika ada satuan lain bisa ditambahkan disini.
End Select
End With
End Sub
Public Function idxItem(item As String) As Integer
On Error GoTo Err
idxItem = Application.WorksheetFunction.Match(item, Sheets("REKAP FULL").Columns("C:C"), 0)
Exit Function
Err:
idxItem = 0
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 9:55 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
pak ada yg mau saya tanyakan lagi nih...
detailnya saya tulis difilenya... mohon bantuannya lagi... thx..
Pada Selasa, 6 Oktober 2015 19:08, "Ivan Sebastian layonardo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
ups ternyata saya yg salah pak suyono... terima kasih bantuannya... cocok sesuai yg saya harapkan...
rumus yg ini lupa saya copy...pantes aja hasilnya error... hahaha.. makasih pak.. top rumusnya..
Public Function idxItem(item As String) As Integer
On Error GoTo Err
idxItem = Application.WorksheetFunction.Match(item, Sheets("REKAP FULL").Columns("C:C"), 0)
Exit Function
Err:
idxItem = 0
End Function
Pada Selasa, 6 Oktober 2015 18:45, Ivan Sebastian <layonardo@yahoo.co.id> menulis:
sudah saya coba hasilnya... sub or function not defined... kayaknya ada yg salah nih..
Pada Selasa, 6 Oktober 2015 18:28, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Coba diganti seperti ini pak, semoga sesuai keinginan.
Sub Rectangle7_Click()
Dim lastRow As Long, i As Long, j As Long
Dim idxrow As Integer
Dim jml As Integer
Dim item As String
Dim getVal As Integer
Range("I2:P473").ClearContents
lastRow = 597
For i = 1 To lastRow
item = Sheets("CETAK NOTA").Cells(i, 2).Value
If idxItem(item) > 1 Then
getVal = Sheets("CETAK NOTA").Cells(i, 3).Value
idxrow = idxItem(item)
jml = Application.WorksheetFunction.CountA(Range(Cells(idxrow, 9), Cells(idxrow, 16)))
jml = jml + 9
Sheets("REKAP FULL").Cells(idxrow, jml).Value = getVal
End If
Next i
End Sub
'======================================
'fungsi untuk mencari indek item.
'======================================
Public Function idxItem(item As String) As Integer
On Error GoTo Err
idxItem = Application.WorksheetFunction.Match(item, Sheets("REKAP FULL").Columns("C:C"), 0)
Exit Function
Err:
idxItem = 0
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 06, 2015 1:35 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
terima kasih atas bantuannya pak suyono...
kalo saya coba bikin ke bentuk dengan model lain lg... bisa bantu perbaiki rumusnya... kurang lebih hampir sama.. cuman jumlah item lebih banyak... thx.. data saya lampirkan...
Pada Selasa, 6 Oktober 2015 7:34, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Pagi Pak Ivan
Coba ditambahin fungsi counta dan ditambah 8 sebagai colom pertama pengisian data.
Sub Rectangle6_Click()
Range("h2:ae8").ClearContents
Application.ScreenUpdating = False
Dim lastRow As Long, i As Long, j As Long
Dim jml As Integer
lastRow = 597
j = 1
For x = 2 To 7
For i = 1 To lastRow
If InStr(Sheets(2).Range("B" & i).Value, Cells(x, 2).Value) Then
jml = Application.WorksheetFunction.CountA(Sheets(3).Range(Cells(x, 8), Cells(x, 31)))
jml = jml + 8
Sheets(2).Cells(i, 3).Copy Destination:=Sheets(3).Cells(x, jml)
j = j + 1
End If
Next i
Next x
Application.ScreenUpdating = True
End Sub
Salam
Yono
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 05, 2015 11:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tolong dibantu perbaiki rumus makro vbanya... [1 Attachment]
hello master2 excel.. ini saya lg coba2 rumus vba cuman vba untuk tombol updatenya saya rasa lom sempurna... sekiranya tolong dibantu diperbaiki supaya jadi sempurna...file saya lampirkan... thx
Tue Oct 6, 2015 4:12 am (PDT) . Posted by:
"Ivan Sebastian" layonardo
BeExceller, rumus array yg ini
{=INDEX('CETAK NOTA'!C$6:C$21;MATCH($L3&M$3;'CETAK NOTA'!B$6:B$21&'CETAK NOTA'!$D$6:$D$21;0))}
kalo diubah ke bentuk biasa gimana jadinya ya...
thx..
Pada Sabtu, 3 Oktober 2015 3:56, "Ivansl layonardo@yahoo.co.id [belajar-excel]" menulis:
Terima kasih mr kid...
Sudah berjalan dngan baik rumusnya.. Saya pakai index yg nomer 2 itu... Sempurna... Topppp abis mr kid..
Thx...
Sent from my iPad mini
On 2 Okt 2015, at 16.17, 'Mr. Kid' mr.nmkid@gmail.com mailto:mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com> wrote:
Hai Ivan,
Array formula disebuah cell bisa dicopy ke cell lain.
Jika ada array formula di A1, dan ingin di-copy ke A2:A9, klik cell A1, tekan CTRL C, blok A2:A9 (A1 tidak ikut diblok), tekan CTRL V
Dari array formula berbunyi :
=VLOOKUP($L2;IF($D$6:$D$21=Sheet1!M2;$B$6:$D$21);2;FALSE)
1. Andaikan kolom B:D berisi data bukan teks semua dan tidak ada error value alias datanya bertipe numerik atau datetime atau boolean (true/false), maka bisa tanpa fungsi IF, sehingga array formula dengan vLookUp tersebut bisa diubah menjadi formula biasa seperti :
=vLookUp( $L2 , Index( ($D$6:$D$21=Sheet1!M2) * $B$6:$D$21 , 0 , 0 ) , 2 , FALSE )
bahkan bisa menggunakan SumIFs.
2. Andaikan antara kolom B:D, ada minimal 1 kolom berisi data yang bertipe teks, maka susunan formula vLookUp nya menjadi :
=vLookUp( Trim($L2) , Index( Rept( $B$6:$D$21 , ($D$6:$D$21=Sheet1!M2) ) , 0 , 0 ) , 2 , FALSE )
Jika hasil vLookUp yang diambil (dalam hal ini kolom ke-2 dari B:D alias nilai di kolom C) adalah bertipe numerik, maka hasil formula vLookUp di atas perlu dikonversi menjadi bertipe numerik, seperti ini :
= 1 * vLookUp( Trim($L2) , Index( Rept( $B$6:$D$21 , ($D$6:$D$21=Sheet1!M2) ) , 0 , 0 ) , 2 , FALSE )
Fungsi Index Match juga bisa digunakan dalam kasus ini, seperti :
1. array formula karena ada IF-nya
=Index( $C$6:$C$21 , Match( $L2 , IF($D$6:$D$21=Sheet1!M2,$B$6:$B$21) , 0 ) ) -> perhatikan jumlah kolom setiap reference
2. bila kolom B dan cell L2 bertipe numerik
a> array formula tanpa IF :
=Index( $C$6:$C$21 , Match( $L2 , ($D$6:$D$21=Sheet1!M2) * $B$6:$B$21 , 0 ) ) b> formula biasa : (perhatikan cara mengubah formula 2a)
=Index( $C$6:$C$21 , Match( $L2 , INDEX( ($D$6:$D$21=Sheet1!M2) * $B$6:$B$21 , 0 ) , 0 ) )
3. bila kolom B dan L2 bertipe teks
a> array formula tanpa IF :
=Index( $C$6:$C$21 , Match( $L2 , Rept( $B$6:$B$21 , ($D$6:$D$21=Sheet1!M2) ) , 0 ) ) b> formula biasa : (perhatikan cara mengubah formula 2a)
=Index( $C$6:$C$21 , Match( $L2 , INDEX( Rept( $B$6:$B$21 , ($D$6:$D$21=Sheet1!M2) ) , 0 ) , 0 ) )
btw,
Array formula yang diletakkan pada banyak cells dan merujuk ke banyak baris data (apalagi ke cells yang belum ada datanya), akan memberi kesan Excel bekerja lamban. Jadi, mohon ditanamkan sejak sekarang bahwa yang lamban bukan Excel-nya, tapi yang memilih metode pengolahan datanya.
Untuk menghindari hal yang demikian, andaikan memungkinkan merujuk ke data terurut dan pengolahan datanya bisa disusun per blok data, maka aturlah demikian lalu menggunakan rujukan dinamis. Contoh pada kasus ini, nilai M2 yang berelasi dengan kolom D bisa menjadi penyusun blok, dengan cara mengurutkan data di B:D berdasar kolom D ASC, lalu berdasar kolom B ASC (2 kriteria sort).
Formula Index bisa digunakan untuk mendapatkan area blok range yang sesuai untuk nilai M tertentu, yang kemudian bisa digunakan dalam formula vLookUp atau Index Match.
Wassalam,
Kid
2015-10-01 22:48 GMT+07:00 Ivan Sebastian layonardo@yahoo.co.id mailto:layonardo@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com>:
master2 excel... butuh bantuan lagi nih...
kalo ada rumus formula arraynya seperti ini..
{=VLOOKUP($L2;IF($D$6:$D$21=Sheet1!M2;$B$6:$D$21);2;FALSE)}
apa bisa diubah ke bentuk formula biasa ya??
itu rumus vlookup dengan 2 kriteria kan ya... saya lagi cari2 rumus formula untuk vlookup 2 kriteria yg simple sebenernya pingin pake index dan match... tapi gagal paham.. dicoba2 tetep aja gagal mulu..
kalo formula yg ini pas datanya banyak jadi repot jg mesti harus cse satu persatu xixixixi...
thx
{=INDEX('CETAK NOTA'!C$6:C$21;MATCH($L3&M$3;'CETAK NOTA'!B$6:B$21&'CETAK NOTA'!$D$6:$D$21;0))}
kalo diubah ke bentuk biasa gimana jadinya ya...
thx..
Pada Sabtu, 3 Oktober 2015 3:56, "Ivansl layonardo@yahoo.co.id [belajar-excel]" menulis:
Terima kasih mr kid...
Sudah berjalan dngan baik rumusnya.. Saya pakai index yg nomer 2 itu... Sempurna... Topppp abis mr kid..
Thx...
Sent from my iPad mini
On 2 Okt 2015, at 16.17, 'Mr. Kid' mr.nmkid@gmail.com mailto:mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com> wrote:
Hai Ivan,
Array formula disebuah cell bisa dicopy ke cell lain.
Jika ada array formula di A1, dan ingin di-copy ke A2:A9, klik cell A1, tekan CTRL C, blok A2:A9 (A1 tidak ikut diblok), tekan CTRL V
Dari array formula berbunyi :
=VLOOKUP($L2;IF($D$6:$D$21=Sheet1!M2;$B$6:$D$21);2;FALSE)
1. Andaikan kolom B:D berisi data bukan teks semua dan tidak ada error value alias datanya bertipe numerik atau datetime atau boolean (true/false), maka bisa tanpa fungsi IF, sehingga array formula dengan vLookUp tersebut bisa diubah menjadi formula biasa seperti :
=vLookUp( $L2 , Index( ($D$6:$D$21=Sheet1!M2) * $B$6:$D$21 , 0 , 0 ) , 2 , FALSE )
bahkan bisa menggunakan SumIFs.
2. Andaikan antara kolom B:D, ada minimal 1 kolom berisi data yang bertipe teks, maka susunan formula vLookUp nya menjadi :
=vLookUp( Trim($L2) , Index( Rept( $B$6:$D$21 , ($D$6:$D$21=Sheet1!M2) ) , 0 , 0 ) , 2 , FALSE )
Jika hasil vLookUp yang diambil (dalam hal ini kolom ke-2 dari B:D alias nilai di kolom C) adalah bertipe numerik, maka hasil formula vLookUp di atas perlu dikonversi menjadi bertipe numerik, seperti ini :
= 1 * vLookUp( Trim($L2) , Index( Rept( $B$6:$D$21 , ($D$6:$D$21=Sheet1!M2) ) , 0 , 0 ) , 2 , FALSE )
Fungsi Index Match juga bisa digunakan dalam kasus ini, seperti :
1. array formula karena ada IF-nya
=Index( $C$6:$C$21 , Match( $L2 , IF($D$6:$D$21=Sheet1!M2,$B$6:$B$21) , 0 ) ) -> perhatikan jumlah kolom setiap reference
2. bila kolom B dan cell L2 bertipe numerik
a> array formula tanpa IF :
=Index( $C$6:$C$21 , Match( $L2 , ($D$6:$D$21=Sheet1!M2) * $B$6:$B$21 , 0 ) ) b> formula biasa : (perhatikan cara mengubah formula 2a)
=Index( $C$6:$C$21 , Match( $L2 , INDEX( ($D$6:$D$21=Sheet1!M2) * $B$6:$B$21 , 0 ) , 0 ) )
3. bila kolom B dan L2 bertipe teks
a> array formula tanpa IF :
=Index( $C$6:$C$21 , Match( $L2 , Rept( $B$6:$B$21 , ($D$6:$D$21=Sheet1!M2) ) , 0 ) ) b> formula biasa : (perhatikan cara mengubah formula 2a)
=Index( $C$6:$C$21 , Match( $L2 , INDEX( Rept( $B$6:$B$21 , ($D$6:$D$21=Sheet1!M2) ) , 0 ) , 0 ) )
btw,
Array formula yang diletakkan pada banyak cells dan merujuk ke banyak baris data (apalagi ke cells yang belum ada datanya), akan memberi kesan Excel bekerja lamban. Jadi, mohon ditanamkan sejak sekarang bahwa yang lamban bukan Excel-nya, tapi yang memilih metode pengolahan datanya.
Untuk menghindari hal yang demikian, andaikan memungkinkan merujuk ke data terurut dan pengolahan datanya bisa disusun per blok data, maka aturlah demikian lalu menggunakan rujukan dinamis. Contoh pada kasus ini, nilai M2 yang berelasi dengan kolom D bisa menjadi penyusun blok, dengan cara mengurutkan data di B:D berdasar kolom D ASC, lalu berdasar kolom B ASC (2 kriteria sort).
Formula Index bisa digunakan untuk mendapatkan area blok range yang sesuai untuk nilai M tertentu, yang kemudian bisa digunakan dalam formula vLookUp atau Index Match.
Wassalam,
Kid
2015-10-01 22:48 GMT+07:00 Ivan Sebastian layonardo@yahoo.co.id mailto:layonardo@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com>:
master2 excel... butuh bantuan lagi nih...
kalo ada rumus formula arraynya seperti ini..
{=VLOOKUP($L2;
apa bisa diubah ke bentuk formula biasa ya??
itu rumus vlookup dengan 2 kriteria kan ya... saya lagi cari2 rumus formula untuk vlookup 2 kriteria yg simple sebenernya pingin pake index dan match... tapi gagal paham.. dicoba2 tetep aja gagal mulu..
kalo formula yg ini pas datanya banyak jadi repot jg mesti harus cse satu persatu xixixixi...
thx
Tue Oct 6, 2015 3:39 pm (PDT) . Posted by:
"Rudhie" rudhiedhie
Dear Para Master XL
Mohon bantuan dan pertolongannya bagaimana membuat rumus atau formula pada file terlampir Terimakasih atas bantuannya
Wassalam
Mohon bantuan dan pertolongannya bagaimana membuat rumus atau formula pada file terlampir Terimakasih atas bantuannya
Wassalam
Tue Oct 6, 2015 7:06 pm (PDT) . Posted by:
azkadroid
misalkan ada data seperti ini :
jatuh tempo tanggal bayar 04-Jun-14 30-Dec-14
bila menggunakan rumus DATEDIF maka hasilnya 6 bulan,padahal bagian bulan desember sampai dengan tanggal 30 dihitung penuh satu bulan jadi hasil yang dikehendaki adalah 7 bulan.
mohon bantuannya master2 sekalian,..mohon maaf bila pertanyaan saya repost..terima kasih
jatuh tempo tanggal bayar 04-Jun-14 30-Dec-14
bila menggunakan rumus DATEDIF maka hasilnya 6 bulan,padahal bagian bulan desember sampai dengan tanggal 30 dihitung penuh satu bulan jadi hasil yang dikehendaki adalah 7 bulan.
mohon bantuannya master2 sekalian,..mohon maaf bila pertanyaan saya repost..terima kasih
============================================================
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