Re: ]] XL-mania [[ Cara sembunyikan baris kosong

 

Hi Pak,

Semoga script ini membantu.

Private Sub PROCES()
    Dim i As Integer
    Dim j As Integer

         i = Range("K3") + 6
         j = 56
         Rows(i & ":" & j).Select
         Selection.EntireRow.Hidden = True
End Sub

2012/12/5 Mr. Kid <mr.nmkid@gmail.com>

 

Hai Dedi,

Coba langkah berikut :
1. ke VBE (ALT F11) -> Insert -> Module -> buat prosedur berikut :
    public sub Sembunyi()
       on error resume next
       activesheet.range("c7:c56").specialcells(xlcelltypeformulas,xltextvalues).entirerow.hidden=true
       err.clear
       on error goto 0
   end sub
2. ke worksheet (ALT F11) -> klik kanan shape -> assign macro -> pilih Sembunyi -> OK
3. save as (ALT  F  A) -> Save as Type : pilih .xlsm -> ganti nama -> tekan save

Wassalam,
Kid.

2012/12/5 Dedi Herdiana <dedi.herdiana_74@yahoo.co.id>

 

Dear Master-master Excel….

 

Saya lagi belajar excel biar kerjaan lebih simpel.

Mohon bantuannya pada master2 excel yang baik hati, formula atau macronya juga boleh.... 

 

Saya pernah baca milis untuk ini sepeninggalnya master excel yang baik hati teh Siti (almh), tapi saya cari-cari gak ketemu, mohon bantuannya sama pewaris teh siti sekarang para master excel....

 

Dengan tekan PROSES maka baris kosong dapat disembunyikan, sehingga baris untuk jumlah yang di bawah akan mengikuti sesuai baris yang ada datanya (file contoh terlampir)

 

Terimakasih banyak atas bantuannya

 

salam,
dedi

_

--
Regards
Simon Lamakadu

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 38

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat jalan SitiVi, semoga bahagia di sisi-Nya...               |
| Maaf moderasi lemooOooOott... momods siboek                       |
+-------------------------------------------------------------------+
| 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.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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___