Bagaimana coding Coding VBA Delete ShiftCellsUp? Coding ini berfungsi untuk menghapus data ke atas artinya cell yang kita pilih akan dihapus tetai cell yang tidak kita pilih tidak akan ikut terhapus kemudian kolom yang tidak diblok tidak akan ikut naik keatas. Contoh lebih jelasnya perhatikan gambar berikut ini
Fungsi ini bekerjsama sering dipakai walaupun tanpa memakai VBA/Macro perhatikan gambar diatas aku akan menghapus data yang kosong diantara range A1:A16 maka aku seleksi terlbih dahulu cell yang kosongnya kemudian klik kanan maka munculah jendela kecil Delete Anda tinggal pilih option Shift Cells up kemudian
Untuk menghasilkan perintah diatas Anda dapat menggantinya dengan memakai coding / macro VBA, langkahnya yakni silakan buat 1 buah userform kemudian tambahkan pula satu buah commandbutton dan buat coding/script VBA dibawah ini
Private Sub CommandButton1_Click()
Call HapusData
End Sub
Sub HapusData()
Dim lRow As Long
Dim iCntr As Long
lRow = 20
For iCntr = lRow To 1 Step -1
If Cells(iCntr, 1) = 0 Then
Range("A" & iCntr).Delete Shift:=xlUp
End If
Next
End Sub Dari Coding diatas Anda akan memerintahkan HapusData melalui CommandButton dengan mekanisme klik artinya apabila Anda klik commandbutton tersebut maka data yang kosong pada kolom A akan dihapus dan cell yang mempunyai data akan dinaikan sesuai dengan urutannya.
Perhatikan alhasil pada gambar diatas, data yang kosong terlah dihapus dengan otomatis dikala Anda klik tombol "CommandButton1" Perhatikan pula perbedaan data di kolom A antara gambar yang pertama dengan gambar yang kedua tersebut.
Demikian, supaya bermanfaat. Sumber http://www.excel-id.com/