AssalamualaikumPak Kid
Benar Pak KID, setelah kode saya pindah ke Userform advance filter bekerja sama
seperti code advance filter saat diletakkan pada module
Terimakasih banyak penjelasannya Pak
Wassalamualaikum
Pada Jumat, 13 November 2015 9:47, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Wa'alaikumussalam wr wb
Hai Hairul,
Pindahkan saja prosedur tersebut ke area penulisan kode VBA milik userform.
Apakah ketika Anda mencobanya terjadi masalah ?
Tapi, semoga karena Anda belum mencobanya.
Wassalamu'alaikum wr wb
Kid
2015-11-12 22:34 GMT+07:00 HAIRUL ALAM ha_m...@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com>:
Assalamualaikum
Para Master
Maaf saya punya masalah excel seperti ini,pada input data diperintah dengan
kode macro vba yang diletakkan pada userform dan module, dengan cara kerja
input pada userform masuk ke worksheet dan perintah advance filter dengan kode
macro pada module.
Bagaimana kode bila cara kerja dan perintah cukup pada userform saja
KODE VBA PADA USERFORMPrivate Sub cmdstrKM_Click()Set kmSTR =
Sheets("MAIN")With kmSTRkmSTR.Range("C5").Value =cbokmSTR.ValueEnd
WithSTRINGING_KMSheets("STR").SelectEnd SubKODE VBAPADA MODULESub
STRINGING_KM()Dim TabelData As Range, Kriteria As Range,CopyKe As Range, Unik
As Boolean Set TabelData =ThisWorkbook.Sheets("TRACE").Range("A1") Set
Kriteria =ThisWorkbook.Sheets("MAIN").Range("C4:C5") Set CopyKe
=ThisWorkbook.Sheets("STR").Range("B11:AT11") Unik = False
TabelData.CurrentRegion.AdvancedFilter
Action:=xlFilterCopy,CriteriaRange:=Kriteria, CopyToRange:=CopyKe, Unique:=Unik
ThisWorkbook.Sheets("STR").Activate
ThisWorkbook.Sheets("MAIN").Range("B2").Value = _ "STRINGING KM : " &
JmlDataCocok & " data cocokdengan kriteria"End SubTerimakasih
WassalamualaikumHairul Alam
#yiv8853793606 #yiv8853793606 -- #yiv8853793606ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8853793606
#yiv8853793606ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8853793606
#yiv8853793606ygrp-mkp #yiv8853793606hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv8853793606 #yiv8853793606ygrp-mkp #yiv8853793606ads
{margin-bottom:10px;}#yiv8853793606 #yiv8853793606ygrp-mkp .yiv8853793606ad
{padding:0 0;}#yiv8853793606 #yiv8853793606ygrp-mkp .yiv8853793606ad p
{margin:0;}#yiv8853793606 #yiv8853793606ygrp-mkp .yiv8853793606ad a
{color:#0000ff;text-decoration:none;}#yiv8853793606 #yiv8853793606ygrp-sponsor
#yiv8853793606ygrp-lc {font-family:Arial;}#yiv8853793606
#yiv8853793606ygrp-sponsor #yiv8853793606ygrp-lc #yiv8853793606hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8853793606
#yiv8853793606ygrp-sponsor #yiv8853793606ygrp-lc .yiv8853793606ad
{margin-bottom:10px;padding:0 0;}#yiv8853793606 #yiv8853793606actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8853793606
#yiv8853793606activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8853793606
#yiv8853793606activity span {font-weight:700;}#yiv8853793606
#yiv8853793606activity span:first-child
{text-transform:uppercase;}#yiv8853793606 #yiv8853793606activity span a
{color:#5085b6;text-decoration:none;}#yiv8853793606 #yiv8853793606activity span
span {color:#ff7900;}#yiv8853793606 #yiv8853793606activity span
.yiv8853793606underline {text-decoration:underline;}#yiv8853793606
.yiv8853793606attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv8853793606 .yiv8853793606attach div a
{text-decoration:none;}#yiv8853793606 .yiv8853793606attach img
{border:none;padding-right:5px;}#yiv8853793606 .yiv8853793606attach label
{display:block;margin-bottom:5px;}#yiv8853793606 .yiv8853793606attach label a
{text-decoration:none;}#yiv8853793606 blockquote {margin:0 0 0
4px;}#yiv8853793606 .yiv8853793606bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv8853793606
.yiv8853793606bold a {text-decoration:none;}#yiv8853793606 dd.yiv8853793606last
p a {font-family:Verdana;font-weight:700;}#yiv8853793606 dd.yiv8853793606last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8853793606
dd.yiv8853793606last p span.yiv8853793606yshortcuts
{margin-right:0;}#yiv8853793606 div.yiv8853793606attach-table div div a
{text-decoration:none;}#yiv8853793606 div.yiv8853793606attach-table
{width:400px;}#yiv8853793606 div.yiv8853793606file-title a, #yiv8853793606
div.yiv8853793606file-title a:active, #yiv8853793606
div.yiv8853793606file-title a:hover, #yiv8853793606 div.yiv8853793606file-title
a:visited {text-decoration:none;}#yiv8853793606 div.yiv8853793606photo-title a,
#yiv8853793606 div.yiv8853793606photo-title a:active, #yiv8853793606
div.yiv8853793606photo-title a:hover, #yiv8853793606
div.yiv8853793606photo-title a:visited {text-decoration:none;}#yiv8853793606
div#yiv8853793606ygrp-mlmsg #yiv8853793606ygrp-msg p a
span.yiv8853793606yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8853793606
.yiv8853793606green {color:#628c2a;}#yiv8853793606 .yiv8853793606MsoNormal
{margin:0 0 0 0;}#yiv8853793606 o {font-size:0;}#yiv8853793606
#yiv8853793606photos div {float:left;width:72px;}#yiv8853793606
#yiv8853793606photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv8853793606
#yiv8853793606photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8853793606
#yiv8853793606reco-category {font-size:77%;}#yiv8853793606
#yiv8853793606reco-desc {font-size:77%;}#yiv8853793606 .yiv8853793606replbq
{margin:4px;}#yiv8853793606 #yiv8853793606ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv8853793606 #yiv8853793606ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8853793606
#yiv8853793606ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8853793606
#yiv8853793606ygrp-mlmsg select, #yiv8853793606 input, #yiv8853793606 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv8853793606
#yiv8853793606ygrp-mlmsg pre, #yiv8853793606 code {font:115%
monospace;}#yiv8853793606 #yiv8853793606ygrp-mlmsg *
{line-height:1.22em;}#yiv8853793606 #yiv8853793606ygrp-mlmsg #yiv8853793606logo
{padding-bottom:10px;}#yiv8853793606 #yiv8853793606ygrp-msg p a
{font-family:Verdana;}#yiv8853793606 #yiv8853793606ygrp-msg
p#yiv8853793606attach-count span {color:#1E66AE;font-weight:700;}#yiv8853793606
#yiv8853793606ygrp-reco #yiv8853793606reco-head
{color:#ff7900;font-weight:700;}#yiv8853793606 #yiv8853793606ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv8853793606 #yiv8853793606ygrp-sponsor
#yiv8853793606ov li a {font-size:130%;text-decoration:none;}#yiv8853793606
#yiv8853793606ygrp-sponsor #yiv8853793606ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv8853793606
#yiv8853793606ygrp-sponsor #yiv8853793606ov ul {margin:0;padding:0 0 0
8px;}#yiv8853793606 #yiv8853793606ygrp-text
{font-family:Georgia;}#yiv8853793606 #yiv8853793606ygrp-text p {margin:0 0 1em
0;}#yiv8853793606 #yiv8853793606ygrp-text tt {font-size:120%;}#yiv8853793606
#yiv8853793606ygrp-vital ul li:last-child {border-right:none
!important;}#yiv8853793606
