Month: December 2016

Hapus Semua Konten VBA

Cape rasanya kalo harus hapus per sheet, lebih enak pake looping sheet name nya di array kan terlebih dahulu. 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273 Sub HAPUSAALL() Application.ScreenUpdating = False Sheets(“InputNilai”).Select ActiveSheet.Range(“$A$7:$L$611”).AutoFilter Field:=12 Range(“C8:K607”).Select Selection.ClearContents Sheets(“Pengaturan”).Select Range(“D3:E15”).Select Selection.ClearContents Range(“I3:I15”).Select Selection.ClearContents Range(“F21:F29”).Select Selection.ClearContents Range(“F33:F41”).Select Selection.ClearContents Sheets(“Master SKS”).Select Range(“W7:W28”).Select Selection.ClearContents Range(“AA7:AA28”).Select Selection.ClearContents Dim MyArray(1 …