1. pakailah autofilter;
kolom A pilih kriteria = NonBlank
kolom B pilih kriteria custom : Greater than 0
2. jika tidak suka autofilter, terpaksa pakai code VBA
karena TINDAKAN tidak dapat dilaksanakan oleh Fungsi² di Worksheet
beginikah codenya??
Sub Beginikah()
Dim MyRng As Range, r As Long
Set MyRng = Cells(2, 1).CurrentRegion
For r = 1 To MyRng.Rows.Count
If MyRng(r, 1).Row > 31 Then Exit For
If Len(MyRng(r, 1)) = 0 And _
Sub Beginikah()
Dim MyRng As Range, r As Long
Set MyRng = Cells(2, 1).CurrentRegion
For r = 1 To MyRng.Rows.Count
If MyRng(r, 1).Row > 31 Then Exit For
If Len(MyRng(r, 1)) = 0 And _
(Len(MyRng(r, 2)) = 0 Or MyRng(r, 2) = 0) Then _
MyRng(r, 1).EntireRow.Hidden = True
Next
End Sub
MyRng(r, 1).EntireRow.
Next
End Sub
seandainya workbook percobaan dari pak fajri dikirim-lampirkan sbg kasus;
maka para pihak yg tertarik untuk menanggapi akan menjadi DIMUDAHKAN
karena: bisa meneruskan idea pak fajri (yg tertulis dlm makronya) kemudian
tinggal mencari bagian yg logikanya salah mengganti / menambah dgn
coding yg "bisa jalan".
Contoh data yg mauk diKERJAIN pun tidak perlu "ngarang-ngarang" sendiri lagi;
karena sudah disediakan oleh penanya. (sudah ngarangpun kan belum tentu
cucok dengan kehendak penanya (yg hanya digambarkan dlm kalimat);
karena kita berbahasa dengan cara kita masing masing
milis yg membahas excel menurutku akan lebih oke kalau didalamnya sebagian
besar waktu kita gunakan untuk berfikir cara pemecahan kasus yg nyata.
(yg saya rasakan selama ini : 60% waktu kita gunakan untuk meraba raba /
menebak-tebak maksud pertanyaan penanya, dan hasilnya masih sering salah)
----- Original Message -----
From: Fajri
To: XL-mania@yahoogroup
Sent: Friday, October 23, 2009 05:20PM
Subject: ]] XL-mania [[ Menghide row dengan kondisi tertentu
Hi All,
Bagaimana caranya agar ketika kondisi tertentu terjadi, baris yang bersangkutan menjadi tersembunyi.
Misalkan jika cell A2 kosong dan cell B2 sama dengan 0 (nol) atau kosong maka baris ke-2 itu menjadi tersembunyi.
Begitu juga baris2 lainnya, jika cell Ax kosong dan cell Bx sama dengan nol atau kosong, maka baris ke-x menjadi hide.
Tetapi, kondisi itu hanya sampai baris tertentu, misalkan hanya sampai baris ke 30.
Artinya jika cell A31 kosong, dan cell B31 sama dengan 0 (nol) atau kosong, maka baris ke-31 tetap terlihat.
Saya buat macronya, pakai IF … THEN … tapi, malah jadi hang L
Mohon bantuannya yach.
Regards,
SF
SF
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
.
__,_._,___
Nenhum comentário:
Postar um comentário