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]>
> 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]>
>
>> **
>>
>>
>> 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
>>
>>
>>
>
>
