Senin, 11 Mei 2015

[belajar-excel] Digest Number 3424

15 Messages

Digest #3424
2b
Re: Formula Subtotal bersyarat by "uharyanto" uharyanto@ymail.com
3c
Re: filter dengan kriteria pada table [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
5a
.FollowHyperlink by "Longinus Lee"
5b
Re: .FollowHyperlink by "Mr. Kid" nmkid.family@ymail.com
5c
Re: .FollowHyperlink by "Longinus Lee"
6
filter laporan bulanan sesuai bulan terpilih by "achmad adi" didon13@ymail.com

Messages

Mon May 11, 2015 3:04 am (PDT) . Posted by:

"Eko Budhi" eko_tbr_11

Dear Be Exceler yang saya hormati,
Mohon bantuan nya saya ada case seperti terlampir ( mencari hasil otomatis dikolom summary ) sesuai filter yg sdh di validation sesuai pada sheet data tanpa menggunakan pivot table
1. Cara memunculkan hasil otomatis di kolom B10:B25, sesuai filter pada cell C5 & C6 ( tanpa menggunakan pivot table ), apabila dia kosong maka di blank saja.2. Hasil yang diinginkan ada dikolom D10:D253. Data acuan utk filter ada di sheet 'Data' kolom D & E

Terimakasih banyak atas bantuan n sharing ilmunya

Salam,
Eko

Mon May 11, 2015 3:38 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Pakai array formula filtering. Kalau baris yang diberi formula ada banyak,
dan datanya juga banyak, maka Excel akan terkesan lemot dalam bekerja.
Array formula filteing ada di coretan yang ada disini
<http://excel-mr-kid.blogspot.com/2011/04/formula-filter-data-filtering-formula.html>
.

2015-05-11 20:04 GMT+10:00 Eko Budhi eko_tbr_11@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Be Exceler yang saya hormati,
>
> Mohon bantuan nya saya ada case seperti terlampir ( mencari hasil otomatis
> dikolom summary ) sesuai filter yg sdh di validation sesuai pada sheet data
> tanpa menggunakan pivot table
>
> 1. Cara memunculkan hasil otomatis di kolom B10:B25, sesuai filter pada
> cell C5 & C6 ( tanpa menggunakan pivot table ), apabila dia kosong maka di
> blank saja.
> 2. Hasil yang diinginkan ada dikolom D10:D25
> 3. Data acuan utk filter ada di sheet 'Data' kolom D & E
>
>
> Terimakasih banyak atas bantuan n sharing ilmunya
>
>
> Salam,
>
> Eko
>
>
>

Mon May 11, 2015 5:07 am (PDT) . Posted by:

"Eko Budhi" eko_tbr_11

Dear Mr kid,
terimakasih informasinya, kalau mau download file excelnya disebelah mana ya ? saya coba cari2 blm ketemu
Salam,
Eko

Pada Senin, 11 Mei 2015 17:38, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Pakai array formula filtering. Kalau baris yang diberi formula ada banyak, dan datanya juga banyak, maka Excel akan terkesan lemot dalam bekerja. Array formula filteing ada di coretan yang ada disini.

2015-05-11 20:04 GMT+10:00 Eko Budhi eko_tbr_11@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Dear Be Exceler yang saya hormati,
Mohon bantuan nya saya ada case seperti terlampir ( mencari hasil otomatis dikolom summary ) sesuai filter yg sdh di validation sesuai pada sheet data tanpa menggunakan pivot table
1. Cara memunculkan hasil otomatis di kolom B10:B25, sesuai filter pada cell C5 & C6 ( tanpa menggunakan pivot table ), apabila dia kosong maka di blank saja.2. Hasil yang diinginkan ada dikolom D10:D253. Data acuan utk filter ada di sheet 'Data' kolom D & E

Terimakasih banyak atas bantuan n sharing ilmunya

Salam,
Eko


#yiv9066300451 #yiv9066300451 -- #yiv9066300451ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9066300451 #yiv9066300451ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9066300451 #yiv9066300451ygrp-mkp #yiv9066300451hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9066300451 #yiv9066300451ygrp-mkp #yiv9066300451ads {margin-bottom:10px;}#yiv9066300451 #yiv9066300451ygrp-mkp .yiv9066300451ad {padding:0 0;}#yiv9066300451 #yiv9066300451ygrp-mkp .yiv9066300451ad p {margin:0;}#yiv9066300451 #yiv9066300451ygrp-mkp .yiv9066300451ad a {color:#0000ff;text-decoration:none;}#yiv9066300451 #yiv9066300451ygrp-sponsor #yiv9066300451ygrp-lc {font-family:Arial;}#yiv9066300451 #yiv9066300451ygrp-sponsor #yiv9066300451ygrp-lc #yiv9066300451hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9066300451 #yiv9066300451ygrp-sponsor #yiv9066300451ygrp-lc .yiv9066300451ad {margin-bottom:10px;padding:0 0;}#yiv9066300451 #yiv9066300451actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9066300451 #yiv9066300451activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9066300451 #yiv9066300451activity span {font-weight:700;}#yiv9066300451 #yiv9066300451activity span:first-child {text-transform:uppercase;}#yiv9066300451 #yiv9066300451activity span a {color:#5085b6;text-decoration:none;}#yiv9066300451 #yiv9066300451activity span span {color:#ff7900;}#yiv9066300451 #yiv9066300451activity span .yiv9066300451underline {text-decoration:underline;}#yiv9066300451 .yiv9066300451attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9066300451 .yiv9066300451attach div a {text-decoration:none;}#yiv9066300451 .yiv9066300451attach img {border:none;padding-right:5px;}#yiv9066300451 .yiv9066300451attach label {display:block;margin-bottom:5px;}#yiv9066300451 .yiv9066300451attach label a {text-decoration:none;}#yiv9066300451 blockquote {margin:0 0 0 4px;}#yiv9066300451 .yiv9066300451bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9066300451 .yiv9066300451bold a {text-decoration:none;}#yiv9066300451 dd.yiv9066300451last p a {font-family:Verdana;font-weight:700;}#yiv9066300451 dd.yiv9066300451last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9066300451 dd.yiv9066300451last p span.yiv9066300451yshortcuts {margin-right:0;}#yiv9066300451 div.yiv9066300451attach-table div div a {text-decoration:none;}#yiv9066300451 div.yiv9066300451attach-table {width:400px;}#yiv9066300451 div.yiv9066300451file-title a, #yiv9066300451 div.yiv9066300451file-title a:active, #yiv9066300451 div.yiv9066300451file-title a:hover, #yiv9066300451 div.yiv9066300451file-title a:visited {text-decoration:none;}#yiv9066300451 div.yiv9066300451photo-title a, #yiv9066300451 div.yiv9066300451photo-title a:active, #yiv9066300451 div.yiv9066300451photo-title a:hover, #yiv9066300451 div.yiv9066300451photo-title a:visited {text-decoration:none;}#yiv9066300451 div#yiv9066300451ygrp-mlmsg #yiv9066300451ygrp-msg p a span.yiv9066300451yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9066300451 .yiv9066300451green {color:#628c2a;}#yiv9066300451 .yiv9066300451MsoNormal {margin:0 0 0 0;}#yiv9066300451 o {font-size:0;}#yiv9066300451 #yiv9066300451photos div {float:left;width:72px;}#yiv9066300451 #yiv9066300451photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9066300451 #yiv9066300451photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9066300451 #yiv9066300451reco-category {font-size:77%;}#yiv9066300451 #yiv9066300451reco-desc {font-size:77%;}#yiv9066300451 .yiv9066300451replbq {margin:4px;}#yiv9066300451 #yiv9066300451ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9066300451 #yiv9066300451ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9066300451 #yiv9066300451ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9066300451 #yiv9066300451ygrp-mlmsg select, #yiv9066300451 input, #yiv9066300451 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9066300451 #yiv9066300451ygrp-mlmsg pre, #yiv9066300451 code {font:115% monospace;}#yiv9066300451 #yiv9066300451ygrp-mlmsg * {line-height:1.22em;}#yiv9066300451 #yiv9066300451ygrp-mlmsg #yiv9066300451logo {padding-bottom:10px;}#yiv9066300451 #yiv9066300451ygrp-msg p a {font-family:Verdana;}#yiv9066300451 #yiv9066300451ygrp-msg p#yiv9066300451attach-count span {color:#1E66AE;font-weight:700;}#yiv9066300451 #yiv9066300451ygrp-reco #yiv9066300451reco-head {color:#ff7900;font-weight:700;}#yiv9066300451 #yiv9066300451ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9066300451 #yiv9066300451ygrp-sponsor #yiv9066300451ov li a {font-size:130%;text-decoration:none;}#yiv9066300451 #yiv9066300451ygrp-sponsor #yiv9066300451ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9066300451 #yiv9066300451ygrp-sponsor #yiv9066300451ov ul {margin:0;padding:0 0 0 8px;}#yiv9066300451 #yiv9066300451ygrp-text {font-family:Georgia;}#yiv9066300451 #yiv9066300451ygrp-text p {margin:0 0 1em 0;}#yiv9066300451 #yiv9066300451ygrp-text tt {font-size:120%;}#yiv9066300451 #yiv9066300451ygrp-vital ul li:last-child {border-right:none !important;}#yiv9066300451

Mon May 11, 2015 9:29 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

Dear pak Eko,

mungkin file ini bisa membantu.

TrimaKasih.

Sent from Yahoo Mail on Android

Mon May 11, 2015 3:40 am (PDT) . Posted by:

"Samsudin"

Dear All Master Excel,

Ikut nimbrung sekalian ada kasus, saya harus menghitung Rasio (Ltr/Ton/Km), kira-kiran saya harus menggunakan formula apa? Karena kalau yang dihitung Cuma hanya ada satu hari bisa menggunakan formula manual (Ltr/Ton/Km), tetapi jika harus menghitung selama satu bulan, bagaimana?

Hormat saya,
Samsudin
Mobile Phone; 0811 5427 227 / 0811 2810 068

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, May 11, 2015 3:53 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Formula Subtotal bersyarat



Mungkin bisa di coba SUMIF, SUMIFS, SUMPRODUCT

Tks

Salam,

uharyanto
On 11/05/2015 12:56 PM, halak hita halakhita1983@gmail.com<mailto:halakhita1983@gmail.com> [belajar-excel] wrote:


Mohon bantuannya

Bagaimana membuat formula subtotal menghitung diatas angka nol



----------------------------------------------------------

This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.

Mon May 11, 2015 7:41 pm (PDT) . Posted by:

"uharyanto" uharyanto@ymail.com

Kalau seandainya bapak kirim contohnya mungkin kami bisa bantu coba coba
cari jalan keluarnya.

Salam,
uharyanto

On 11/05/2015 3:14 PM, Samsudin samsudin@bayan.com.sg [belajar-excel] wrote:
>
> Dear All Master Excel,
>
> Ikut nimbrung sekalian ada kasus, saya harus menghitung Rasio
> (Ltr/Ton/Km), kira-kiran saya harus menggunakan formula apa? Karena
> kalau yang dihitung Cuma hanya ada satu hari bisa menggunakan formula
> manual (Ltr/Ton/Km), tetapi jika harus menghitung selama satu bulan,
> bagaimana?
>
> *Hormat saya,*
>
> *Samsudin*
>
> *Mobile Phone; 0811 5427 227 / 0811 2810 068*
>
> *From:*belajar-excel@yahoogroups.com
> [mailto:belajar-excel@yahoogroups.com]
> *Sent:* Monday, May 11, 2015 3:53 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Formula Subtotal bersyarat
>
> Mungkin bisa di coba SUMIF, SUMIFS, SUMPRODUCT
>
> Tks
>
> Salam,
> uharyanto
>
> On 11/05/2015 12:56 PM, halak hita halakhita1983@gmail.com
> <mailto:halakhita1983@gmail.com> [belajar-excel] wrote:
>
> Mohon bantuannya
>
> Bagaimana membuat formula subtotal menghitung diatas angka nol
>
> ----------------------------------------------------------
>
> This message (including any attachments) contains confidential information intended
> for a specific individual and purpose, and is protected by law. If you are not the
> intended recipient, you should delete this message and hereby notified that any
> disclosure, copying, or distribution of this message (or any part thereof), or the
> taking of any action based on it, is strictly prohibited. No liability or responsibility
> is accepted if information or data is, for whatever reason corrupted or does not reach
> its intended recipient. No warranty is given that this email is free of viruses. The
> views expressed in this email are, unless otherwise stated, those of the author and
> not those of the Company or its management. The Company reserves the right to monitor,
> intercept and block emails addressed to its users or take any other action in accordance
> with its email use policy.
>
>

Mon May 11, 2015 4:26 am (PDT) . Posted by:

"odong nando"

dear all,

mungkin pertaanya ini sudah banyak beredar tp saya masih belum juga bisa menyelesaikan seputar filter sebagai berikut.
bagaimanakah cara untuk merecord macro untuk Button search (terlampir)
di asumsikan yang akan di cari / filter adalah cell B3, yang bisa berubah - ubah sesuai dengan yang di kehendaki
 thx,

odong nando

Mon May 11, 2015 7:02 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

Dear Odong,

1.Buat inisialisasi untuk data sebagai trigger pencarian(sheet1.Range("B3"))

Dim ans As String

ans=Sheet1.Range("B3").Value

2.Gunakan cell yg menjadi Headernya,dalam hal ini ada pada A5 menjadi Autofilter.

Sheet1.Range("A5").AutoFilter

3.Field mana yg akan di filter,dlm hal ini field "no". berarti nilainya 4(dihitung dr kiri ke kanan)

Sheet1.Range("A5").AutoFilter field:=4,Criteria:=ans

4.Unactive AutoFilter

Sheet1.AutoFilterMode = False

It's work in Office 2013 SP1.

TerimaKasih.

Sent from Yahoo Mail on Android

Mon May 11, 2015 6:08 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Odong,

Tampaknya sudah mencoba record macro ya...
Pada prosedur hasil usaha Anda yang ini :
Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+Shift+W
'
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=4
End Sub

akan berupa proses meng-clear autofilter terhadap field ke-4 (kolom ke-4)
dari Excel tabel bernama "Table2"
Andai akan meng-clear seluruh proses filter yang ada (bisa jadi user
memfilter sesuatu bukan), maka hapus bagian berbunyi feild:=4 menjadi :
ActiveSheet.ListObjects("Table2").Range.AutoFilter
sehingga seluruh data akan tampak karena tidak ada yang terfilter.

Kemudian, pada prosedur berikut :
Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
Range("A1").Select
Selection.Copy
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=4,
Criteria1:="=5003", Operator:=xlAnd
ActiveCell.Offset(14, 11).Range("A1").Select
End Sub

baris selain :
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=4,
Criteria1:="=5003", Operator:=xlAnd

di-turn off saja ya... karena ndak terlalu pokok.
menjadi :
Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'Range("A1").Select
'Selection.Copy
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=4,
Criteria1:="=5003", Operator:=xlAnd
'ActiveCell.Offset(14, 11).Range("A1").Select
End Sub

lalu, fokuskan pada baris yang berbunyi :
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=4,
Criteria1:="=5003", Operator:=xlAnd
yang berupa proses memfilter excel table bernama Table2 pada field ke-4 nya
(kolom ke-4 nya) untuk nilai sama dengan '5003' dengan operator AND.
Bagian operator bisa dihilangkan menjadi :
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=4,
Criteria1:="=5003"

Kemudian, bagian "=5003" ingin diubah agar mengikuti nilai yang ada di
range b3 di sheet yang aktif. Artinya, bagian "=5003" diganti dengan
perintah pengambilan nilai dari sheet aktif pada range b3. Perintah
pengambilan nilai tersebut berbunyi :
*activesheet.range("b3").value*
maka baris perintah berbunyi :
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=4,
Criteria1:="=5003"
akan berubah menjadi :
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=4, Criteria1:=
*activesheet.range("b3").value*

Banyak yang langsung menggunakan perintah range("b3") [tanpa activesheet
dan tanpa value]. Hal ini akan bekerja jika proses tersebut memang akan
mengambil nilai pada sheet aktif. Penyertaan activesheet (daripada tidak
disertakan), dimaksudkan agar terbentuk baris perintah yang lengkap yang
suatu saat nanti akan menjadi kebiasaan yang memudahkan ketika akan
mempelajari bahasa pemrograman lain yang menuntut penggunaan object
oriented yang baik (konon MS Office akan mengganti VBA dengan VB.Net di
suatu saat nanti). Jadi, ketika sudah terbiasa sejak dini, maka akan mudah
beradaptasi dengan bahasa pemrograman lain.
btw, biasanya hal ini untuk yang beneran mau kok... kalo ndak mau juga ndak
apa.

Begitu pula dengan penggunaan properti bernama value. Meski default object
range akan selalu mengambil nilai properti value, akan lebih baik jika
dibiasakan menuliskan secara eksplisit properti yang akan digunakan. Oleh
sebab itu, baris di atas disertakan nama properti yang akan digunakan,
yaitu value. Jadi, nanti, suatu saat entah kapan, andaikan dibutuhkan
beradaptasi dengan bahasa pemrograman lain yang menuntut object oriented,
akan lebih mudah proses adaptasinya.
btw, hal ini untuk yang merasa lebih nyaman untuk belajar hal baru saja
kok... kalo ndak nyaman ya ndak apa-apa.

Ok, sampai sini sudah terbentuk prosedur lengkap berbunyi :
Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'Range("A1").Select
'Selection.Copy
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=4, Criteria1:=
*activesheet.range("b3").value*
'ActiveCell.Offset(14, 11).Range("A1").Select
End Sub

dan andai akan sedikit disingkat, menjadi :
Sub Macro5()
' Keyboard Shortcut: Ctrl+Shift+Q
ActiveSheet.ListObjects("Table2").Range.AutoFilter 4,
*activesheet.range("b3").value*
End Sub

Prosedur di atas sudah dapat berjalan baik asalkan user tidak pernah
melakukan filter terhadap field (kolom) lain dalam Excel table bernama
Table2. Andaikan user memfilter field ke-1 dengan sesuatu, dan prosedur
dijalankan, maka akan terjadi filter berdasar 2 kriteria, yaitu kriteria 1
nya adalah filter oleh user dan kriteria 2 adalah filter oleh prosedur di
atas.

Nah... pada kondisi yang menuntut bahwa proses hanya berlaku untuk proses
filter baru terhadap 1 kriteria yaitu berdasar field ke-4 saja, maka
sebelum proses dilakukan pembersihan autofilter lebih dulu. Baris
perintahnya bisa seperti di prosedur Macro3 tanpa ada field apapun yang
ditentukan. Bunyinya begini :
ActiveSheet.ListObjects("Table2").Range.AutoFilter

Baris ini diletakkan di [rosedur Macro5 tepat sebelum baris proses filter.
Jadi, prosedur Macro5 akan berubah menjadi :
Sub Macro5()
' Keyboard Shortcut: Ctrl+Shift+Q
ActiveSheet.ListObjects("Table2").Range.AutoFilter
ActiveSheet.ListObjects("Table2").Range.AutoFilter 4,
*activesheet.range("b3").value*
End Sub

Saking senengnya bisa dan paham autofilter, kemudian ide liarnya lepas dari
kandang dan menginginkan proses filter berdasar kolom lainnya setelah kolom
ke-4.
Misal, setelah filter kolom ke-4, disertai filter kolom ke-2 (tanggal)
khusus mulai tanggal 5 nov 2014 sampai dengan 20 nov 2014.
Berarti dibutuhkan sebuah baris perintah filter, yaitu filter terhadap
field ke-2, dengan kriteria-1 berbunyi '>=2014-11-05', lalu kriteria ke-2
berbunyi '<=2014-11-20', yang antara kedua kriteria tersebut dihubungkan
dengan operator DAN alias AND
bahasa manusianya kan berbunyi
nilai yang '>=2014-11-05' DAN '<=2014-11-20'

Dari definisi filter baru ini, disusunlah baris perintahnya mengikuti pola
autofilter tadi :
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=2,
criteria1:=">=2014-11-05",operator:=xlAnd,criteria2:="<=2014-11-20"

Terus, inputan tanggal dari dan tanggal sampainya di suatu range tertentu.
Misal tanggal mulai di range B4 dan tanggal Sampai di range E4. Berarti
bagian nilai criteria diubah dengan perintah pengambilan nilai dari suatu
range. Jadinya :
ActiveSheet.ListObjects("Table2").Range.AutoFilter field:=2,
criteria1:=">=" &
activesheet.range("b4").value,operator:=xlAnd,criteria2:="<=" &
activesheet.range("e4").value

laah... baris perintahnya jadi panjang bingitz... susah membacanya...
kalau begitu dipotong dengan karakter underscore ( _ ) menjadi :
ActiveSheet.ListObjects("Table2").Range.AutoFilter _
field:=2 _
, criteria1:=">=" & activesheet.range("b4").value _
, operator:=xlAnd _
, criteria2:="<=" & activesheet.range("e4").value

jadi enak kan mbacanya....

Lalu baris tersebut dimasukkan ke dalam prosedur. Misal masuk ke prosedur
Macro5 setelah baris proses terhadap filter field ke-4. Jadi prosedur
Macro5 akan berbunyi :
Sub Macro5()
' Keyboard Shortcut: Ctrl+Shift+Q
ActiveSheet.ListObjects("Table2").Range.AutoFilter
ActiveSheet.ListObjects("Table2").Range.AutoFilter 4,
*activesheet.range("b3").value*

ActiveSheet.ListObjects("Table2").Range.AutoFilter _
field:=2 _
, criteria1:=">=" & activesheet.range("b4").value _
, operator:=xlAnd _
, criteria2:="<=" & activesheet.range("e4").value

End Sub

kalau disingkat dikit, bunyinya menjadi :
Sub Macro5()
' Keyboard Shortcut: Ctrl+Shift+Q
ActiveSheet.ListObjects("Table2").Range.AutoFilter
ActiveSheet.ListObjects("Table2").Range.AutoFilter 4,
*activesheet.range("b3").value*

ActiveSheet.ListObjects("Table2").Range.AutoFilter _
2 _
, ">=" & activesheet.range("b4").value _
, xlAnd _
, "<=" & activesheet.range("e4").value

End Sub

dan sepertinya baris perintah filter field ke-2 yang dipotong-potong bisa
disatukan lagi menjadi :
Sub Macro5()
' Keyboard Shortcut: Ctrl+Shift+Q
ActiveSheet.ListObjects("Table2").Range.AutoFilter
ActiveSheet.ListObjects("Table2").Range.AutoFilter 4,
*activesheet.range("b3").value*

ActiveSheet.ListObjects("Table2").Range.AutoFilter 2,">=" &
activesheet.range("b4").value,xlAnd,"<=" & activesheet.range("e4").value

End Sub

hehehe...
ternyata semua hal akan tampak mudah kalau mau menjabarkan satu per satu.
Jadi, ndak terburu nafsu langsung pengen banyak hal yang bisa begini begitu
tapi ndak punya bekel buabar blas... (padahal bekelnya cuman mau dan segera
menyempatkan belajar loh)

okay dah...
met belajar ya...

Wassalam,
Kid

2015-05-11 21:26 GMT+10:00 odong nando odongnando@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> dear all,
>
> mungkin pertaanya ini sudah banyak beredar tp saya masih belum juga bisa
> menyelesaikan seputar filter sebagai berikut.
>
> bagaimanakah cara untuk merecord macro untuk Button search (terlampir)
> di asumsikan yang akan di cari / filter adalah cell B3, yang bisa berubah
> - ubah sesuai dengan yang di kehendaki
>
> thx,
>
> odong nando
>
>
>

Mon May 11, 2015 1:56 pm (PDT) . Posted by:

"Salim Jenggot"

Dear master,
Mohon bantuannya untuk case terlampir, saya bermaksud memisahkan data untuk
setiap kolom D yang memiliki equipment (angka) berbeda 2 baris. |Terlampir
contohnya...

Atas bantuannya kami sampaikan terima kasih,
Rgds,

Salim Jenggot

Mon May 11, 2015 3:09 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Salim,

Asumsi :
- datanya masih rapat semua (tidak ada baris kosong antar record data)
- record pertama di baris ke-1 Excel.
- data di kolom A sampai i (kalau ndak salah hitung) -> jadi kolom J masih
kosong

Kriteria :
- kolom D yang berbeda nilai antar record

Tindakan :
- insert 2 baris Excel

Proses :
01 : di kolom baru (kolom J) pada record ke-2 (kebetulan di baris ke-2
Excel), yaitu tepatnya di range J2, diberi formula :
=1/(d2<>d1)

02 : copy formula range j2 dan paste ke seluruh baris data di kolom J
(kalau baris data sampai baris 1000, berarti akan ada formula tersebut di
j2:j1000)

03 : memvaluesken nilai hasil formula (copy paste values) dengan cara :
> blok seluruh kolom j (klik indeks kolom Excel huruf J) -> copy (CTRL C)
-> klik kanan sebuah cell di kolom J -> pilih paste special -> pilih values
-> tekan OK

--- Insert row ke-1 ---
04 : memilih cells dalam kolom J yang berisi nilai konstan bertipe numerik
(number) dengan cara :
> blok seluruh kolom j (klik indeks kolom Excel huruf J) -> aktifkan fotur
GoTo (CTRL G) -> aktifkan fitur goto special (klik Special) -> pilih
Constant -> hilangkan semua centang -> centang item Number -> tekan OK

05 : proses insert row dengan cara :
> lihat cells terpilih hasil no 04 -> klik kanan cells terpilih -> pilih
Insert -> pilih entire row -> tekan OK
--- insert row ke-1 selesai ---

--- insert row ke-2 ---
06 : memilih cells dalam kolom J yang berisi nilai konstan bertipe numerik
(number) dengan cara :
> blok seluruh kolom j (klik indeks kolom Excel huruf J) -> aktifkan fotur
GoTo (CTRL G) -> aktifkan fitur goto special (klik Special) -> pilih
Constant -> hilangkan semua centang -> centang item Number -> tekan OK

07 : proses insert row dengan cara :
> lihat cells terpilih hasil no 06 -> klik kanan cells terpilih -> pilih
Insert -> pilih entire row -> tekan OK
--- insert row ke-2 selesai ---

08 : hapus kolom bantu J dengan cara :
> blok seluruh kolom j (klik indeks kolom Excel huruf J) -> klik kanan
sebuah cell dalam kolom J -> pilih Delete -> pilih entire column -> tekan OK

09 : save workbook dengan menekan CTRL S

Selamat mencoba.

Wassalam,
Kid

2015-05-11 21:35 GMT+10:00 Salim Jenggot salim.jenggot@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear master,
> Mohon bantuannya untuk case terlampir, saya bermaksud memisahkan data
> untuk setiap kolom D yang memiliki equipment (angka) berbeda 2 baris.
> |Terlampir contohnya...
>
> Atas bantuannya kami sampaikan terima kasih,
> Rgds,
>
> Salim Jenggot
>
>
>

Mon May 11, 2015 1:57 pm (PDT) . Posted by:

"Longinus Lee"

Dear All Master

Terimakasih sdh izinkan saya bergabung di forum ini,
mohon bantuan master untuk kasus berikut ini :

Private Sub lblWeb_Click()
ThisWorkbook.FollowHyperlink lblWeb.Caption
End Sub

masalahnya adalah pada saat komputer offline/atau tidak terkoneksi internet
label tersebut di click maka terjadi debug macro.

mohon dapat pencerahanya agar modul tersebut pada kondisi offline bila di
click tidak terjadi debug.

Terimakasih.

Salam,
Longinus

Mon May 11, 2015 2:19 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Longinus,

Coba manfaatkan error trap dengan klausa on error.

Private Sub lblWeb_Click()
on error resume next 'set trap error untuk bypass baris yang error
dan mengeksekusi baris berikutnya
ThisWorkbook.FollowHyperlink lblWeb.Caption
err.clear 'buang status error terakhir
on error goto 0 'kembalikan setting trap error ke default
End Sub

Jika akan diberi pesan dan sebagainya, sisipkan tepat sebelum baris
err.clear

Regard,
Kid

2015-05-12 2:08 GMT+10:00 Longinus Lee longinus.lee@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear All Master
>
> Terimakasih sdh izinkan saya bergabung di forum ini,
> mohon bantuan master untuk kasus berikut ini :
>
> Private Sub lblWeb_Click()
> ThisWorkbook.FollowHyperlink lblWeb.Caption
> End Sub
>
> masalahnya adalah pada saat komputer offline/atau tidak terkoneksi
> internet label tersebut di click maka terjadi debug macro.
>
> mohon dapat pencerahanya agar modul tersebut pada kondisi offline bila di
> click tidak terjadi debug.
>
> Terimakasih.
>
> Salam,
> Longinus
>
>
>

Mon May 11, 2015 6:01 pm (PDT) . Posted by:

"Longinus Lee"

Dear Mr. KID

THANKS U.

Salam.

LONGINUS
On 12 May 2015 04:19, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> wrote:

>
>
> Hai Longinus,
>
> Coba manfaatkan error trap dengan klausa on error.
>
> Private Sub lblWeb_Click()
> on error resume next 'set trap error untuk bypass baris yang error
> dan mengeksekusi baris berikutnya
> ThisWorkbook.FollowHyperlink lblWeb.Caption
> err.clear 'buang status error terakhir
> on error goto 0 'kembalikan setting trap error ke default
> End Sub
>
> Jika akan diberi pesan dan sebagainya, sisipkan tepat sebelum baris
> err.clear
>
> Regard,
> Kid
>
>
>
> 2015-05-12 2:08 GMT+10:00 Longinus Lee longinus.lee@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear All Master
>>
>> Terimakasih sdh izinkan saya bergabung di forum ini,
>> mohon bantuan master untuk kasus berikut ini :

>>
>> Private Sub lblWeb_Click()
>> ThisWorkbook.FollowHyperlink lblWeb.Caption
>> End Sub
>>
>> masalahnya adalah pada saat komputer offline/atau tidak terkoneksi
>> internet label tersebut di click maka terjadi debug macro.
>>
>> mohon dapat pencerahanya agar modul tersebut pada kondisi offline bila di
>> click tidak terjadi debug.
>>
>> Terimakasih.
>>
>> Salam,
>> Longinus
>>
>>
>
>

Mon May 11, 2015 7:47 pm (PDT) . Posted by:

"achmad adi" didon13@ymail.com

dear master excelsaya membuat laporan bulanan dimana tercatat tiap bulannya selama 1 tahundan saya membuat tabel tersendiri untuk menampilkan laporan bulanan sesuai bulan yang dimau melalui drop textsupaya isi dari tabel sesuai data bulan yang dikehendaki ,,,saya membuat rumus tapi tidak mau nongol,,hehehehemohon pencerahanya..saya lampirkan filenya

terimakasih sebelumnya
============================================================
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:

Poskan Komentar