1 Message

Digest #4202

Re: Hidden Baris Otomatis by "Nang Agus"

Message

1a

Asalamualaikum warahmatullah,

Dear Ari,
1. Mohon maaf jika salah mengerti permintaan, Karena menurut file yang saya
ketahui, untuk L20 jika diubah menjadi Matakuliah 3, maka hanya berisi dua
mahasiswa, saya tidak tahu kalau harusnya berisi 7 mahasiswa.
dicoba dahulu dengan mengembalikan formula di A26 sampai A40 menjadi
formula awal dari Ari. (=IF(H26<>"",COUNTA($H$26:H26),"")
jangan lupa dibuang tanda &"" yaa... nanti maksimumnya tidak bisa
menghitung.
2. untuk menghidden baris biru tambahkan cekrip:
if z <8 then Rows("51:58").Hidden = False
if (z <11 and z > 7) then
Rows("51:58").Hidden = False
Rows( "52").Hidden = True
end if
if (z <13 and z > 10) then
Rows("51:58").Hidden = False
Rows( "52:55").Hidden = True
end if

Wassalamualaikum warahmatullah
NangAgus

On Fri, Jun 2, 2017 at 8:40 PM, Eira I Arie cheivory_bridge@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Terima Kasih Pak Nang atas responnya
>
> Mohon maaf, dalam lampiran balasan, misalnya saat diubah L20 dengan
> dipilih "matakuliah 3" dan L22 tetap (27 Juni 2011 sampai dengan 06 Agustus
> 2011), maka hasilnya belum sesuai keinginan. Keinginannya dari perubahan
> tersebut adalah baris daftar nama mahasiswa yang isi berjumlah 7 baris
> (baris H26:H32 tampak), sedangkan baris H33:H40 terhidden.
>
> Mohon bantuannya
>
>
> Terima kasih
>
>
> On Saturday, June 3, 2017 10:09 AM, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Dear Ari;
>
> Sebaiknya diubah dahulu formula di kolom A, agar yang nampak dikolom
> tersebut hanya baris yang ada datanya saja, sedangkan yang tidak ada
> datanya dibuat kosong, misalnya di A27 dibuat formula: =IF(OR(H27="",H27=0),
> "",MAX($A$26:A26)+1)
>
> kemudian nilai tertinggi disimpan di A1 (untuk mempermudah saja, kalau
> tidak disimpan juga tidak apa apa) dengan formula =MAX(A26:A40)
>
> kemudian buat cekrip di sheet "Print surat" pada obyek Sheet, prosedur
> change, dengan trigger, apabila cell L20 atau L22 diubah maka perintah
> dijalankan, seperti di bawah ini.
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim q As Integer
> q = Range("A1")
> 'mengambil nilai maksimum di A1
> If Target.Address = "$L$20" Or Target.Address = "$L$22" Then ' Jika
> L20 atau L22 diubah kerjakan langkah di bawahnya.
> Rows("25:41").Hidden = False
> ' jangan disembunyikan baris ke-25 sampai baris 41
> Rows(26 + q & ":40").Hidden = True
> ' Sembunyikan baris ke- 26 + nilai maksimum sampai baris 40
> End If
> ' Akhir Jika
> End Sub
>
>
> untuk pertanyaan kedua coba dibuat berdasarkan cekrip diatas, kalau masih
> kesulitan dapat ditanyakan kembali,
>
> Salam
> NangAgus
>
> 2017-06-01 23:56 GMT-07:00 cheivory_bridge@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Yth. *Be-Exceler*
>
> *Assalaamu'alaikum Wr Wb*
>
> Mohon bantuannya untuk case terlampir.
>
> Terima Kasih
>
> *Wassalaamu'alaikum Wr Wb*
>
> *Ari*
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group