Function Coding VBA Delete ShiftCellsUp #Rumus Ajaib

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 sebenarnya sering digunakan walaupun tanpa menggunakan VBA/Macro perhatikan gambar diatas saya akan menghapus data yang kosong diantara range A1:A16 maka saya 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 bisa menggantinya dengan menggunakan coding / macro VBA, langkahnya adalah 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 prosedur klik artinya apabila Anda klik commandbutton tersebut maka data yang kosong pada kolom A akan dihapus dan cell yang memiliki data akan dinaikan sesuai dengan urutannya.


Perhatikan hasilnya pada gambar diatas, data yang kosong terlah dihapus dengan otomatis ketika Anda klik tombol "CommandButton1" Perhatikan pula perbedaan data di kolom A antara gambar yang pertama dengan gambar yang kedua tersebut.

Demikian, semoga bermanfaat.

Tweet

Subscribe to receive free email updates: