Slmt pagi,.
Para suhu/master excel sekalian, mohon bantuan. Saya membuat sebuah tabel, namun saya terbentur ketika hendak mendapatkan cell yang ada nilainya. Biasa nya saya pakai cara filter data.
yang saya inginkan adalah pada file tersebut ada sebuah TOMBOL perintah yang ketika saya klik maka cell kosong akan secara otomatis ter-hidden. Terlampir file contoh yg dimaksud.
Trims sebelumnya.
gunakan skrip berikut untuk menyembunyikan baris kosong
Sub HiddenRow()
Application.ScreenUpdating = False
Dim rng As Range, sel As Range
Set rng = Range("D4:D" & Range("B" & Rows.Count).End(xlUp).Row)
For Each sel In rng
If sel = vbNullString Or sel.Offset(0, 2) = vbNullString Then
sel.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Subuntuk menampilkan kembali :
Sub ShowAll() [1:156].EntireRow.Hidden = False End Sub
Mas @manweljs_
bagaimana jika dalam setiap cell dalam tabel tersebut terdapat rumus/formula tetapi hasil dari rumus/formula tersebut adalah kosong bukan nol (0).
Apakah script tsb masih bisa berfungsi.?
Trims
@HENDRAWAN ...Apakah script tsb masih bisa berfungsi.?...
dicoba dulu mas, kalo ada error silahkan diskusikan lagi :)
siap mas, akan sya diskusikan kembali jika error nantinya.
trims sblm nya.