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