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 kolom dan bukan 0 kolom)
*
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]>
> **
>
>
> 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
>
>
>
