Coba copas VBA ini pada VBE Sheet1.....
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) Dim dTabel As Range,
Tampil As Range Dim r As Long, n As Long ' siti Vi / 30 May 2011 / beExcel
case ' FILTER DGN MENGOPY YG COCOK DI RANGE LAIN
'------------------------------------- Application.Calculation =
xlCalculationManual Application.EnableEvents = False On Error GoTo AKHIR
If Target.Count = 1 Then If Target.Address = "$J$5" Or Target.Address =
"$K$5" Then Set dTabel = Cells(1, 1).CurrentRegion Set Tampil =
Cells(7, 9).CurrentRegion Tampil.ClearContents For r = 2 To
dTabel.Rows.Count If dTabel(r, 3) = [J5] And dTabel(r, 6) = [K5]
Then n = n + 1 Tampil(n, 1) = dTabel(r, 1)
Tampil(n, 2) = dTabel(r, 2) Tampil(n, 3) = dTabel(r, 3)
Tampil(n, 4) = dTabel(r, 4) Tampil(n, 5) = dTabel(r, 5)
Tampil(n, 6) = dTabel(r, 6) End If Next
End If End IfAKHIR: Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = TrueEnd Sub
Perubahan terjadi pada warna biru.
Salam,HK
From: "[email protected] [belajar-excel]"
<[email protected]>
To: [email protected]
Sent: Tuesday, 23 February 2016, 10:47
Subject: [belajar-excel] Filtering 2 kriteria dengan vba [1 Attachment]
Yth. Para Master Excel....Saya mengucapkan banyak terima kasih apabila para
master excel berkenan merevisi script vba filering 1 kriteria warisan siti Vi
(alm) tgl. 30 May 2011 menjadi 2 kriteria.Masalahnya saya sudah mencoba
merevisi sampai berbulan-bulan namun belum berhasil.
#yiv2951625245 #yiv2951625245 -- #yiv2951625245ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2951625245
#yiv2951625245ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2951625245
#yiv2951625245ygrp-mkp #yiv2951625245hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv2951625245 #yiv2951625245ygrp-mkp #yiv2951625245ads
{margin-bottom:10px;}#yiv2951625245 #yiv2951625245ygrp-mkp .yiv2951625245ad
{padding:0 0;}#yiv2951625245 #yiv2951625245ygrp-mkp .yiv2951625245ad p
{margin:0;}#yiv2951625245 #yiv2951625245ygrp-mkp .yiv2951625245ad a
{color:#0000ff;text-decoration:none;}#yiv2951625245 #yiv2951625245ygrp-sponsor
#yiv2951625245ygrp-lc {font-family:Arial;}#yiv2951625245
#yiv2951625245ygrp-sponsor #yiv2951625245ygrp-lc #yiv2951625245hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2951625245
#yiv2951625245ygrp-sponsor #yiv2951625245ygrp-lc .yiv2951625245ad
{margin-bottom:10px;padding:0 0;}#yiv2951625245 #yiv2951625245actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2951625245
#yiv2951625245activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2951625245
#yiv2951625245activity span {font-weight:700;}#yiv2951625245
#yiv2951625245activity span:first-child
{text-transform:uppercase;}#yiv2951625245 #yiv2951625245activity span a
{color:#5085b6;text-decoration:none;}#yiv2951625245 #yiv2951625245activity span
span {color:#ff7900;}#yiv2951625245 #yiv2951625245activity span
.yiv2951625245underline {text-decoration:underline;}#yiv2951625245
.yiv2951625245attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv2951625245 .yiv2951625245attach div a
{text-decoration:none;}#yiv2951625245 .yiv2951625245attach img
{border:none;padding-right:5px;}#yiv2951625245 .yiv2951625245attach label
{display:block;margin-bottom:5px;}#yiv2951625245 .yiv2951625245attach label a
{text-decoration:none;}#yiv2951625245 blockquote {margin:0 0 0
4px;}#yiv2951625245 .yiv2951625245bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2951625245
.yiv2951625245bold a {text-decoration:none;}#yiv2951625245 dd.yiv2951625245last
p a {font-family:Verdana;font-weight:700;}#yiv2951625245 dd.yiv2951625245last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2951625245
dd.yiv2951625245last p span.yiv2951625245yshortcuts
{margin-right:0;}#yiv2951625245 div.yiv2951625245attach-table div div a
{text-decoration:none;}#yiv2951625245 div.yiv2951625245attach-table
{width:400px;}#yiv2951625245 div.yiv2951625245file-title a, #yiv2951625245
div.yiv2951625245file-title a:active, #yiv2951625245
div.yiv2951625245file-title a:hover, #yiv2951625245 div.yiv2951625245file-title
a:visited {text-decoration:none;}#yiv2951625245 div.yiv2951625245photo-title a,
#yiv2951625245 div.yiv2951625245photo-title a:active, #yiv2951625245
div.yiv2951625245photo-title a:hover, #yiv2951625245
div.yiv2951625245photo-title a:visited {text-decoration:none;}#yiv2951625245
div#yiv2951625245ygrp-mlmsg #yiv2951625245ygrp-msg p a
span.yiv2951625245yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2951625245
.yiv2951625245green {color:#628c2a;}#yiv2951625245 .yiv2951625245MsoNormal
{margin:0 0 0 0;}#yiv2951625245 o {font-size:0;}#yiv2951625245
#yiv2951625245photos div {float:left;width:72px;}#yiv2951625245
#yiv2951625245photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv2951625245
#yiv2951625245photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2951625245
#yiv2951625245reco-category {font-size:77%;}#yiv2951625245
#yiv2951625245reco-desc {font-size:77%;}#yiv2951625245 .yiv2951625245replbq
{margin:4px;}#yiv2951625245 #yiv2951625245ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv2951625245 #yiv2951625245ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2951625245
#yiv2951625245ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2951625245
#yiv2951625245ygrp-mlmsg select, #yiv2951625245 input, #yiv2951625245 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2951625245
#yiv2951625245ygrp-mlmsg pre, #yiv2951625245 code {font:115%
monospace;}#yiv2951625245 #yiv2951625245ygrp-mlmsg *
{line-height:1.22em;}#yiv2951625245 #yiv2951625245ygrp-mlmsg #yiv2951625245logo
{padding-bottom:10px;}#yiv2951625245 #yiv2951625245ygrp-msg p a
{font-family:Verdana;}#yiv2951625245 #yiv2951625245ygrp-msg
p#yiv2951625245attach-count span {color:#1E66AE;font-weight:700;}#yiv2951625245
#yiv2951625245ygrp-reco #yiv2951625245reco-head
{color:#ff7900;font-weight:700;}#yiv2951625245 #yiv2951625245ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv2951625245 #yiv2951625245ygrp-sponsor
#yiv2951625245ov li a {font-size:130%;text-decoration:none;}#yiv2951625245
#yiv2951625245ygrp-sponsor #yiv2951625245ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv2951625245
#yiv2951625245ygrp-sponsor #yiv2951625245ov ul {margin:0;padding:0 0 0
8px;}#yiv2951625245 #yiv2951625245ygrp-text
{font-family:Georgia;}#yiv2951625245 #yiv2951625245ygrp-text p {margin:0 0 1em
0;}#yiv2951625245 #yiv2951625245ygrp-text tt {font-size:120%;}#yiv2951625245
#yiv2951625245ygrp-vital ul li:last-child {border-right:none
!important;}#yiv2951625245 Re: [belajar-excel] Filtering 2 kriteria dengan vba
hendrik karnadi [email protected] [belajar-excel] Tue, 23 Feb 2016 00:11:42 -0800
- [belajar-excel] F... [email protected] [belajar-excel]
- Re: [belajar... hendrik karnadi [email protected] [belajar-excel]
- Re: [bel... [email protected] [belajar-excel]
