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