Assalamualaikum... Dear BeExceller
Saya mohon bantuannya dalam membuat VBA script untuk pencarian (Find) otomatis dengan menggunakan kondisi tertentu dari Tabel Source (Sheet Source) ke dalam table Target (Sheet Target 1, Sheet Target 2). Angka yang akan dicari adalah angka yang ada di kolom Amount Source di Tabel Source dan akan dicocokkan dengan angka di kolom Detail Debit di Sheet Target 1 dan Sheet Target 2. Adapun untuk persyaratan atau kondisi dalam pencarian adalah: Hanya akan mencari angka dari Tabel Source yang tidak ada tanggalnya atau kosong pada kolom Date Target. Angka yang akan dicocokan atau dicari hanya angka di kolom Debit Detail pada Sheet Target1 dan 2 yang memiliki kode 210 di kolom Code. Setelah ketemu dan ada kecocokan angka dari Amount Source dengan angka dalam tabel Target, data dari kedua tabel tersebut akan otomatis saling mengisi dengan kondisi sebagai berikut: o Tanggal dari kolom Date di Tabel Target akan mengisi di tanggal di kolom Date Target pada Sheet Source. o Tanggal dari kolom Date Source di Sheet Target akan mengisi di kolom Date 2 pada Sheet Target (Target1 atau Target2). o Angka dari kolom Doc Source di Sheet Source akan mengisi di kolom Doc Source pada Sheet Target (Target1 atau Target2). o Nama Unit di kolom Unit dari Sheet Source akan mengisi nama Unit di kolom Unit pada Sheet Target (Target1 atau Target2). o Nama Sheet pada Sheet Target 1 atau 2 akan mengisi di kolom Target Code di Sheet Source. o Pencarian akan mulai pada Sheet Target 1 dan jika tidak ditemukan maka akan diteruskan pada Sheet Target 2. o Setelah ada angka yang ditemukan dan dicocokan, maka akan mencari angka berikutnya di Sheet Source. o Option Find yang digunakan adalah : Match Entire Cell Contents. Untuk memudahkan saya lampirkan filenya beserta contoh pada Sheet Source dan Sheet Target 1 dan Target 2 Terima kasih Edo
Auto Find.xlsx
Description: MS-Excel 2007 spreadsheet
