Cara Menyembunyikan Tabel Otomatis Jika Kolom Kosong atau Terdapat Rumus di Excel

By sobaso Last updated Mar 11, 2025

jika ada sel kosong di Sheet 1, maka baris yang sesuai di Sheet 2 akan disembunyikan secara otomatis tanpa membuat tabel. Berikut solusinya menggunakan rumus sederhana dan fitur bawaan Excel:

Langkah-langkah:

Hubungkan Sheet 2 dengan Sheet 1:
- Di Sheet 2, pada sel A2, masukkan rumus berikut:
```
=Sheet1!A2
```
- Tarik rumus ini ke bawah sampai A11 (atau sesuai rentang yang Anda inginkan) agar data di Sheet 2 sama dengan Sheet 1.
Sembunyikan Baris Secara Otomatis Berdasarkan Sel Kosong:
- Excel tidak bisa menyembunyikan baris secara otomatis hanya dengan rumus biasa tanpa VBA (Visual Basic for Applications). Namun, Anda bisa menggunakan Filter atau VBA untuk mencapai ini.

Opsi 1: Menggunakan Filter (Manual tapi Sederhana)

Di Sheet 2, sorot rentang data (misalnya A1:A11).
Pergi ke tab Data > klik Filter.
Klik ikon filter di header kolom A, lalu hapus centang pada opsi “(Blanks)” atau “Kosong”.
Baris dengan sel kosong di kolom A akan disembunyikan secara otomatis.

Opsi 2: Menggunakan VBA (Otomatis)

Jika Anda ingin prosesnya otomatis sepenuhnya:

Tekan Alt + F11 untuk membuka editor VBA.

Klik Insert > Module, lalu masukkan kode berikut:

vba

Sub HideEmptyRows()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim i As Integer
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    For i = 2 To 11 'Rentang A2:A11
        If ws1.Range("A" & i).Value = "" Then
            ws2.Rows(i).Hidden = True
        Else
            ws2.Rows(i).Hidden = False
        End If
    Next i
End Sub

Simpan file sebagai format .xlsm (Excel Macro-Enabled Workbook).
Jalankan macro ini kapan pun Anda ingin menyembunyikan baris kosong di Sheet 2 berdasarkan Sheet 1.

Otomatisasi Penuh (Opsional):
- Jika Anda ingin macro berjalan otomatis setiap kali ada perubahan di Sheet 1, tambahkan kode ini di modul Sheet1 (klik kanan Sheet1 di VBA > View Code):
  vba
```
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:A11")) Is Nothing Then
        Call HideEmptyRows
    End If
End Sub
```

Penjelasan:

Opsi Filter: Mudah dan tidak perlu coding, tapi Anda harus mengatur filter secara manual setiap kali ada perubahan data.
Opsi VBA: Lebih otomatis, tapi memerlukan sedikit pengetahuan tentang macro dan file harus disimpan sebagai .xlsm.