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_bri...@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 nanga...@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_bri...@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* > > > > > >