√ Coding Delete Shift Cell Up Dengan Vba

Bagaimana coding VBA untuk menghapus data dan data bawahnya berpindah ke atas sesuai yang ditentukan? Hal ini dapat 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 dapat kita lakukan dengan memakai pertolongan coding VBA dan berikut syntax untuk melaksanakan perintah diatas

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

Perintah diatas dapat kita terapkan dengan beberapa embel-embel coding contohnya referensi 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 lalu coba buat satu buah object Button pada Worksheet Anda

Coba buat list data pada range A lalu untuk mengetest hasil coding diatas silakan klik Button 1 tersebut. Atau jikalau Anda ingin merubah goresan pena Button 1 menjadi "Hapus Range" Anda dapat memakai Edit Text.

Selamat mencoba, biar bermanfaat.

Baca :
Cara Menghapus Data Dari Database dengan VBA
Sumber http://www.excel-id.com/