Coding Delete Shift Cell Up dengan VBA

Bagaimana coding VBA untuk menghapus data dan data bawahnya berpindah ke atas sesuai yang ditentukan? Hal ini bisa dilakukan dengan fungsi Delete Shift Cells Up. Seperti yang telah kita ketahui bersama bahwa untuk menghapus cell atau range ada 4 pilihan yang sering kita lakukan dan berikut yang biasa dilakukan tanpa VBA

Cara diatas bisa kita lakukan dengan menggunakan bantuan coding VBA dan berikut syntax untuk melakukan perintah diatas

Range("Alamat_Range”).Delete Shift:=xlUp

Perintah diatas bisa kita terapkan dengan beberapa tambahan coding misalnya contoh berikut ini

Sub Button1_Click()
Call HapusRange
End Sub

Sub HapusRange()
Dim lRow As Long
Dim iCntr As Long

lRow = 20
For iCntr = lRow To 1 Step -1
    Range("A" & iCntr).Delete Shift:=xlUp
    Rows(iCntr).Delete
Next
End Sub

Tambahkan coding diatas kedalam Module kemudian coba buat satu buah object Button pada Worksheet Anda

Coba buat list data pada range A kemudian untuk mengetest hasil coding diatas silakan klik Button 1 tersebut. Atau jika Anda ingin merubah tulisan Button 1 menjadi "Hapus Range" Anda bisa menggunakan Edit Text.

Selamat mencoba, semoga bermanfaat.

Baca :
Cara Menghapus Data Dari Database dengan VBA

Tweet