thank you atas petunjuknya, akan segera di coba codingnya.
> ----- Original Message -----
> From: Haps
> Sent: 11/12/11 07:54 AM
> To: [email protected]
> Subject: Re: [belajar-excel] insert message
>
> Pada saat kita mengklik MENU ataupun ICON untuk mengInsert ROWs / COLUMNs
> menurut yg saya ketahui* tidak terjadi suatu EVENT apapun di worksheet atau
> workbook.*
> Ini mengakibatkan: Peng-OTOMATIS-an untuk menunda insertion = tidak ada.
> (walaupun prosedur telah ditulis, tetapi prosedur tidak akan terlaksana
> (RUN / JALAN)
> dengan sendirinya)
>
> Event Worksheet_Change memang terjadi (occured) ketika KOLOM/BARIS *TELAH
> (baru saja)*
> *di-INSERT-kan*..
>
> Jadi (sementara belum "nemu" trick lain, dan menunggu pendapat &/ solusi
> members lain...)
> mungkin caranya begini
>
> * prosedur ditulis di bawah Event WorkSheet_Change
> * ketika *terjadi insertion Kolom* atau Baris ( = kolom / baris sudah
> TERLANJUR di insertkan)
> ** kita deteks apakah *object range Target* punya ketinggian = jumlah
> baris di sheet
> jika IYA (yg berarti telah terjadi PERUBAHAN yg melibatkan range
> berdimensi KOLOM),
> ** munculkan MsgBox yg memberi pilihan Yes / No
> Yes = keluar dari prosedur
> No = Mendelete KOLOMs / BARISs yg baru saja di-insertkan, baru keluar
> dari prosedur
>
> Contoh event procedure di bawah ini (di tulis di module milik salah satu
> SHEET)
> baru bisa mengenali adanya *perubahan* KOLOM PENUH
> tetapi BELUM bisa membedakan apakah yg terjadi = Peng-INSERT-an ataukah
> Pend-DELETE-an
> ataukah ada operasi copy paste dari ke range yg tingginya SEKOLOM PENUH.
>
> Dengan kata lain, makro ini belum sempurna, & perlu penyempurnan (kalau ada
> caranya)
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> *' coded by hapsari / 10 nov 2011*
> Dim YesCancel As Long
> Const Msg As String = "Mungkin telah terjadi Penyisipan KOLOM" & vbCrLf
> Application.EnableEvents = False
> Application.DisplayAlerts = False
>
> If Target.Rows.Count = Cells.Rows.Count Then
> YesCancel = MsgBox(Msg & "YES = Biarkan saja, CANCEL = Batalkan", 48
> + vbOKCancel)
> If YesCancel = vbCancel Then Target.EntireColumn.Delete
> End If
>
> Application.EnableEvents = True
> Application.DisplayAlerts = True
> End Sub
> '------------------
> contoh workbook tersedia at request
> [image: toolbar tambahan.PNG]
>
>
> 2011/11/11 Darto Chandra <[email protected]>
> >
> > mohon bimbingannya, bagaimana coding makronya, jika kita pencet insert
> kolom dalam menu excel,
> > akan muncul dialog box konfirmasi. Jika ok maka proses insert kolom di
> lanjukan jika tidak tutup dialog box konfirmasi.
> > Terimaa kasih
> >
> > Darto Chandra
> > 085881648818
>
