Dear Prazt, Bagaimana kalau sebelum dihapus datanya disimpan dahulu, so kalau mau dibutuhkan lagi tinggal datanya diambil kembali.
File lampiran adalah contohnya ambil di internet. Caranya diblok dulu baru klik Delete, mau kembalikan klik undo delete silahkan dioprek sendiri. mohon maaf jika tidak sesuai keinginan karena pengetahuan saya tentang excel dan VBA sangat minim. Salam NangAgus 2014-11-18 11:26 GMT+07:00 'prazt' [email protected] [belajar-excel] < [email protected]>: > > > Lampiran filenya rekan-rekan > > > > *From:* [email protected] [mailto: > [email protected]] > *Sent:* 18 Nopember 2014 10:29 > *To:* BExcel > *Subject:* Re: [belajar-excel] Undo Delete Pakai Macro > > > > > > Asalamualaikum, > > Mas Prazt, > > coba gunakan cekrip: > > > > With Application > > .EnableEvents = False > > .Undo > > .EnableEvents = True > > End With > > > > Wasalam > > NangAgus > > > > > > 2014-11-18 8:49 GMT+07:00 'prazt' [email protected] [belajar-excel] < > [email protected]>: > > > > Assalamu’alaikum... > > Dear rekan-rekan semua, mohon penyempurnaan dari macro berikut : > > Didalam macro berikut (hasil dari record macro) saya ingin melakukan delet > data yang berada di sheet 5,6,dan 7 pada range F4:M24 dan ini telah > berhasil saya lakukan, dan dimacro yang berikutnya saya juga menyertakan > Fungsi Untuk Undo data yang tadi diDelete menggunakan macro Delet tersebut > tetapi kok tidak berhasil ya, ada debug pada bagian * ( Selection.undo > ), mohon bantuannya pada rekan-rekan dan para master semua, bagaimana > seharusnya penulisan yang benar ? > > > > Sub delet() > > ' > > ' Macro4 Macro > > Sheets(Array("Sheet5", "Sheet6", "Sheet7")).Select > > Sheets("Sheet5").Activate > > Range("F7:M24").Select > > Selection.ClearContents > > Range("F7").Select > > Sheets("Sheet5").Select > > End Sub > > ‘======================================================================= > > Sub undo() > > ' > > ' Macro9 Macro > > Sheets(Array("Sheet5", "Sheet6", "Sheet7")).Select > > Sheets("Sheet5").Activate > > Range("F7:M24").Select > > Selection.undo * > > Range("F7").Select > > Sheets("Sheet5").Select > > End Sub > > > > > > Wassalam... > > > > >
delete dan Undo Delete pake macro.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
