RE: [belajar-excel] Undo Delete Pakai Macro [1 Attachment]

['prazt' praztm...@gmail.com [belajar-excel]]

Lampiran filenya rekan-rekan

 

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] 
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' praztm...@gmail.com [belajar-excel] 
<belajar-excel@yahoogroups.com>:

  

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