Dear Edo,
Coba deklarasi untuk data dari as Long di ganti As String.Untuk penggunaan
Deklarasi sudah banyak di milis ini, coba di lihat-lihat lagi.
TerimaKasih.
Pada Jumat, 4 Desember 2015 14:55, "[email protected] [belajar-excel]"
<[email protected]> menulis:
Assalammualaikum..
Dear All,
Saya sedang mencoba membuat kode VBA sederhana untuk mengambil data dari tabel
data untuk ditampilkan pada tabel resume dengan kondisi tidak ada duplikasi dan
sudah terjumlah sesuai dengan datanya (file terlampir).
Saya mencoba untuk membuat kode sebagai berikut:
Private Sub CommandButton1_Click()
Dim i As Long
Dim j As Long
Dim k As Long
Dim tgl As Date
Dim data As Long
tgl = Range("J3").Value
data = Range("J4").Value
k = Range("A18").End(xlDown).Row
i = Range("A4").End(xlDown).Row
For j = 1 To i
If Cells(j, 1) = tgl And Cells(j, 2) = data1 Then
Cells(k, 1).Value = tgl
Cells(k, 2).Value = data1
End If
Next j
End Sub
Kode diatas tersebut belum selesai karena saya selalu mendapatkan error pada
data = Range("J4").Value.
Mohon bantuannya untuk dapatnya diberitahukan dimana letak kesalahannya atau
kira-kira untuk menyelseaikannya apakah dapat menggunakan VBA dengan metode
yang lain.
Terima kasih
Wassalammualaikum Wr.WB.
Edo
#yiv6251433441 #yiv6251433441 -- #yiv6251433441ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6251433441
#yiv6251433441ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6251433441
#yiv6251433441ygrp-mkp #yiv6251433441hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv6251433441 #yiv6251433441ygrp-mkp #yiv6251433441ads
{margin-bottom:10px;}#yiv6251433441 #yiv6251433441ygrp-mkp .yiv6251433441ad
{padding:0 0;}#yiv6251433441 #yiv6251433441ygrp-mkp .yiv6251433441ad p
{margin:0;}#yiv6251433441 #yiv6251433441ygrp-mkp .yiv6251433441ad a
{color:#0000ff;text-decoration:none;}#yiv6251433441 #yiv6251433441ygrp-sponsor
#yiv6251433441ygrp-lc {font-family:Arial;}#yiv6251433441
#yiv6251433441ygrp-sponsor #yiv6251433441ygrp-lc #yiv6251433441hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6251433441
#yiv6251433441ygrp-sponsor #yiv6251433441ygrp-lc .yiv6251433441ad
{margin-bottom:10px;padding:0 0;}#yiv6251433441 #yiv6251433441actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6251433441
#yiv6251433441activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6251433441
#yiv6251433441activity span {font-weight:700;}#yiv6251433441
#yiv6251433441activity span:first-child
{text-transform:uppercase;}#yiv6251433441 #yiv6251433441activity span a
{color:#5085b6;text-decoration:none;}#yiv6251433441 #yiv6251433441activity span
span {color:#ff7900;}#yiv6251433441 #yiv6251433441activity span
.yiv6251433441underline {text-decoration:underline;}#yiv6251433441
.yiv6251433441attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv6251433441 .yiv6251433441attach div a
{text-decoration:none;}#yiv6251433441 .yiv6251433441attach img
{border:none;padding-right:5px;}#yiv6251433441 .yiv6251433441attach label
{display:block;margin-bottom:5px;}#yiv6251433441 .yiv6251433441attach label a
{text-decoration:none;}#yiv6251433441 blockquote {margin:0 0 0
4px;}#yiv6251433441 .yiv6251433441bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv6251433441
.yiv6251433441bold a {text-decoration:none;}#yiv6251433441 dd.yiv6251433441last
p a {font-family:Verdana;font-weight:700;}#yiv6251433441 dd.yiv6251433441last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6251433441
dd.yiv6251433441last p span.yiv6251433441yshortcuts
{margin-right:0;}#yiv6251433441 div.yiv6251433441attach-table div div a
{text-decoration:none;}#yiv6251433441 div.yiv6251433441attach-table
{width:400px;}#yiv6251433441 div.yiv6251433441file-title a, #yiv6251433441
div.yiv6251433441file-title a:active, #yiv6251433441
div.yiv6251433441file-title a:hover, #yiv6251433441 div.yiv6251433441file-title
a:visited {text-decoration:none;}#yiv6251433441 div.yiv6251433441photo-title a,
#yiv6251433441 div.yiv6251433441photo-title a:active, #yiv6251433441
div.yiv6251433441photo-title a:hover, #yiv6251433441
div.yiv6251433441photo-title a:visited {text-decoration:none;}#yiv6251433441
div#yiv6251433441ygrp-mlmsg #yiv6251433441ygrp-msg p a
span.yiv6251433441yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6251433441
.yiv6251433441green {color:#628c2a;}#yiv6251433441 .yiv6251433441MsoNormal
{margin:0 0 0 0;}#yiv6251433441 o {font-size:0;}#yiv6251433441
#yiv6251433441photos div {float:left;width:72px;}#yiv6251433441
#yiv6251433441photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv6251433441
#yiv6251433441photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6251433441
#yiv6251433441reco-category {font-size:77%;}#yiv6251433441
#yiv6251433441reco-desc {font-size:77%;}#yiv6251433441 .yiv6251433441replbq
{margin:4px;}#yiv6251433441 #yiv6251433441ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv6251433441 #yiv6251433441ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6251433441
#yiv6251433441ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6251433441
#yiv6251433441ygrp-mlmsg select, #yiv6251433441 input, #yiv6251433441 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv6251433441
#yiv6251433441ygrp-mlmsg pre, #yiv6251433441 code {font:115%
monospace;}#yiv6251433441 #yiv6251433441ygrp-mlmsg *
{line-height:1.22em;}#yiv6251433441 #yiv6251433441ygrp-mlmsg #yiv6251433441logo
{padding-bottom:10px;}#yiv6251433441 #yiv6251433441ygrp-msg p a
{font-family:Verdana;}#yiv6251433441 #yiv6251433441ygrp-msg
p#yiv6251433441attach-count span {color:#1E66AE;font-weight:700;}#yiv6251433441
#yiv6251433441ygrp-reco #yiv6251433441reco-head
{color:#ff7900;font-weight:700;}#yiv6251433441 #yiv6251433441ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv6251433441 #yiv6251433441ygrp-sponsor
#yiv6251433441ov li a {font-size:130%;text-decoration:none;}#yiv6251433441
#yiv6251433441ygrp-sponsor #yiv6251433441ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv6251433441
#yiv6251433441ygrp-sponsor #yiv6251433441ov ul {margin:0;padding:0 0 0
8px;}#yiv6251433441 #yiv6251433441ygrp-text
{font-family:Georgia;}#yiv6251433441 #yiv6251433441ygrp-text p {margin:0 0 1em
0;}#yiv6251433441 #yiv6251433441ygrp-text tt {font-size:120%;}#yiv6251433441
#yiv6251433441ygrp-vital ul li:last-child {border-right:none
!important;}#yiv6251433441
