Diskusi tentang Excel

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

Related

Range 5915898090421103354

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item