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 <[email protected]>
> **
>
>
> 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 <[email protected]>
>
>> **
>>
>>
>> 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
