KODE MACRO EXCEL MENGHAPUS CELLS, COLUMN, ROW

VBA EXCEL MENGHAPUS CELL, COLUMN DAN ROW

Bagaimana Kode Macro Menghapus Cells, Column dan Row di Excel ??

Ada banyak cara untuk menghapus Cells, Column dan Row di excel, salah satunya menggunakan Kode Macro .Delete

JENIS KODE MACRO MENGHAPUS CELLS, COLUMN, ROW DI VBA EXCEL

Menghapus range yang dipilih. Contoh : Range A1:B5 maka Kode Macronya adalah : Sheets("Sheet1").Range("A1:B5").Delete

Menghapus range yang sudah di beri nama. Contoh : Range A1:B5 namanya "hapus", maka Kode Macronya adalah : Sheets("Sheet1").Range("hapus").Delete

Menghapus range yang kosong, Jadi misalnya Anda mempunyai database yang mana ada kolom yang kosong di tengah atau pun dimana saja maka kolom kosong tersebut dihapus. Berikut Kode Macronya ini :

Range("hapus").Select
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
For I = 1 To Rng
If ActiveCell.Value = "" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next I

Menghapus data kosong di setiap sheets. Contoh : Anda mempunyai data kosong di sheet1, sheet2 dan sheet3 maka kode macronya seperti dibawah ini.
pesan = MsgBox("apakah Anda ingin menghapus data kosong di semua sheet??", vbYesNo, "konfirmasi")
Select Case pesan
Case vbYes
Worksheets("Sheet1").Range("A7:AL66").ClearContents
Worksheets("Sheet2").Range("A7:AL66").ClearContents
Worksheets("Sheet3").Range("A7:AL66").ClearContents
Case vbNo
End Select

Sebenarnya masih banyak lagi Kode Macro Menghapus Cells, Column dan Row di Excel, dan Kode Macro diatas bisa Anda kembangkan sendiri.

Baca juga : VBA Excel Cara Menyembunyikan Cells, Column dan Row

KOLEKSI APLIKASI GRATIS

ARTIKEL LAIN