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
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
> ---------------------------------------------------------------------
> Visit Your Group
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmcjh0aW85BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE0NDcwMjExMTM->
>
> - New Members
>
> <https://groups.yahoo.com/neo/groups/belajar-excel/members/all;_ylc=X3oDMTJnMWkwNjF1BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxNDQ3MDIxMTEz>
> 1
>
> [image: Yahoo! Groups]
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJlbGM5bmtzBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTQ0NzAyMTExMw-->
> • Privacy <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe • Terms of Use
> <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> .
>
>
>
