Dear Gugun;

File terlampir sekedar contoh, masih banyak kekurangan dan belum dipikirkan formula maupun cekripnya.
Misalnya belum ada data tentang data pindahan, saldo pinjaman.

Secara garis besar dibuat sebagai berikut:

1. Isian disimpan pada sheet data dibuat dalam bentuk tabel, data dibuat mendekati database sesuai arahan mas Kid di sini <http://excel-mr-kid.blogspot.co.id/2013/04/pivot-table-1-kenalan.html>. (sayangnya data belum diberi header, ketik sendiri headernya  yaa...)

2. Tempat menyimpan data yang diberikan Gugun lebih cocok digunakan sebagai report yang datanya diambil dari sheet data.

3. Isian otomatis terisi apabila data sudah ada pada sheet data, dan isian akan otomatis kosong apabila data belum ada pada sheet data.

4. Kunci data (data unik/keyword) diletakkan pada sheet Input cell C5 dan disheet data kolom E (tabel column5)

Macro copas dapat dibuat seperti ini:
Sub Nyimpen()
Dim baris As Integer, i As Integer
baris = golek(Range("D1")) 'mencari nomer baris dalam data (Jika data sudah ada) If baris = 0 Then baris = Sheet3.Range("A65536").End(xlUp).Row ' mencari baris kosong Application.ScreenUpdating = False                                                         ' mematikan kedip-kedip layar
For i = 1 To 23 ' loop untuk 23 data sesuai isian
    Sheet1.Cells(i, 3).Copy ' menyalin dari sheet isian
    Sheet3.Cells(baris, i).PasteSpecial xlPasteValues                              ' menempel pada sheet data
    Application.CutCopyMode = False 'mematikan kedip-kedip copy
Next i ' melanjutkan loop selanjutnya
Application.ScreenUpdating = True                                                         ' menghidupkan kembali kedip-kedip layar
End Sub


Salam

GoeZ

On 15/09/2017 10:43, nangagus nanga...@gmail.com [belajar-excel] wrote:

Dear Gugun,

File datanya tidak bagus, silahkan diperbaiki dahulu nanti saya bantu.

dataBase yang baik menurut mas Kid:

Tabel-tabel  memiliki kaidah database dengan ciri khas sebagai berikut :

  * Header
      o diletakkan pada baris 1 dan hanya terdiri dari 1 baris saja
      o setiap kolom Excel berisi sebuah header, jadi kolom A milik
        id_produk dan id_produk pasti hanya di kolom A Excel, begitu
        juga dengan kolom lainnya
      o ditata rapat (dari kiri ke kanan mulai A1), sehingga tidak ada
        kolom kosong tanpa teks header
      o setiap cell header berisi data tertentu dan tidak ada dua atau
        lebih kolom berisi suatu data tanpa header
      o tidak ada header yang di-merge cell, baik merge cell baris
        maupun merge cell kolom
      o setiap header menjadi nama setiap kolom data
  * Kolom
      o setiap kolom data memiliki nama kolom
      o setiap kolom berisi data dengan tipe data yang sama
      o tidak ada pengaturan alignment pada kolom, agar tampak jelas
        kesamaan tipe data dalam kolom tersebut
  * Records
      o record pertama diletakkan tepat pada baris 2
      o tidak ada baris kosong diantara dua record, jadi minimal ada
        satu field dalam record yang memiliki nilai
      o semua field terisi penuh jika seharusnya memiliki suatu nilai
        tertentu, meskipun nilainya sama dengan record sebelumnya
        (lihat id_produk bernilai 1 tertulis disemua record dan tidak
        hanya di record pertama saja)

selengkapnya dapat dibaca di sini <http://excel-mr-kid.blogspot.co.id/2013/04/pivot-table-1-kenalan.html>

salam

NAng Agus

On 14/09/2017 23:21, gugun wiguna goen...@gmail.com [belajar-excel] wrote:

Salam hormat saya kepada para Suhu yang ada di sini
Mohon pencerahan nya,, saya ingin copas data value dengan macro dari
form isian ke tabel tertentu berdasarkan nama tabel nya,,,(contoh file
terlampir)

terimakasih sebelum nya, Semoga kebaikan para Suhu dibalas Tuhan

Attachment: Copy of semoga ada yang menolong.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Kirim email ke