Ini memang langkah Master.
Sebelumnya saya coba buat tanpa Cancel = True namun programnya looping terus 
sampai error.

Mr Kid, mau nanya mengenai  CLng(Right(.Value, 7)), mengapa 
kalau CLng dihilangkan hasilnya menjadi error, padahal kan tujuh angka tsb 
(dari kanan) sudah merupakan bilangan bulat....


Mohon pencerahannya.

Terima kasih.

Salam,
Hendrik Karnadi


----- Forwarded Message -----
From: Kid Mr. <[email protected]>
To: [email protected] 
Sent: Thursday, 30 August 2012, 16:26
Subject: Re: [belajar-excel] Isian Bon sesuai dengan baris yang di klik
 

  
Coba ubah isi prosedur event worksheet before double click menjadi :
    With Target   'pada object range bernama target
        If .Count = 1 Then         'cek jumlah cell yang di double click 
(hehehe... butuh gak ya?)
            If .Column = 35 Then   'cek indeks kolom yang di double click
                Range("i33").Value = CLng(Right(.Value, 7))    'ganti isi cell 
i33
                Call cetak         'panggil prosedur cetak
                Cancel = True      'batalkan proses double click
            End If                 'akhir blok cek indeks kolom
        End If                     'akhir blok cek jumlah cell yang di double 
click
    End With                       'akhir blok pada object range bernama target

Wassalam,
Kid.


2012/8/30 Kelik Pitoyo <[email protected]>

 
>  
>Selamat Siang,
>Yth. Be Exceller,
>
>Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak  code 
>/makro dan rumus yang saya ambil dari temen-temen.
>Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
>bila saya menginginkan  kolom "AI" diklik 2x maka akan muncul print preview 
>form bon BBM,
>Permasalahan yang saya hadapi  isian bon BBM  belum sesuai dengan baris yang 
>saya klik untuk di cetak. (harus manual mengganti no  BON)
>Bagaimana pemecahannya, mohon pencerahannya.
>
>Terima kasih sebelumnya,
>Salam,
>kelik
>
>

 

Kirim email ke