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