Excel tutorial Menghapus baris Kosong

Excel tutorial Menghapus baris Kosong -  Exceldalam pelajaran kali ini kita akan membahas mengenai metode cara penghapusan baris kosong tentunya pada pembahasan sebelumnya telah diterangkan mengenai metode entry data sederhana dengan menggunakan kode simple dari Microsoft Excel tersebut tentunya kita akan menemui beberapa problem yaitu ketika terjadi data kosong maka kita harus menghapusnya secara otomatis pada data kosong kosong tersebut dan bentuk solusi tersebut kita akan memasukkan sebuah fungsi sederhana untuk mengisi atau menghapus data-data kosong tersebut sehingga data tersebut tidak menjadi kendala dalam pembuatan sebuah lembar kerja yang kita kelola.

 oke pertama kita membuat dulu kata simple seperti contoh diatas untuk pembuatan data simpel tersebut Anda bisa melihat tutorial Excel sebelumnya nya  itu di link di bawah ini.

excel entry data otomatis

 cara pembuatan data-data tersebut kita bisa langsung memasukkan kode di bawah ini di bawah ini merupakan sekumpulan metode atau cara dalam penghapusan data kosong Anda bisa memilih salah satu dari data atau fungsional di bawah ini sesuai dengan kriteria dan keinginan anda untuk kodenya Anda bisa langsung masukkan kode dibawah ini

Sub Cari78()
 Dim Cari78ss As Long
Cari78ss = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(Cari78ss, 2).Value = Range("C2")
Cells(Cari78ss, 3).Value = Range("C3")
Cells(Cari78ss, 4).Value = Range("C4")
End Sub

Public Sub DeleteBlankRows()
    Dim SourceRange As Range
    Dim EntireRow As Range
 
    Set SourceRange = Application.Selection
 
    If Not (SourceRange Is Nothing) Then
        Application.ScreenUpdating = False
 
        For I = SourceRange.Rows.Count To 1 Step -1
            Set EntireRow = SourceRange.Cells(I, 1).EntireRow
            If Application.WorksheetFunction.CountA(EntireRow) = 0 Then
                EntireRow.Delete
            End If
        Next
 
        Application.ScreenUpdating = True
    End If
End Sub



Public Sub RemoveBlankLines()
    Dim SourceRange As Range
    Dim EntireRow As Range
 
    On Error Resume Next
 
    Set SourceRange = Application.InputBox( _
        "Select a range:", "Delete Blank Rows", _
        Application.Selection.Address, Type:=8)
 
    If Not (SourceRange Is Nothing) Then
        Application.ScreenUpdating = False
 
        For I = SourceRange.Rows.Count To 1 Step -1
            Set EntireRow = SourceRange.Cells(I, 1).EntireRow
 
            If Application.WorksheetFunction.CountA(EntireRow) = 0 Then
                EntireRow.Delete
            End If
        Next
        Application.ScreenUpdating = True
    End If
End Sub


Sub DeleteAllEmptyRows()
    Dim LastRowIndex As Integer
    Dim RowIndex As Integer
    Dim UsedRng As Range
 
    Set UsedRng = ActiveSheet.UsedRange
    LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count
    Application.ScreenUpdating = False
 
    For RowIndex = LastRowIndex To 1 Step -1
        If Application.CountA(Rows(RowIndex)) = 0 Then
            Rows(RowIndex).Delete
        End If
    Next RowIndex
 
    Application.ScreenUpdating = True
End Sub

Sub DeleteRowIfCellBlank()
    On Error Resume Next
 
    Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

saya terangkan akan sedikit gambaran dari fungsi-fungsi ada di atas mengenai fungsi FTA penghapusan data kosong dengan media visual basic sederhana yaitu kita akan menerangkan satu persatu.

DeleteBlankRow

merupakan fungsi yang akan hapus nilai data dari baris kosong ketika semua baris dari a sampai z tidak memiliki fungsi atau blank ketika semua data-data tersebut kosong dari tulisan dan fungsional Excel maka data akan terhapus otomatis

RemoveBlankLine

adalah sebuah metode penghapusan data kosong dari Microsoft Excel ketika data-data dalam Line yang terseleksi kosong maka data tersebut akan terhapus secara otomatis ketika kita melakukan blok pada data tersebut.

DeleteAllEmptyRows

adalah sebuah metode penghapusan data ketika row dalam sebuah sel kosong dari data ketika terjadi kosong maka data akan terhapus otomatis ketika dalam posisi seleksi.

DeleteRowIfCellBlank

aadalah sebuah metode penghapusan data kosong ketika data dalam kriteria yang dimaksudkan kosong misal kode diatas menunjukkan kriteria ketika dalam sel maka data dari row tersebut akan terhapus

contoh gambaran contoh dalam penghapusan data Cell kosong bisa anda lihat pada media gambar dibawah ini sebagai pembelajaran atau pengenalan fungsi visual basic di dalam Microsoft Excel sehingga kita bisa memahami fungsi yang diterangkan diatas sehingga kita mampu menerapkan fungsi-fungsi tersebut dalam sebuah lembar kerja yang kita bangun.

cukup sekian tutorial kali ini semoga bermanfaat untuk teman-teman yang sedang belajar Microsoft Excel terutama mengenai problem cara penghapusan data Cell kosong dalam sebuah lembar kerja yang kita kelola tentunya banyak fungsi yang akan kita da dapatkan ketika kita memahami fungsi visual basic sederhana yaitu metode cara penghapusan data Cell kosong sekian saja tutorial kali ini semoga bermanfaat 

"salam tutorial Microsoft Excel"

 

Share this post