Mas Nang agus,
Cekrip berikut :
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Apakah untuk mennantikan cekrip ini atau gmana?
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
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...
