Alhamdulillah. Semoga Pak Mudaguru bersedia berbagi ke seluruh member milis hasil utak-utiknya. Insya Allah hal ini akan banyak manfaatnya bagi semua pihak, terutama buat Pak Mudaguru. Semoga rekan BeExceller bisa membantu untuk membuatnya menjadi lebih dekat ke 100 persen karena turut bersemangat meneladani usaha keras yang Pak Mudaguru lakukan.
Wassalamualaikum Wr. Wb. Kid. 2012/6/25 guru muda <[email protected]> > ** > > > Terima kasih Pak. Setelah beberapa meluangkan waktu berjam-jam di depan > komputer, akhirnya saya bisa utak atik code tersebut meskipun tidak 100 > persen memenuhi kebutuhan saya. tetapi ini menjadi pelajaran yang sangat > berharga. > > > > > > > > > > > > --- On *Sat, 6/23/12, Kid Mr. <[email protected]>* wrote: > > > From: Kid Mr. <[email protected]> > Subject: Re: [belajar-excel] Memodifikasi CODE VBA > To: [email protected] > Date: Saturday, June 23, 2012, 9:51 AM > > > > > ralat : > harusnya : > 'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 baris dan 0 > kolom *(bagian merah sepertinya harus 1 baris dan bukan 0 baris)* > Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, > 1).End(xlUp).Offset(0, *0*) > > dan bukan > 'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 > baris dan 0 kolom *(bagian merah sepertinya harus 1 kolom dan bukan 0 > kolom)* > Target.EntireRow.Copy > Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, *0*) > > > Kid. > > 2012/6/23 Kid Mr. <[email protected]<http://mc/[email protected]> > > > > Isi script dalam sheet sheet1 Anda adalah : > Private Sub Worksheet_Change(ByVal Target As Range) > If Target.Column = 1 And Target.Cells.Count = 1 Then > Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, > 1).End(xlUp).Offset(0, 0) > End If > End Sub > > Kira-kira Anda paham gak dengan script ini, sehingga bisa memutuskan suka > atau tidak suka. > Bukankah Anda suka dengan gaji ke-13 bahkan sampai ke-15 karena sudah > paham kegunaan dari gaji itu ? > > Bunyi script di atas : > > 'jika nilai suatu cell dalam worksheet berubah (worksheet_change) maka > jalankan prosedur ini, > 'dan ingat-ingatlah semua range yang berubah tersebut (target as range) > Private Sub Worksheet_Change(ByVal Target As Range) > > 'jika yang berubah adalah range di kolom ke (target.column) 1 (berarti > kolom A) dan (AND) jumlah cell yang berubah nilai (target.cells.count) > adalah 1 bijik, > 'maka lakukanlah semua perintah dalam blok tersebut > If Target.Column = 1 And Target.Cells.Count = 1 Then > > 'berikut perintah dalam blok kondisi di atas ketika > range yang berubah di kolom ke-1 dan jumlah cell yang berubah hanya 1 : > 'pada seluruh range yang berubah nilainya (Target), blok > seluruh barisnya (EntireRow) kemudian lakukan copy ke clipboard (Copy) > 'diikuti mem-paste ke sheet ke-2 (bukan sheet bernama 2) > [Sheets(2)] pada cell (ingat cell dalam sheet ke-2) di baris terakhir > sheets (rows.count) > 'pada kolom ke-1, kemudian pindah keatas hingga bertemu > cell yang tidak kosong (ingat, masih di kolom 1) [ End(xlup) ] > 'dan dilanjutkan dengan proses lompat (offset) sebanyak > 0 baris dan 0 kolom *(bagian merah sepertinya harus 1 baris dan bukan 0 > baris)* > Target.EntireRow.Copy > Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(0, *0*) > > 'blok kondisi berakhir disini > End If > > 'akhir pekerjaan dalam prosedur yang dijalankan karena adanya cell yang > berubah nilai > End Sub > > Sampai disini, biasanya akan mulai paham kenapa dan mengapa semua hal > terjadi. > kira-kira apa yang harus diubah untuk memenuhi kebutuhan Anda ? > >> Tidak suka (mulai wajar setelah mulai memahami penyebab kejadian) kalau > sebuah cell berubah di kolom A maka proses dijalankan ? Maka hapus bagian > yang terkait tentang hal itu > >> Ingin meng-copy 1 cell saja (tidak semua baris), maka hapus bagian blok > seluruh baris > >> sheet tujuan paste berbeda, maka ganti penunjukan ke sheet ke-2 dengan > sheet tujuan Anda dinomor berapa > >> lokasi hasil copy tidak pada kolom yang sama dan berurutan dengan yang > diinput ? Maka susun kondisi baru berdasar nomor kolom > seperti : (kalau yang di copy itu di kolom 1, maka paste ke kolom itu juga > tapi di sheet dengan nomor tujuan anda (bisa 2, 3, dst) > IF target.column=1 then > target.copy destination:=sheets(nomor tujuan Anda).cells( target.row > , target.column ) > endif > > 'bisa jadi ada kondisi lain, kalau yang di copy kolom 7, maka paste ke > sheet tujuan di kolom 23 > IF target.column=7 then > target.copy destination:=sheets(nomor tujuan Anda).cells( target.row > , 23 ) > endif > > Silakan mencoba mengubah sendiri agar bisa lebih memahami sebuah dunia > baru tersebut pantas atau tidak pantas untuk disukai atau tidak disukai. > > Wassalam, > Kid. > > 2012/6/23 guru muda > <[email protected]<http://mc/[email protected]> > > > > ** > > > VBA Code yang ada saat ini dapat mengkopi secara otomatis dari isi dari baris > /row 1 di Sheet1 ke cell baris 1 di Sheet2, setelah menekan tombol > enter/tab/penunjuk panah pada keyboard. Bahkan di sepanjang kolom A di > Sheet1, apabila kita memasukkan/mengetikkan huruf/angka maka akan masuk > ke cell A1 di Sheet2 -Ini yang paling tidak saya suka dan mohon fungsi > ini dihilangkan saja. > > > Selengkapnya lihat lampiran > > > > >
