[belajar-excel] clear filter

classic Classic list List threaded Threaded
6 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] clear filter

Milis Belajar Excel mailing list
hai member beExcel
dari code berikut :
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$G$2" ThenActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("G2").ValueElseEnd IfEnd Sub
bagaimanakah caranya jika saya ingin menambahkan saat cell "G2" tidak berisi apapun maka akan meng clear filter form.
mohon bantuannya soalnya saya udah utak utik sendiri n ga berhasil, malah jadi ngaco...hehehe... br,

odong nando
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] clear filter

Milis Belajar Excel mailing list
Mungkinkah begini?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then _
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4,
Criteria1:=ActiveSheet.Range("G2").Value
If (Target.Address = "$G$2" And Range("G2") = "") Then _
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4
End Sub

salam

NangAgus


On 18/05/17 14.45, odong nando [hidden email] [belajar-excel] wrote:

> hai member beExcel
>
> dari code berikut :
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = "$G$2" Then
> ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4,
> Criteria1:=ActiveSheet.Range("G2").Value
> Else
> End If
> End Sub
>
> bagaimanakah caranya jika saya ingin menambahkan saat cell "G2" tidak
> berisi apapun maka akan meng clear filter form.
>
> mohon bantuannya soalnya saya udah utak utik sendiri n ga berhasil,
> malah jadi ngaco...
> hehehe...
> br,
>
> odong nando*
> *
>

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: [belajar-excel] clear filter

Milis Belajar Excel mailing list
iya pak guru, benar sekali...trimakasih...
klo berkenan tolong di bahasakan manusianya... biar saya bisa belajar juga...  br,

odong nando


      Dari: "nangagus [hidden email] [belajar-excel]" <[hidden email]>
 Kepada: [hidden email]
 Dikirim: Jumat, 19 Mei 2017 10:40
 Judul: Re: [belajar-excel] clear filter
   
     Mungkinkah begini?
  Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$G$2" Then _
 ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("G2").Value
 If (Target.Address = "$G$2" And Range("G2") = "") Then _
 ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4
 End Sub
  salam NangAgus
 
 On 18/05/17 14.45, odong nando [hidden email] [belajar-excel] wrote:
 
     hai member beExcel
  dari code berikut :
  Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$2" Then ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("G2").Value Else End If End Sub
  bagaimanakah caranya jika saya ingin menambahkan saat cell "G2" tidak berisi apapun maka akan meng clear filter form.
  mohon bantuannya soalnya saya udah utak utik sendiri n ga berhasil, malah jadi ngaco... hehehe...   br,
 
 odong nando
   
 
  #yiv7432730386 #yiv7432730386 -- #yiv7432730386ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7432730386 #yiv7432730386ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7432730386 #yiv7432730386ygrp-mkp #yiv7432730386hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7432730386 #yiv7432730386ygrp-mkp #yiv7432730386ads {margin-bottom:10px;}#yiv7432730386 #yiv7432730386ygrp-mkp .yiv7432730386ad {padding:0 0;}#yiv7432730386 #yiv7432730386ygrp-mkp .yiv7432730386ad p {margin:0;}#yiv7432730386 #yiv7432730386ygrp-mkp .yiv7432730386ad a {color:#0000ff;text-decoration:none;}#yiv7432730386 #yiv7432730386ygrp-sponsor #yiv7432730386ygrp-lc {font-family:Arial;}#yiv7432730386 #yiv7432730386ygrp-sponsor #yiv7432730386ygrp-lc #yiv7432730386hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7432730386 #yiv7432730386ygrp-sponsor #yiv7432730386ygrp-lc .yiv7432730386ad {margin-bottom:10px;padding:0 0;}#yiv7432730386 #yiv7432730386actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7432730386 #yiv7432730386activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7432730386 #yiv7432730386activity span {font-weight:700;}#yiv7432730386 #yiv7432730386activity span:first-child {text-transform:uppercase;}#yiv7432730386 #yiv7432730386activity span a {color:#5085b6;text-decoration:none;}#yiv7432730386 #yiv7432730386activity span span {color:#ff7900;}#yiv7432730386 #yiv7432730386activity span .yiv7432730386underline {text-decoration:underline;}#yiv7432730386 .yiv7432730386attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7432730386 .yiv7432730386attach div a {text-decoration:none;}#yiv7432730386 .yiv7432730386attach img {border:none;padding-right:5px;}#yiv7432730386 .yiv7432730386attach label {display:block;margin-bottom:5px;}#yiv7432730386 .yiv7432730386attach label a {text-decoration:none;}#yiv7432730386 blockquote {margin:0 0 0 4px;}#yiv7432730386 .yiv7432730386bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7432730386 .yiv7432730386bold a {text-decoration:none;}#yiv7432730386 dd.yiv7432730386last p a {font-family:Verdana;font-weight:700;}#yiv7432730386 dd.yiv7432730386last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7432730386 dd.yiv7432730386last p span.yiv7432730386yshortcuts {margin-right:0;}#yiv7432730386 div.yiv7432730386attach-table div div a {text-decoration:none;}#yiv7432730386 div.yiv7432730386attach-table {width:400px;}#yiv7432730386 div.yiv7432730386file-title a, #yiv7432730386 div.yiv7432730386file-title a:active, #yiv7432730386 div.yiv7432730386file-title a:hover, #yiv7432730386 div.yiv7432730386file-title a:visited {text-decoration:none;}#yiv7432730386 div.yiv7432730386photo-title a, #yiv7432730386 div.yiv7432730386photo-title a:active, #yiv7432730386 div.yiv7432730386photo-title a:hover, #yiv7432730386 div.yiv7432730386photo-title a:visited {text-decoration:none;}#yiv7432730386 div#yiv7432730386ygrp-mlmsg #yiv7432730386ygrp-msg p a span.yiv7432730386yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7432730386 .yiv7432730386green {color:#628c2a;}#yiv7432730386 .yiv7432730386MsoNormal {margin:0 0 0 0;}#yiv7432730386 o {font-size:0;}#yiv7432730386 #yiv7432730386photos div {float:left;width:72px;}#yiv7432730386 #yiv7432730386photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7432730386 #yiv7432730386photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7432730386 #yiv7432730386reco-category {font-size:77%;}#yiv7432730386 #yiv7432730386reco-desc {font-size:77%;}#yiv7432730386 .yiv7432730386replbq {margin:4px;}#yiv7432730386 #yiv7432730386ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7432730386 #yiv7432730386ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7432730386 #yiv7432730386ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7432730386 #yiv7432730386ygrp-mlmsg select, #yiv7432730386 input, #yiv7432730386 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7432730386 #yiv7432730386ygrp-mlmsg pre, #yiv7432730386 code {font:115% monospace;}#yiv7432730386 #yiv7432730386ygrp-mlmsg * {line-height:1.22em;}#yiv7432730386 #yiv7432730386ygrp-mlmsg #yiv7432730386logo {padding-bottom:10px;}#yiv7432730386 #yiv7432730386ygrp-msg p a {font-family:Verdana;}#yiv7432730386 #yiv7432730386ygrp-msg p#yiv7432730386attach-count span {color:#1E66AE;font-weight:700;}#yiv7432730386 #yiv7432730386ygrp-reco #yiv7432730386reco-head {color:#ff7900;font-weight:700;}#yiv7432730386 #yiv7432730386ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7432730386 #yiv7432730386ygrp-sponsor #yiv7432730386ov li a {font-size:130%;text-decoration:none;}#yiv7432730386 #yiv7432730386ygrp-sponsor #yiv7432730386ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7432730386 #yiv7432730386ygrp-sponsor #yiv7432730386ov ul {margin:0;padding:0 0 0 8px;}#yiv7432730386 #yiv7432730386ygrp-text {font-family:Georgia;}#yiv7432730386 #yiv7432730386ygrp-text p {margin:0 0 1em 0;}#yiv7432730386 #yiv7432730386ygrp-text tt {font-size:120%;}#yiv7432730386 #yiv7432730386ygrp-vital ul li:last-child {border-right:none !important;}#yiv7432730386

   
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Bls: [belajar-excel] clear filter

Milis Belajar Excel mailing list
Dear Odong

Kaleee begini yaaa

Private Sub Worksheet_Change(ByVal Target As Range) 'Perintah untuk
worksheet yang diubah
If Target.Address = "$G$2" Then _ 'Jika yang diubah pada G2 maka
kerjakan di bawahnya
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4,
Criteria1:=ActiveSheet.Range("G2").Value 'Pada sheet yang aktif range
A6:G1048500 di-autofilter pada kolom ke-4 dengan kriteria pada Cell G2
If (Target.Address = "$G$2" And Range("G2") = "") Then _ 'Jika yang
diubah pada G2 dan G2 kosong (= "") maka kerjakan di bawahnya
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4 'Pada sheet
yang aktif range A6:G1048500 di-autofilter pada kolom ke-4 dengan
dipilih semua (select All)
End Sub

Cekrip terakhir dapat diubah begini:

'ActiveSheet.Range("$A$6:$G$1048500").AutoFilter 'Pada sheet yang aktif
range A6:G1048500 autofilter dimatikan

Heee.... he.. heee.... bisa dicoba dengan Record macro Koq....
Salam
Dari Desa

On 19/05/17 11.24, odong nando [hidden email] [belajar-excel] wrote:

> iya pak guru, benar sekali...
> trimakasih...
>
> klo berkenan tolong di bahasakan manusianya... biar saya bisa belajar
> juga...
> br,
>
> odong nando*
> *
>
>
> ------------------------------------------------------------------------
> *Dari:* "nangagus [hidden email] [belajar-excel]"
> <[hidden email]>
> *Kepada:* [hidden email]
> *Dikirim:* Jumat, 19 Mei 2017 10:40
> *Judul:* Re: [belajar-excel] clear filter
>
> Mungkinkah begini?
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = "$G$2" Then _
> ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4,
> Criteria1:=ActiveSheet.Range("G2").Value
> If (Target.Address = "$G$2" And Range("G2") = "") Then _
> ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4
> End Sub
> salam
> NangAgus
>
> On 18/05/17 14.45, odong nando [hidden email]
> <mailto:[hidden email]> [belajar-excel] wrote:
>> hai member beExcel
>>
>> dari code berikut :
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Target.Address = "$G$2" Then
>> ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4,
>> Criteria1:=ActiveSheet.Range("G2").Value
>> Else
>> End If
>> End Sub
>>
>> bagaimanakah caranya jika saya ingin menambahkan saat cell "G2" tidak
>> berisi apapun maka akan meng clear filter form.
>>
>> mohon bantuannya soalnya saya udah utak utik sendiri n ga berhasil,
>> malah jadi ngaco...
>> hehehe...
>> br,
>>
>> odong nando*
>> *
>
>
>
>

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: Bls: [belajar-excel] clear filter

Milis Belajar Excel mailing list
Oke deh...trimakasih pak guru... :) br,

odong nando


      Dari: "nangagus [hidden email] [belajar-excel]" <[hidden email]>
 Kepada: [hidden email]
 Dikirim: Sabtu, 20 Mei 2017 7:27
 Judul: Re: Bls: [belajar-excel] clear filter
   
     Dear Odong Kaleee begini yaaa
  Private Sub Worksheet_Change(ByVal Target As Range)   'Perintah untuk worksheet yang diubah
 If Target.Address = "$G$2" Then _   'Jika yang diubah pada G2 maka kerjakan di bawahnya
 ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("G2").Value  'Pada sheet yang aktif range A6:G1048500 di-autofilter pada kolom ke-4 dengan kriteria pada Cell G2
 If (Target.Address = "$G$2" And Range("G2") = "") Then _ 'Jika yang diubah pada G2 dan G2 kosong (= "") maka kerjakan di bawahnya
 ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4 'Pada sheet yang aktif range A6:G1048500 di-autofilter pada kolom ke-4 dengan dipilih semua (select All)
 End Sub Cekrip terakhir dapat diubah begini:
  'ActiveSheet.Range("$A$6:$G$1048500").AutoFilter  'Pada sheet yang aktif range A6:G1048500 autofilter dimatikan
 
 Heee.... he.. heee....   bisa dicoba dengan Record macro Koq....
 Salam
 Dari Desa
 
  On 19/05/17 11.24, odong nando [hidden email] [belajar-excel] wrote:
 
     iya pak guru, benar sekali... trimakasih...
  klo berkenan tolong di bahasakan manusianya... biar saya bisa belajar juga...    br,
 
 odong nando
 
 
        Dari: "nangagus [hidden email] [belajar-excel]" <[hidden email]>
 Kepada: [hidden email]
 Dikirim: Jumat, 19 Mei 2017 10:40
 Judul: Re: [belajar-excel] clear filter
 
          Mungkinkah begini?
  Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$G$2" Then _
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("G2").Value
 If (Target.Address = "$G$2" And Range("G2") = "") Then _
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4
 End Sub
  salam NangAgus
 
  On 18/05/17 14.45, odong nando [hidden email] [belajar-excel] wrote:
 
     hai member beExcel
  dari code berikut :
  Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$2" Then ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("G2").Value Else End If End Sub
  bagaimanakah caranya jika saya ingin menambahkan saat cell "G2"  tidak berisi apapun maka akan meng clear filter form.
  mohon bantuannya soalnya saya udah utak utik sendiri n ga  berhasil, malah jadi ngaco... hehehe...   br,
 
 odong nando
   
 
   
 
         
 
  #yiv5494955680 #yiv5494955680 -- #yiv5494955680ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5494955680 #yiv5494955680ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5494955680 #yiv5494955680ygrp-mkp #yiv5494955680hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5494955680 #yiv5494955680ygrp-mkp #yiv5494955680ads {margin-bottom:10px;}#yiv5494955680 #yiv5494955680ygrp-mkp .yiv5494955680ad {padding:0 0;}#yiv5494955680 #yiv5494955680ygrp-mkp .yiv5494955680ad p {margin:0;}#yiv5494955680 #yiv5494955680ygrp-mkp .yiv5494955680ad a {color:#0000ff;text-decoration:none;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ygrp-lc {font-family:Arial;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ygrp-lc #yiv5494955680hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ygrp-lc .yiv5494955680ad {margin-bottom:10px;padding:0 0;}#yiv5494955680 #yiv5494955680actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5494955680 #yiv5494955680activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5494955680 #yiv5494955680activity span {font-weight:700;}#yiv5494955680 #yiv5494955680activity span:first-child {text-transform:uppercase;}#yiv5494955680 #yiv5494955680activity span a {color:#5085b6;text-decoration:none;}#yiv5494955680 #yiv5494955680activity span span {color:#ff7900;}#yiv5494955680 #yiv5494955680activity span .yiv5494955680underline {text-decoration:underline;}#yiv5494955680 .yiv5494955680attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5494955680 .yiv5494955680attach div a {text-decoration:none;}#yiv5494955680 .yiv5494955680attach img {border:none;padding-right:5px;}#yiv5494955680 .yiv5494955680attach label {display:block;margin-bottom:5px;}#yiv5494955680 .yiv5494955680attach label a {text-decoration:none;}#yiv5494955680 blockquote {margin:0 0 0 4px;}#yiv5494955680 .yiv5494955680bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5494955680 .yiv5494955680bold a {text-decoration:none;}#yiv5494955680 dd.yiv5494955680last p a {font-family:Verdana;font-weight:700;}#yiv5494955680 dd.yiv5494955680last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5494955680 dd.yiv5494955680last p span.yiv5494955680yshortcuts {margin-right:0;}#yiv5494955680 div.yiv5494955680attach-table div div a {text-decoration:none;}#yiv5494955680 div.yiv5494955680attach-table {width:400px;}#yiv5494955680 div.yiv5494955680file-title a, #yiv5494955680 div.yiv5494955680file-title a:active, #yiv5494955680 div.yiv5494955680file-title a:hover, #yiv5494955680 div.yiv5494955680file-title a:visited {text-decoration:none;}#yiv5494955680 div.yiv5494955680photo-title a, #yiv5494955680 div.yiv5494955680photo-title a:active, #yiv5494955680 div.yiv5494955680photo-title a:hover, #yiv5494955680 div.yiv5494955680photo-title a:visited {text-decoration:none;}#yiv5494955680 div#yiv5494955680ygrp-mlmsg #yiv5494955680ygrp-msg p a span.yiv5494955680yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5494955680 .yiv5494955680green {color:#628c2a;}#yiv5494955680 .yiv5494955680MsoNormal {margin:0 0 0 0;}#yiv5494955680 o {font-size:0;}#yiv5494955680 #yiv5494955680photos div {float:left;width:72px;}#yiv5494955680 #yiv5494955680photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5494955680 #yiv5494955680photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5494955680 #yiv5494955680reco-category {font-size:77%;}#yiv5494955680 #yiv5494955680reco-desc {font-size:77%;}#yiv5494955680 .yiv5494955680replbq {margin:4px;}#yiv5494955680 #yiv5494955680ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5494955680 #yiv5494955680ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5494955680 #yiv5494955680ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5494955680 #yiv5494955680ygrp-mlmsg select, #yiv5494955680 input, #yiv5494955680 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5494955680 #yiv5494955680ygrp-mlmsg pre, #yiv5494955680 code {font:115% monospace;}#yiv5494955680 #yiv5494955680ygrp-mlmsg * {line-height:1.22em;}#yiv5494955680 #yiv5494955680ygrp-mlmsg #yiv5494955680logo {padding-bottom:10px;}#yiv5494955680 #yiv5494955680ygrp-msg p a {font-family:Verdana;}#yiv5494955680 #yiv5494955680ygrp-msg p#yiv5494955680attach-count span {color:#1E66AE;font-weight:700;}#yiv5494955680 #yiv5494955680ygrp-reco #yiv5494955680reco-head {color:#ff7900;font-weight:700;}#yiv5494955680 #yiv5494955680ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ov li a {font-size:130%;text-decoration:none;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ov ul {margin:0;padding:0 0 0 8px;}#yiv5494955680 #yiv5494955680ygrp-text {font-family:Georgia;}#yiv5494955680 #yiv5494955680ygrp-text p {margin:0 0 1em 0;}#yiv5494955680 #yiv5494955680ygrp-text tt {font-size:120%;}#yiv5494955680 #yiv5494955680ygrp-vital ul li:last-child {border-right:none !important;}#yiv5494955680

   
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: Bls: [belajar-excel] clear filter

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Oke deh...trimakasih pak guru... :) br,

odong nando


      Dari: "nangagus [hidden email] [belajar-excel]" <[hidden email]>
 Kepada: [hidden email]
 Dikirim: Sabtu, 20 Mei 2017 7:27
 Judul: Re: Bls: [belajar-excel] clear filter
   
     Dear Odong Kaleee begini yaaa
  Private Sub Worksheet_Change(ByVal Target As Range)   'Perintah untuk worksheet yang diubah
 If Target.Address = "$G$2" Then _   'Jika yang diubah pada G2 maka kerjakan di bawahnya
 ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("G2").Value  'Pada sheet yang aktif range A6:G1048500 di-autofilter pada kolom ke-4 dengan kriteria pada Cell G2
 If (Target.Address = "$G$2" And Range("G2") = "") Then _ 'Jika yang diubah pada G2 dan G2 kosong (= "") maka kerjakan di bawahnya
 ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4 'Pada sheet yang aktif range A6:G1048500 di-autofilter pada kolom ke-4 dengan dipilih semua (select All)
 End Sub Cekrip terakhir dapat diubah begini:
  'ActiveSheet.Range("$A$6:$G$1048500").AutoFilter  'Pada sheet yang aktif range A6:G1048500 autofilter dimatikan
 
 Heee.... he.. heee....   bisa dicoba dengan Record macro Koq....
 Salam
 Dari Desa
 
  On 19/05/17 11.24, odong nando [hidden email] [belajar-excel] wrote:
 
     iya pak guru, benar sekali... trimakasih...
  klo berkenan tolong di bahasakan manusianya... biar saya bisa belajar juga...    br,
 
 odong nando
 
 
        Dari: "nangagus [hidden email] [belajar-excel]" <[hidden email]>
 Kepada: [hidden email]
 Dikirim: Jumat, 19 Mei 2017 10:40
 Judul: Re: [belajar-excel] clear filter
 
          Mungkinkah begini?
  Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$G$2" Then _
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("G2").Value
 If (Target.Address = "$G$2" And Range("G2") = "") Then _
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4
 End Sub
  salam NangAgus
 
  On 18/05/17 14.45, odong nando [hidden email] [belajar-excel] wrote:
 
     hai member beExcel
  dari code berikut :
  Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$2" Then ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("G2").Value Else End If End Sub
  bagaimanakah caranya jika saya ingin menambahkan saat cell "G2"  tidak berisi apapun maka akan meng clear filter form.
  mohon bantuannya soalnya saya udah utak utik sendiri n ga  berhasil, malah jadi ngaco... hehehe...   br,
 
 odong nando
   
 
   
 
         
 
  #yiv5494955680 #yiv5494955680 -- #yiv5494955680ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5494955680 #yiv5494955680ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5494955680 #yiv5494955680ygrp-mkp #yiv5494955680hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5494955680 #yiv5494955680ygrp-mkp #yiv5494955680ads {margin-bottom:10px;}#yiv5494955680 #yiv5494955680ygrp-mkp .yiv5494955680ad {padding:0 0;}#yiv5494955680 #yiv5494955680ygrp-mkp .yiv5494955680ad p {margin:0;}#yiv5494955680 #yiv5494955680ygrp-mkp .yiv5494955680ad a {color:#0000ff;text-decoration:none;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ygrp-lc {font-family:Arial;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ygrp-lc #yiv5494955680hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ygrp-lc .yiv5494955680ad {margin-bottom:10px;padding:0 0;}#yiv5494955680 #yiv5494955680actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5494955680 #yiv5494955680activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5494955680 #yiv5494955680activity span {font-weight:700;}#yiv5494955680 #yiv5494955680activity span:first-child {text-transform:uppercase;}#yiv5494955680 #yiv5494955680activity span a {color:#5085b6;text-decoration:none;}#yiv5494955680 #yiv5494955680activity span span {color:#ff7900;}#yiv5494955680 #yiv5494955680activity span .yiv5494955680underline {text-decoration:underline;}#yiv5494955680 .yiv5494955680attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5494955680 .yiv5494955680attach div a {text-decoration:none;}#yiv5494955680 .yiv5494955680attach img {border:none;padding-right:5px;}#yiv5494955680 .yiv5494955680attach label {display:block;margin-bottom:5px;}#yiv5494955680 .yiv5494955680attach label a {text-decoration:none;}#yiv5494955680 blockquote {margin:0 0 0 4px;}#yiv5494955680 .yiv5494955680bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5494955680 .yiv5494955680bold a {text-decoration:none;}#yiv5494955680 dd.yiv5494955680last p a {font-family:Verdana;font-weight:700;}#yiv5494955680 dd.yiv5494955680last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5494955680 dd.yiv5494955680last p span.yiv5494955680yshortcuts {margin-right:0;}#yiv5494955680 div.yiv5494955680attach-table div div a {text-decoration:none;}#yiv5494955680 div.yiv5494955680attach-table {width:400px;}#yiv5494955680 div.yiv5494955680file-title a, #yiv5494955680 div.yiv5494955680file-title a:active, #yiv5494955680 div.yiv5494955680file-title a:hover, #yiv5494955680 div.yiv5494955680file-title a:visited {text-decoration:none;}#yiv5494955680 div.yiv5494955680photo-title a, #yiv5494955680 div.yiv5494955680photo-title a:active, #yiv5494955680 div.yiv5494955680photo-title a:hover, #yiv5494955680 div.yiv5494955680photo-title a:visited {text-decoration:none;}#yiv5494955680 div#yiv5494955680ygrp-mlmsg #yiv5494955680ygrp-msg p a span.yiv5494955680yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5494955680 .yiv5494955680green {color:#628c2a;}#yiv5494955680 .yiv5494955680MsoNormal {margin:0 0 0 0;}#yiv5494955680 o {font-size:0;}#yiv5494955680 #yiv5494955680photos div {float:left;width:72px;}#yiv5494955680 #yiv5494955680photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5494955680 #yiv5494955680photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5494955680 #yiv5494955680reco-category {font-size:77%;}#yiv5494955680 #yiv5494955680reco-desc {font-size:77%;}#yiv5494955680 .yiv5494955680replbq {margin:4px;}#yiv5494955680 #yiv5494955680ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5494955680 #yiv5494955680ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5494955680 #yiv5494955680ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5494955680 #yiv5494955680ygrp-mlmsg select, #yiv5494955680 input, #yiv5494955680 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5494955680 #yiv5494955680ygrp-mlmsg pre, #yiv5494955680 code {font:115% monospace;}#yiv5494955680 #yiv5494955680ygrp-mlmsg * {line-height:1.22em;}#yiv5494955680 #yiv5494955680ygrp-mlmsg #yiv5494955680logo {padding-bottom:10px;}#yiv5494955680 #yiv5494955680ygrp-msg p a {font-family:Verdana;}#yiv5494955680 #yiv5494955680ygrp-msg p#yiv5494955680attach-count span {color:#1E66AE;font-weight:700;}#yiv5494955680 #yiv5494955680ygrp-reco #yiv5494955680reco-head {color:#ff7900;font-weight:700;}#yiv5494955680 #yiv5494955680ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ov li a {font-size:130%;text-decoration:none;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5494955680 #yiv5494955680ygrp-sponsor #yiv5494955680ov ul {margin:0;padding:0 0 0 8px;}#yiv5494955680 #yiv5494955680ygrp-text {font-family:Georgia;}#yiv5494955680 #yiv5494955680ygrp-text p {margin:0 0 1em 0;}#yiv5494955680 #yiv5494955680ygrp-text tt {font-size:120%;}#yiv5494955680 #yiv5494955680ygrp-vital ul li:last-child {border-right:none !important;}#yiv5494955680

   
Loading...