Terima kasih Mr. Kid, script sesuai harapan.. Terima kasih yang sebesar-besarnya. Salam,Rudi
Sent from Yahoo Mail on Android On Mon, Nov 9, 2015 at 4:34 PM, 'Mr. Kid' [email protected] [belajar-excel]<[email protected]> wrote: Hai Rudi, Pada script asli milik Anda, tambahkan blok pemeriksaan nilai di kolom status dari setiap range yang di loop. Kalau nilai kolom status sesuai kebutuhan, maka didalamnya dilakukan proses penambahan item ke listbox. Set rgTampil = iRgSisa.Range("noSisa").SpecialCells(xlCellTypeVisible) For Each sTampil In rgTampil With lstSisa If sTampil.Offset(0, 4).Value = 0 Then .AddItem .List(.ListCount - 1, 0) = sTampil.Offset(0, 2).Value .List(.ListCount - 1, 1) = sTampil.Offset(0, 3).Value .List(.ListCount - 1, 2) = sTampil.Offset(0, 4).Value End If End With Next sTampil Regard, Kid 2015-11-09 15:29 GMT+07:00 Rudi Anto [email protected] [belajar-excel] <[email protected]>: Mohon bantuan suhu, permasalahn belum clear, data yang ditampilkan hanya yang berstatus 0 waktu form di load. Mohon maaf agak memaksa.. :) , Salam,Rudi Sent from Yahoo Mail on Android --------------------------------------------------------------------- Visit Your Group - New Members 1 • Privacy • Unsubscribe • Terms of Use .
