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
Tabel Resume.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
